From e5aa2c6737821924b77734ccfee74f1930831234 Mon Sep 17 00:00:00 2001 From: einhverfr Date: Thu, 6 Dec 2007 22:08:49 +0000 Subject: Misc fixes git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1955 4979c152-3d1c-0410-bac9-87ea11338e46 --- lsmb-request.pl | 2 -- 1 file changed, 2 deletions(-) (limited to 'lsmb-request.pl') diff --git a/lsmb-request.pl b/lsmb-request.pl index 3a33d278..a0de6115 100644 --- a/lsmb-request.pl +++ b/lsmb-request.pl @@ -37,7 +37,6 @@ eval { require "custom.pl"; }; $request = new LedgerSMB; $request->{action} = '__default' if (!$request->{action}); - $ENV{SCRIPT_NAME} =~ m/([^\/\\]*.pl)\?*.*$/; $script = $1; $locale = LedgerSMB::Locale->get_handle( ${LedgerSMB::Sysconfig::language} ) @@ -56,7 +55,6 @@ sub call_script { eval { require "scripts/$script" } || $request->error($locale->text('Unable to open script') . ": scripts/$script : $!"); - $script =~ s/\.pl$//; $script = "LedgerSMB::Scripts::$script"; $script->can($request->{action}) -- cgit v1.2.3