Adding more info to an error message

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

1 files changed, 3 insertions, 5 deletions

diff --git a/LedgerSMB/Auth/DB.pm b/LedgerSMB/Auth/DB.pm
index 1c554a3b..e4f5bc32 100755
--- a/LedgerSMB/Auth/DB.pm
+++ b/LedgerSMB/Auth/DB.pm
@@ -34,13 +34,11 @@ use strict;
 sub session_check {
     use Time::HiRes qw(gettimeofday);
     my ( $cookie, $form ) = @_;
-    print STDERR "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;
@@ -132,7 +130,6 @@ sub session_check {
 
 sub session_create {
     my ($lsmb) = @_;
-    print STDERR "Creating Session\n";
     my $path = ($ENV{SCRIPT_NAME});
     $path =~ s|[^/]*$||;
     use Time::HiRes qw(gettimeofday);
@@ -198,7 +195,8 @@ sub session_create {
 
     #create a new session
     $createNew->execute( $newSessionID, $login, $newToken, $newTransactionID )
-      || $lsmb->dberror( __FILE__ . ':' . __LINE__ . ': Create new session: ' );
+      || $lsmb->dberror( __FILE__ . ':' . __LINE__ . ": Create new session: \n".
+		$lsmb->{dbh}->errstr() );
 
     #reseed the random number generator
     my $randomSeed = 1.0 * ( '0.' . ( time() ^ ( $$ + ( $$ << 15 ) ) ) );
@@ -210,7 +208,7 @@ sub session_create {
 
     my $newCookieValue = $newSessionID . ':' . $newToken . ':' 
 	. $lsmb->{company};
-    print STDERR "Breakpoint\n";
+
     #now set the cookie in the browser
     #TODO set domain from ENV, also set path to install path
     print qq|Set-Cookie: LedgerSMB=$newCookieValue; path=$path;\n|;