Revision a14a3ff5
Von Moritz Bunkus vor fast 18 Jahren hinzugefügt
| bin/mozilla/ap.pl | ||
|---|---|---|
| 635 | 635 |
</tr> |
| 636 | 636 |
"; |
| 637 | 637 |
|
| 638 |
my @triggers = (); |
|
| 638 | 639 |
$form->{paidaccounts}++ if ($form->{"paid_$form->{paidaccounts}"});
|
| 639 | 640 |
for $i (1 .. $form->{paidaccounts}) {
|
| 640 | 641 |
print " |
| ... | ... | |
| 674 | 675 |
qq|<td align=center><select name="AP_paid_$i">$form->{"selectAP_paid_$i"}</select></td>|;
|
| 675 | 676 |
$column_data{"exchangerate_$i"} = qq|<td align=center>$exchangerate</td>|;
|
| 676 | 677 |
$column_data{"datepaid_$i"} =
|
| 677 |
qq|<td align=center><input name="datepaid_$i" size=11 title="($myconfig{'dateformat'})" value=$form->{"datepaid_$i"}></td>|;
|
|
| 678 |
qq|<td align=center><input name="datepaid_$i" size=11 title="($myconfig{'dateformat'})" value=$form->{"datepaid_$i"}>
|
|
| 679 |
<input type="button" name="datepaid_$i" id="trigger_datepaid_$i" value="?"></td>|; |
|
| 678 | 680 |
$column_data{"source_$i"} =
|
| 679 | 681 |
qq|<td align=center><input name="source_$i" size=11 value="$form->{"source_$i"}"></td>|;
|
| 680 | 682 |
$column_data{"memo_$i"} =
|
| ... | ... | |
| 685 | 687 |
print " |
| 686 | 688 |
</tr> |
| 687 | 689 |
"; |
| 690 |
push(@triggers, "datepaid_$i", "BL", "trigger_datepaid_$i"); |
|
| 688 | 691 |
} |
| 689 | 692 |
map { $form->{$_} =~ s/\"/"/g } qw(selectAP_paid);
|
| 690 |
print qq| |
|
| 693 |
print $form->write_trigger(\%myconfig, scalar(@triggers) / 3, @triggers) . |
|
| 694 |
qq| |
|
| 691 | 695 |
<input type=hidden name=paidaccounts value=$form->{paidaccounts}>
|
| 692 | 696 |
<input type=hidden name=selectAP_paid value="$form->{selectAP_paid}">
|
| 693 | 697 |
|
Auch abrufbar als: Unified diff
Jede Menge Javascript-Kalender eingefügt, und an einigen Stellen die Beschriftung von Datumsfeldern von "an" in "bis" geändert.