[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/C4 Reserves2.pm,1.5.2.9,1.5.2.10 Auth.pm,1.9.2.11,1
From: |
Finlay Thompson |
Subject: |
[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 |
Date: |
Tue, 01 Oct 2002 17:41:43 -0700 |
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 ----
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [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 <=
- Prev by Date:
[Koha-cvs] CVS: koha/koha-tmpl/opac-tmpl/default/en opac-searchresults.tmpl,1.2,1.3 opac-search.tmpl,1.2,1.3
- Next by Date:
[Koha-cvs] CVS: koha/C4/Circulation Circ2.pm,1.21.2.9,1.21.2.10
- Previous by thread:
[Koha-cvs] CVS: koha/koha-tmpl/opac-tmpl/default/en opac-searchresults.tmpl,1.2,1.3 opac-search.tmpl,1.2,1.3
- Next by thread:
[Koha-cvs] CVS: koha/C4/Circulation Circ2.pm,1.21.2.9,1.21.2.10
- Index(es):