Revision a14a3ff5
Von Moritz Bunkus vor fast 18 Jahren hinzugefügt
| bin/mozilla/ar.pl | ||
|---|---|---|
| 655 | 655 |
</tr> |
| 656 | 656 |
"; |
| 657 | 657 |
|
| 658 |
my @triggers = (); |
|
| 658 | 659 |
$form->{paidaccounts}++ if ($form->{"paid_$form->{paidaccounts}"});
|
| 659 | 660 |
for $i (1 .. $form->{paidaccounts}) {
|
| 660 | 661 |
print " |
| ... | ... | |
| 694 | 695 |
qq|<td align=center><select name="AR_paid_$i">$form->{"selectAR_paid_$i"}</select></td>|;
|
| 695 | 696 |
$column_data{exchangerate} = qq|<td align=center>$exchangerate</td>|;
|
| 696 | 697 |
$column_data{datepaid} =
|
| 697 |
qq|<td align=center><input name="datepaid_$i" size=11 value=$form->{"datepaid_$i"}></td>|;
|
|
| 698 |
qq|<td align=center><input name="datepaid_$i" size=11 value=$form->{"datepaid_$i"}>
|
|
| 699 |
<input type="button" name="datepaid_$i" id="trigger_datepaid_$i" value="?"></td>|; |
|
| 698 | 700 |
$column_data{source} =
|
| 699 | 701 |
qq|<td align=center><input name="source_$i" size=11 value="$form->{"source_$i"}"></td>|;
|
| 700 | 702 |
$column_data{memo} =
|
| ... | ... | |
| 705 | 707 |
print " |
| 706 | 708 |
</tr> |
| 707 | 709 |
"; |
| 710 |
push(@triggers, "datepaid_$i", "BL", "trigger_datepaid_$i"); |
|
| 708 | 711 |
} |
| 709 | 712 |
map { $form->{$_} =~ s/\"/"/g } qw(selectAR_paid);
|
| 710 |
print qq| |
|
| 713 |
|
|
| 714 |
print $form->write_trigger(\%myconfig, scalar(@triggers) / 3, @triggers) . |
|
| 715 |
qq| |
|
| 711 | 716 |
<input type=hidden name=paidaccounts value=$form->{paidaccounts}>
|
| 712 | 717 |
<input type=hidden name=selectAR_paid value="$form->{selectAR_paid}">
|
| 713 | 718 |
|
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.