[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
finlayt at users.sourceforge.net
Wed Oct 2 02:41:43 CEST 2002
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 ----
More information about the Koha-cvs
mailing list