Revision 1c084510
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| bin/mozilla/is.pl | ||
|---|---|---|
| 79 | 79 |
|
| 80 | 80 |
sub edit {
|
| 81 | 81 |
$lxdebug->enter_sub(); |
| 82 |
$form->{"Watchdog::paidaccounts"} = 1;
|
|
| 82 |
|
|
| 83 | 83 |
# show history button |
| 84 | 84 |
$form->{javascript} = qq|<script type="text/javascript" src="js/show_history.js"></script>|;
|
| 85 | 85 |
#/show hhistory button |
| ... | ... | |
| 199 | 199 |
|
| 200 | 200 |
if ($key eq "AR_paid") {
|
| 201 | 201 |
for $i (1 .. scalar @{ $form->{acc_trans}{$key} }) {
|
| 202 |
$lxdebug->message(0, "link " . $form->{acc_trans}->{$key}->[$i - 1]->{link});
|
|
| 203 |
$lxdebug->dump(0, "...", $form->{acc_trans}->{$key}->[$i - 1]);
|
|
| 204 |
my $previous_links = { map { $_, 1 } split m/:/, $form->{acc_trans}->{$key}->[$i - 1]->{link} };
|
|
| 205 |
next if (!$previous_links->{AR});
|
|
| 206 |
|
|
| 207 | 202 |
$form->{"AR_paid_$i"} =
|
| 208 | 203 |
"$form->{acc_trans}{$key}->[$i-1]->{accno}--$form->{acc_trans}{$key}->[$i-1]->{description}";
|
| 209 | 204 |
|
Auch abrufbar als: Unified diff
Revision 2532 rückgängig gemacht (Befehl aus falschem Verzeichnis abgeschickt)