Refactored code for customers and vendors for better maintenance and customizability

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2318 4979c152-3d1c-0410-bac9-87ea11338e46

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;