| 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 =
|
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.