diff options
Diffstat (limited to 'LedgerSMB/Session')
-rwxr-xr-x | LedgerSMB/Session/DB.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/LedgerSMB/Session/DB.pm b/LedgerSMB/Session/DB.pm index f7f1e672..06385a8f 100755 --- a/LedgerSMB/Session/DB.pm +++ b/LedgerSMB/Session/DB.pm @@ -32,13 +32,13 @@ use MIME::Base64; use strict; sub session_check { - use Time::HiRes qw(gettimeofday); + my ( $cookie, $form ) = @_; + my $path = ($ENV{SCRIPT_NAME}); $path =~ s|[^/]*$||; - my ( $cookie, $form ) = @_; if ($cookie eq 'Login'){ return session_create($form); } |