From a2fe34ab7ed7d1f7dffc13d09d76a9b15e25abc8 Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Tue, 9 Sep 2008 22:17:46 +0000
Subject: 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
---
 lsmb-request.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'lsmb-request.pl')

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;
-- 
cgit v1.2.3