diff options
Diffstat (limited to 'lsmb-request.pl')
| -rw-r--r-- | lsmb-request.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lsmb-request.pl b/lsmb-request.pl index 851d66b8..85a6a5e2 100644 --- a/lsmb-request.pl +++ b/lsmb-request.pl @@ -52,13 +52,14 @@ sub call_script { my $script = shift @_; my $request = shift @_; + $request->{script} = $script; eval { require "scripts/$script" } || $request->error($locale->text('Unable to open script') . ": scripts/$script : $!"); $script =~ s/\.pl$//; $script = "LedgerSMB::Scripts::$script"; + $request->{_script_handle} = $script; $script->can($request->{action}) || $request->error($locale->text("Action Not Defined: ") . $request->{action}); - $script->can( $request->{action} )->($request); } 1; |