From 92c1c00e4aa920c872f85ef37d071d9a8df71a3e Mon Sep 17 00:00:00 2001
From: Chris Cormack <crc@liblime.com>
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 <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
---
 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