Revision bb1c185d
Von Moritz Bunkus vor mehr als 19 Jahren hinzugefügt
| bin/mozilla/ct.pl | ||
|---|---|---|
|
|
||
|
$select_greeting =
|
||
|
qq| <select name=selected_cp_greeting><option></option>|;
|
||
|
map(
|
||
|
{ $select_greeting .= qq|<option>$_</option>|; } @{ $form->{GREETINGS} });
|
||
|
map({ $select_greeting .= qq|<option>$_</option>|; } @{ $form->{GREETINGS} });
|
||
|
$select_greeting .= qq|</select>|;
|
||
|
## /LINET
|
||
|
|
||
Auch abrufbar als: Unified diff
Perl mag es anscheinend nicht, wenn der Block zu map auf der naechsten Zeile beginnt. Merge von 557 aus unstable.