Eine Funktion zum "sicheren" Aufrufen von Unterfunktionen eingebaut, damit &{ $form...

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

diff --git a/bin/mozilla/arap.pl b/bin/mozilla/arap.pl
index f2e4e822b7a712453e5e95609c06cadb2a17c2fd..08cdc3be28695df54d12e2c5ae9e30e3562ed58b 100644 (file)
--- a/bin/mozilla/arap.pl
+++ b/bin/mozilla/arap.pl
@@ -40,6 +40,8 @@ if (-f "$form->{path}/$form->{login}_arap.pl") {
 
 1;
 
+require "bin/mozilla/common.pl";
+
 # end of main
 
 sub check_name {
@@ -445,7 +447,7 @@ sub project_selected {
   map { delete $form->{$_} } qw(ndx lastndx nextsub is_global);
 
   if ($form->{update}) {
-    &{ $form->{update} };
+    call_sub($form->{"update"});
   } else {
     &update;
   }
@@ -453,7 +455,7 @@ sub project_selected {
   $lxdebug->leave_sub();
 }
 
-sub continue       { &{ $form->{nextsub} } }
+sub continue       { call_sub($form->{"nextsub"}); }
 sub gl_transaction { &add }
 sub ar_transaction { &add_transaction('ar') }
 sub ap_transaction { &add_transaction('ap') }