[Koha-cvs] CVS: koha/C4 Reserves2.pm,1.5.2.9,1.5.2.10 Auth.pm,1.9.2.11,1.9.2.12

[Finlay Thompson]

Update of /cvsroot/koha/koha/C4
In directory usw-pr-cvs1:/tmp/cvs-serv5752

Modified Files:
      Tag: rel-1-2
	Reserves2.pm Auth.pm 
Log Message:

Cleaned out some warn statements.


Index: Reserves2.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Reserves2.pm,v
retrieving revision 1.5.2.9
retrieving revision 1.5.2.10
diff -C2 -r1.5.2.9 -r1.5.2.10
*** Reserves2.pm	30 Sep 2002 23:08:47 -0000	1.5.2.9
--- Reserves2.pm	2 Oct 2002 00:41:41 -0000	1.5.2.10
***************
*** 41,45 ****
    my $query="SELECT *,reserves.branchcode,biblio.title AS btitle
                        FROM reserves,borrowers,biblio ";
!   if ($bib ne ''){
        $bib = $dbh->quote($bib);
        if ($bor ne ''){
--- 41,45 ----
    my $query="SELECT *,reserves.branchcode,biblio.title AS btitle
                        FROM reserves,borrowers,biblio ";
!   if ($bib){
        $bib = $dbh->quote($bib);
        if ($bor ne ''){
***************
*** 121,125 ****
      my ($biblio, $item, $borr) = @_;
      my $dbh=C4Connect;
-     warn "In CancelReserve";
      if (($item and $borr) and (not $biblio)) {
  # removing a waiting reserve record....
--- 121,124 ----
***************
*** 203,207 ****
                                   AND borrowernumber   = $nbor
                                   AND reservedate      = $nresd";
- 	    warn $query;
  	    my $sth = $dbh->prepare($query);
  	    $sth->execute;
--- 202,205 ----

Index: Auth.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Auth.pm,v
retrieving revision 1.9.2.11
retrieving revision 1.9.2.12
diff -C2 -r1.9.2.11 -r1.9.2.12
*** Auth.pm	1 Oct 2002 07:15:55 -0000	1.9.2.11
--- Auth.pm	2 Oct 2002 00:41:41 -0000	1.9.2.12
***************
*** 53,60 ****
  	}
      }
!     warn "Userflags: \n";
!     foreach my $f (keys %$userflags) {
! 	warn ":    Flag: $f  => $userflags->{$f}\n ";
!     }
      return $userflags;
  }
--- 53,60 ----
  	}
      }
! #    warn "Userflags: \n";
! #    foreach my $f (keys %$userflags) {
! #	warn ":    Flag: $f  => $userflags->{$f}\n ";
! #    }
      return $userflags;
  }
***************
*** 80,84 ****
      if ($sth->rows) {
  	my ($userid, $ip, $lasttime) = $sth->fetchrow;
- 	warn "userid, ip, lasttime = ".$userid.", ".$ip.", ".$lasttime."\n";
  	if ($lasttime<time()-7200) {
  	    # timed logout
--- 80,83 ----
***************
*** 116,120 ****
  	    }
  	    foreach (keys %$flagsrequired) {
- 		warn "Checking required flag $_";
  		unless ($flags->{superlibrarian}) {
  		    unless ($flags->{$_}) {
--- 115,118 ----