Merge von 798 aus unstable: Bugfix

[mfinanz.git] / bin / mozilla / arap.pl

diff --git a/bin/mozilla/arap.pl b/bin/mozilla/arap.pl
index e7e2378a9e80eb4158d554fc4ccdc3461dd88676..8c495f74eb4e35259b59d67ec0f3381feda28193 100644 (file)
--- a/bin/mozilla/arap.pl
+++ b/bin/mozilla/arap.pl
@@ -236,7 +236,7 @@ sub name_selected {
 
   # delete all the new_ variables
   for $i (1 .. $form->{lastndx}) {
-    map { delete $form->{"new_${_}_$i"} } (id, name);
+    map { delete $form->{"new_${_}_$i"} } qw(id name);
   }
 
   map { delete $form->{$_} } qw(ndx lastndx nextsub);
@@ -441,8 +441,8 @@ sub project_selected {
 
 sub continue       { &{ $form->{nextsub} } }
 sub gl_transaction { &add }
-sub ar_transaction { &add_transaction(ar) }
-sub ap_transaction { &add_transaction(ap) }
-sub sales_invoice  { &add_transaction(is) }
-sub vendor_invoice { &add_transaction(ir) }
+sub ar_transaction { &add_transaction('ar') }
+sub ap_transaction { &add_transaction('ap') }
+sub sales_invoice  { &add_transaction('is') }
+sub vendor_invoice { &add_transaction('ir') }