From 70214dbe42db1d4baba8423d7adad1d9490cdd8d Mon Sep 17 00:00:00 2001 From: einhverfr Date: Thu, 21 Jun 2007 23:20:24 +0000 Subject: Fixing new framework for session and user authentication git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1298 4979c152-3d1c-0410-bac9-87ea11338e46 --- lsmb-request.pl | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'lsmb-request.pl') 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); -- cgit v1.2.3