From 92c1c00e4aa920c872f85ef37d071d9a8df71a3e Mon Sep 17 00:00:00 2001 From: Chris Cormack Date: Mon, 29 Oct 2007 13:21:33 -0500 Subject: [PATCH] Revert "Commenting out some noisy warns" This reverts commit f4df886c707a97da9296be9dbd59f5c74244d5d1. Signed-off-by: Chris Cormack Signed-off-by: Joshua Ferraro --- C4/Auth.pm | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/C4/Auth.pm b/C4/Auth.pm index 84ef418848..2122450be7 100755 --- a/C4/Auth.pm +++ b/C4/Auth.pm @@ -363,6 +363,7 @@ has authenticated. sub checkauth { my $query = shift; + # warn "Checking Auth"; # $authnotrequired will be set for scripts which will run without authentication my $authnotrequired = shift; my $flagsrequired = shift; @@ -376,6 +377,7 @@ sub checkauth { # If Version syspref is unavailable, it means Koha is beeing installed, # and so we must redirect to OPAC maintenance page or to the WebInstaller + warn "about to check version"; unless (C4::Context->preference('Version')) { if ($type ne 'opac') { warn "Install required, redirecting to Installer"; @@ -416,8 +418,6 @@ sub checkauth { } ======= # my $session = new CGI::Session("driver:MySQL", $sessionID, {Handle=>$dbh}); - # this should be a system preference will work on this today, by default it will use mysql - # but you can set it to use temporary files my $session = new CGI::Session("driver:File", $sessionID, {Directory=>'/tmp'}); >>>>>>> Commenting out some noisy warns:C4/Auth.pm C4::Context->_new_userenv($sessionID); @@ -429,6 +429,8 @@ sub checkauth { $session->param('branchname'), $session->param('flags'), $session->param('emailaddress'), $session->param('branchprinter') ); +# warn "".$session->param('cardnumber').", ".$session->param('firstname').", +# ".$session->param('surname').", ".$session->param('branch'); } my $ip; my $lasttime; @@ -550,6 +552,7 @@ sub checkauth { = $sth->fetchrow if ( $sth->rows ); +# warn "$cardnumber,$borrowernumber,$userid,$firstname,$surname,$userflags,$branchcode,$emailaddress"; unless ( $sth->rows ) { my $sth = $dbh->prepare( @@ -564,6 +567,7 @@ sub checkauth { = $sth->fetchrow if ( $sth->rows ); +# warn "$cardnumber,$borrowernumber,$userid,$firstname,$surname,$userflags,$branchcode,$emailaddress"; unless ( $sth->rows ) { $sth->execute($userid); ( -- 2.39.5