diff options
Diffstat (limited to 'LedgerSMB/Session/DB.pm')
-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 06385a8f..98694774 100755 --- a/LedgerSMB/Session/DB.pm +++ b/LedgerSMB/Session/DB.pm @@ -34,12 +34,13 @@ use strict; sub session_check { use Time::HiRes qw(gettimeofday); my ( $cookie, $form ) = @_; - + print STFERR "Checking Session\n"; my $path = ($ENV{SCRIPT_NAME}); $path =~ s|[^/]*$||; if ($cookie eq 'Login'){ + print STDERR "creating session\n"; return session_create($form); } my $timeout; @@ -179,7 +180,6 @@ sub session_create { if ( !$lsmb->{timeout} ) { $lsmb->{timeout} = 86400; } - print STDERR "Breakpoint\n"; $deleteExisting->execute( $login) || $lsmb->dberror( __FILE__ . ':' . __LINE__ . ': Delete from session: ' ); |