diff options
| author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-12-06 22:08:49 +0000 |
|---|---|---|
| committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-12-06 22:08:49 +0000 |
| commit | e5aa2c6737821924b77734ccfee74f1930831234 (patch) | |
| tree | 3880d2f8f07c04e2e83ebcf63a8c7bfd9880be1f /lsmb-request.pl | |
| parent | 54f827658f696a0cf3209b19d432a624f1f6b02b (diff) | |
Misc fixes
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1955 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'lsmb-request.pl')
| -rw-r--r-- | lsmb-request.pl | 2 |
1 files changed, 0 insertions, 2 deletions
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}) |