Revision 80525533
Von Waldemar Toews vor mehr als 10 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