Revision 0acabd54
Von Udo Spallek vor mehr als 18 Jahren hinzugefügt
| bin/mozilla/arap.pl | ||
|---|---|---|
| 236 | 236 |
|
| 237 | 237 |
# delete all the new_ variables |
| 238 | 238 |
for $i (1 .. $form->{lastndx}) {
|
| 239 |
map { delete $form->{"new_${_}_$i"} } (id, name);
|
|
| 239 |
map { delete $form->{"new_${_}_$i"} } qw(id name);
|
|
| 240 | 240 |
} |
| 241 | 241 |
|
| 242 | 242 |
map { delete $form->{$_} } qw(ndx lastndx nextsub);
|
| ... | ... | |
| 441 | 441 |
|
| 442 | 442 |
sub continue { &{ $form->{nextsub} } }
|
| 443 | 443 |
sub gl_transaction { &add }
|
| 444 |
sub ar_transaction { &add_transaction(ar) }
|
|
| 445 |
sub ap_transaction { &add_transaction(ap) }
|
|
| 446 |
sub sales_invoice { &add_transaction(is) }
|
|
| 447 |
sub vendor_invoice { &add_transaction(ir) }
|
|
| 444 |
sub ar_transaction { &add_transaction('ar') }
|
|
| 445 |
sub ap_transaction { &add_transaction('ap') }
|
|
| 446 |
sub sales_invoice { &add_transaction('is') }
|
|
| 447 |
sub vendor_invoice { &add_transaction('ir') }
|
|
| 448 | 448 |
|
Auch abrufbar als: Unified diff
Quoting Barewords.