Revision 6c27e6e4
Von Jan Büren vor fast 13 Jahren hinzugefügt
| bin/mozilla/cp.pl | ||
|---|---|---|
| 66 | 66 |
} else {
|
| 67 | 67 |
CP->get_openvc(\%myconfig, \%$form); |
| 68 | 68 |
} |
| 69 |
|
|
| 69 |
# Auswahlliste für vc zusammenbauen |
|
| 70 |
# Erweiterung für schliessende option und erweiterung um value |
|
| 71 |
# für bugfix 1771 (doppelte Leerzeichen werden nicht 'gepostet') |
|
| 70 | 72 |
$form->{"select$form->{vc}"} = "";
|
| 71 | 73 |
|
| 72 | 74 |
if ($form->{"all_$form->{vc}"}) {
|
| 73 | 75 |
# s.o. jb 12.10.2010 |
| 74 | 76 |
$form->{"$form->{vc}_id"} = $form->{"all_$form->{vc}"}->[0]->{id};
|
| 75 |
map { $form->{"select$form->{vc}"} .= "<option>$_->{name}--$_->{id}\n" }
|
|
| 77 |
map { $form->{"select$form->{vc}"} .= "<option value=\"$_->{name}--$_->{id}\">$_->{name}--$_->{id}</option>\n" }
|
|
| 76 | 78 |
@{ $form->{"all_$form->{vc}"} };
|
| 77 | 79 |
} |
| 78 | 80 |
|
| ... | ... | |
| 80 | 82 |
|
| 81 | 83 |
# Standard Konto für Umlaufvermögen |
| 82 | 84 |
my $accno_arap = IS->get_standard_accno_current_assets(\%myconfig, \%$form); |
| 83 |
|
|
| 85 |
# Entsprechend präventiv die Auswahlliste für Kontonummer |
|
| 86 |
# auch mit value= zusammenbauen (s.a. oben bugfix 1771) |
|
| 87 |
# Wichtig: Auch das Template anpassen, damit hidden input korrekt die " |
|
| 88 |
# escaped. |
|
| 84 | 89 |
$form->{selectaccount} = "";
|
| 85 | 90 |
$form->{"select$form->{ARAP}"} = "";
|
| 86 | 91 |
|
| 87 |
map { $form->{selectaccount} .= "<option>$_->{accno}--$_->{description}\n";
|
|
| 92 |
map { $form->{selectaccount} .= "<option value=\"$_->{accno}--$_->{description}\">$_->{accno}--$_->{description}</option>\n";
|
|
| 88 | 93 |
$form->{account} = "$_->{accno}--$_->{description}" if ($_->{accno} eq $accno_arap) } @{ $form->{PR}{"$form->{ARAP}_paid"} };
|
| 89 | 94 |
|
| 90 | 95 |
# Braucht man das hier überhaupt? Erstmal auskommentieren .. jan 18.12.2010 |
| ... | ... | |
| 107 | 112 |
$form->{defaultcurrency} = $form->{currency} = $form->{oldcurrency} =
|
| 108 | 113 |
$curr[0]; |
| 109 | 114 |
|
| 115 |
# Entsprechend präventiv die Auswahlliste für Währungen |
|
| 116 |
# auch mit value= zusammenbauen (s.a. oben bugfix 1771) |
|
| 110 | 117 |
$form->{selectcurrency} = "";
|
| 111 |
map { $form->{selectcurrency} .= "<option>$_\n" } @curr;
|
|
| 118 |
map { $form->{selectcurrency} .= "<option value=\"$_\">$_</option>\n" } @curr;
|
|
| 112 | 119 |
|
| 113 | 120 |
|
| 114 | 121 |
&form_header; |
| ... | ... | |
| 128 | 135 |
if ($form->{ $form->{vc} } eq "") {
|
| 129 | 136 |
map { $form->{"addr$_"} = "" } (1 .. 4);
|
| 130 | 137 |
} |
| 131 |
|
|
| 138 |
# bugfix 1771 |
|
| 139 |
# geändert von <option>asdf--2929 |
|
| 140 |
# nach: |
|
| 141 |
# <option value="asdf--2929">asdf--2929</option> |
|
| 142 |
# offen: $form->{ARAP} kann raus?
|
|
| 132 | 143 |
for my $item ($form->{vc}, "account", "currency", $form->{ARAP}) {
|
| 133 | 144 |
$form->{"select$item"} =~ s/ selected//;
|
| 134 |
$form->{"select$item"} =~ s/option>\Q$form->{$item}\E/option selected>$form->{$item}/;
|
|
| 145 |
$form->{"select$item"} =~ s/option value="\Q$form->{$item}\E">\Q$form->{$item}\E/option selected value="$form->{$item}">$form->{$item}/;
|
|
| 135 | 146 |
} |
| 136 | 147 |
|
| 137 | 148 |
$vc = |
Auch abrufbar als: Unified diff
Bugfix 1771 - Zahlungsausgang: Lieferant wird nicht ausgewählt, wenn Name 2 Leerzeichen hintereinander enthält
Im Browser werden 2 Leerzeichen zu einem zusammengefasst, allerdings bleiben alle Werte die mit value="asdf jkl"
entsprechend definiert werden erhalten. Somit die Auswahlliste(n) entsprechend um value erweitert und
ferner mit schliessenden </option> versehen.