diff options
Diffstat (limited to 'lsmb-request.pl')
| -rw-r--r-- | lsmb-request.pl | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lsmb-request.pl b/lsmb-request.pl index e5921553..66978712 100644 --- a/lsmb-request.pl +++ b/lsmb-request.pl @@ -45,16 +45,18 @@ if (!$1){ $script = $1; $locale = LedgerSMB::Locale->get_handle( ${LedgerSMB::Sysconfig::language} ) - or $form->error( __FILE__ . ':' . __LINE__ . ": Locale not loaded: $!\n" ); + or $request->error( __FILE__ . ':' . __LINE__ . ": Locale not loaded: $!\n" ); if (!$script){ $request->error($locale->text('No workflow script specified')); } -eval { require "scripts/$script" } || $request->error($locale->text('Unable to open script' . ": $!"; +eval { require "scripts/$script" } + || $request->error($locale->text('Unable to open script' . ": $!"; $script =~ s/\.pl$//; $script = "LedgerSMB::Scripts::$script"; -$script->can($request->{action}) || $request->error($locale->text("Action Not Defined: ") . $request->{action}; +$script->can($request->{action}) + || $request->error($locale->text("Action Not Defined: ") . $request->{action}; $script->can($request->{action})->($request); |