projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Pfadkomponenten entfernen, bevor exec aufgerufen wird, damit nicht beliebige Perlscri...
[kivitendo-erp.git]
/
bin
/
mozilla
/
arap.pl
diff --git
a/bin/mozilla/arap.pl
b/bin/mozilla/arap.pl
index
f2e4e82
..
7952922
100644
(file)
--- a/
bin/mozilla/arap.pl
+++ b/
bin/mozilla/arap.pl
@@
-31,15
+31,17
@@
#
# any custom scripts for this one
#
# any custom scripts for this one
-if (-f "
$form->{path}
/custom_arap.pl") {
- eval { require "
$form->{path}
/custom_arap.pl"; };
+if (-f "
bin/mozilla
/custom_arap.pl") {
+ eval { require "
bin/mozilla
/custom_arap.pl"; };
}
}
-if (-f "
$form->{path}
/$form->{login}_arap.pl") {
- eval { require "
$form->{path}
/$form->{login}_arap.pl"; };
+if (-f "
bin/mozilla
/$form->{login}_arap.pl") {
+ eval { require "
bin/mozilla
/$form->{login}_arap.pl"; };
}
1;
}
1;
+require "bin/mozilla/common.pl";
+
# end of main
sub check_name {
# 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}) {
map { delete $form->{$_} } qw(ndx lastndx nextsub is_global);
if ($form->{update}) {
-
&{ $form->{update} }
;
+
call_sub($form->{"update"})
;
} else {
&update;
}
} else {
&update;
}
@@
-453,7
+455,7
@@
sub project_selected {
$lxdebug->leave_sub();
}
$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') }
sub gl_transaction { &add }
sub ar_transaction { &add_transaction('ar') }
sub ap_transaction { &add_transaction('ap') }