remove debug output

diff --git a/lib/C4/Auth.pm b/lib/C4/Auth.pm
index aa47f6e..a70c13f 100644 (file)
--- a/lib/C4/Auth.pm
+++ b/lib/C4/Auth.pm
@@ -952,7 +952,7 @@ warn "XXX AuthMemCookie $token = $data";
                        }
 
                        my $row = $sth->fetchrow_hashref;
-                       warn "XXX row = ",dump( $row );
+#                      warn "XXX row = ",dump( $row );
 
                        $session->param( $_ => defined $row->{$_} ? $row->{$_} : '' ) foreach keys %$row;
 
@@ -1020,7 +1020,7 @@ warn "DEBUG ",dump( $C4::Context::context->{userenv} );
     elsif ( $sessionID = $query->cookie("CGISESSID") )
     {    # assignment, not comparison
         $session = get_session($sessionID);
-warn "XXX-9001 sessionID = $sessionID session =", dump( $session );
+#warn "XXX-9001 sessionID = $sessionID session =", dump( $session );
         C4::Context->_new_userenv($sessionID);
         my ( $ip, $lasttime, $sessiontype );
         my $s_userid = '';
@@ -1122,7 +1122,7 @@ warn "XXX-9001 sessionID = $sessionID session =", dump( $session );
             $session->param( 'lasttime', time() );
             unless ( $sessiontype && $sessiontype eq 'anon' ) {    #if this is an anonymous session, we want to update the session, but not behave as if they are logged in...
                 $flags = haspermission( $userid, $flagsrequired );
-                               warn "XXX flags = ",dump( $flags );
+#                              warn "XXX flags = ",dump( $flags );
                 if ($flags) {
                     $loggedin = 1;
                 } else {
@@ -1390,7 +1390,7 @@ warn "XXX-9001 sessionID = $sessionID session =", dump( $session );
         }
     }    # END unless ($userid)
 
-       warn "XXX-44 userid = $userid cookie = ",dump( $cookie ), " sessionID = $sessionID loggedin = $loggedin flags = $flags";
+#      warn "XXX-44 userid = $userid cookie = ",dump( $cookie ), " sessionID = $sessionID loggedin = $loggedin flags = $flags";
     # finished authentification, now respond
     if ( $loggedin || $authnotrequired )
     {
@@ -1405,9 +1405,9 @@ warn "XXX-9001 sessionID = $sessionID session =", dump( $session );
         }
 
         track_login_daily( $userid );
-warn "XXX session = ",dump($session);
-warn "XXX userenv = ",dump( C4::Context->userenv );
-        warn "RETURN = ", dump( $userid, $cookie, $sessionID, $flags );
+#warn "XXX session = ",dump($session);
+#warn "XXX userenv = ",dump( C4::Context->userenv );
+#        warn "XXX RETURN = ", dump( $userid, $cookie, $sessionID, $flags );
         return ( $userid, $cookie, $sessionID, $flags );
     }