[Koha-cvs] CVS: koha updateitem.pl,1.6,1.7
Andrew Arensburger
arensb at users.sourceforge.net
Sun Oct 13 09:36:12 CEST 2002
Update of /cvsroot/koha/koha
In directory usw-pr-cvs1:/tmp/cvs-serv4744
Modified Files:
updateitem.pl
Log Message:
Added magic RCS comment.
Removed trailing whitespace.
Index: updateitem.pl
===================================================================
RCS file: /cvsroot/koha/koha/updateitem.pl,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -r1.6 -r1.7
*** updateitem.pl 5 Oct 2002 09:47:37 -0000 1.6
--- updateitem.pl 13 Oct 2002 07:36:09 -0000 1.7
***************
*** 1,4 ****
--- 1,5 ----
#!/usr/bin/perl
+ # $Id$
# Copyright 2000-2002 Katipo Communications
***************
*** 112,120 ****
print $input->redirect("moredetail.pl?type=intra&bib=$bibnum&bi=$bibitemnum");
} else {
!
# print "marking cancelled";
#need to check if it is on reserve or issued
my $dbh = C4::Context->dbh;
! my $flag=0;
my ($resbor,$resrec)=C4::Circulation::Circ2::checkreserve($env,$dbh,$itemnum);
# print $resbor;
--- 113,121 ----
print $input->redirect("moredetail.pl?type=intra&bib=$bibnum&bi=$bibitemnum");
} else {
!
# print "marking cancelled";
#need to check if it is on reserve or issued
my $dbh = C4::Context->dbh;
! my $flag=0;
my ($resbor,$resrec)=C4::Circulation::Circ2::checkreserve($env,$dbh,$itemnum);
# print $resbor;
***************
*** 124,128 ****
$flag=1;
}
! my $sth=$dbh->prepare("Select * from issues where (itemnumber='$itemnum') and (returndate is null)");
$sth->execute;
my $data=$sth->fetchrow_hashref;
--- 125,129 ----
$flag=1;
}
! my $sth=$dbh->prepare("Select * from issues where (itemnumber='$itemnum') and (returndate is null)");
$sth->execute;
my $data=$sth->fetchrow_hashref;
***************
*** 161,163 ****
#sub checkissue{
-
--- 162,163 ----
More information about the Koha-cvs
mailing list