Setting things up so that the LedgerSMB.pm tests run

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

1 files changed, 2 insertions, 6 deletions

diff --git a/lsmb-request.pl b/lsmb-request.pl
index afc3f2a8..47eec723 100644
--- a/lsmb-request.pl
+++ b/lsmb-request.pl
@@ -36,14 +36,10 @@ use Data::Dumper;
 eval { require "custom.pl"; };
 
 $request = new LedgerSMB;
+$request->{action} = '__default' if (!$request->{action});
 
-$0 =~ m/([^\/\\]*.pl)$/;
-if (!$1){
-	$0 =~ m/([^\/\\]*.pl)[? ]/;
-}
-
+$0 =~ m/([^\/\\]*.pl)\?*.*$/;
 $script = $1;
-
 $locale = LedgerSMB::Locale->get_handle( ${LedgerSMB::Sysconfig::language} )
   or $request->error( __FILE__ . ':' . __LINE__ . ": Locale not loaded: $!\n" );