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.