Revision 80525533
Von Waldemar Toews vor fast 11 Jahren hinzugefügt
bin/mozilla/cp.pl | ||
---|---|---|
77 | 77 |
# s.o. jb 12.10.2010 |
78 | 78 |
$form->{"$form->{vc}_id"} = $form->{"all_$form->{vc}"}->[0]->{id}; |
79 | 79 |
# hotfix for 2450. TODO remove legacy code and use L |
80 |
map { $form->{"select$form->{vc}"} .= "<option value=\"$_->{name}--$_->{id}\">" . H($_->{name}) . "--$_->{id}</option>\n" }
|
|
80 |
map { $form->{"select$form->{vc}"} .= "<option value=\"" . H($_->{name}) . "--$_->{id}\">" . H($_->{name}) . "--$_->{id}</option>\n" }
|
|
81 | 81 |
@{ $form->{"all_$form->{vc}"} }; |
82 | 82 |
} |
83 | 83 |
CP->paymentaccounts(\%myconfig, \%$form); |
... | ... | |
148 | 148 |
# <option value="asdf--2929">asdf--2929</option> |
149 | 149 |
# offen: $form->{ARAP} kann raus? |
150 | 150 |
for my $item ($form->{vc}, "account", "currency", $form->{ARAP}) { |
151 |
$form->{$item} = H($form->{$item}); |
|
151 | 152 |
$form->{"select$item"} =~ s/ selected//; |
152 | 153 |
$form->{"select$item"} =~ s/option value="\Q$form->{$item}\E">\Q$form->{$item}\E/option selected value="$form->{$item}">$form->{$item}/; |
153 | 154 |
} |
Auch abrufbar als: Unified diff
Erneuern im Zahlungseingang verwirft den Kunden
im Zahlungseingang oder Zahlungsausgang:
Ein wiederholtes Klicken auf "Erneuern" verwirft den Kunden.
Liegt an der Formatierung für HTML-Ausgabe.
fixt #2470