X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=updateitem.pl;h=c280b1356b425176c0f7ab750b0f751ad4f53846;hb=dc1cf5f1638cfc8c5ead33f84352fdb7e242d9b3;hp=16390e029647ac3881a7f444bc735f8bf58c2cf6;hpb=dbca39823f826d5e8d1cd7c0fc8d768be1f57b64;p=koha_gimpoz diff --git a/updateitem.pl b/updateitem.pl index 16390e0296..c280b1356b 100755 --- a/updateitem.pl +++ b/updateitem.pl @@ -1,5 +1,6 @@ #!/usr/bin/perl +# $Id$ # Copyright 2000-2002 Katipo Communications # @@ -111,11 +112,11 @@ if ($wthdrawn == 0 && $override ne 'yes'){ } 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 $flag=0; my ($resbor,$resrec)=C4::Circulation::Circ2::checkreserve($env,$dbh,$itemnum); # print $resbor; if ($resbor){ @@ -123,7 +124,7 @@ if ($wthdrawn == 0 && $override ne 'yes'){ print "The biblio or biblioitem this item belongs to has a reserve on it"; $flag=1; } - my $sth=$dbh->prepare("Select * from issues where (itemnumber='$itemnum') and (returndate is null)"); + my $sth=$dbh->prepare("Select * from issues where (itemnumber='$itemnum') and (returndate is null)"); $sth->execute; my $data=$sth->fetchrow_hashref; if ($data->{'borrowernumber'} ne '') { @@ -160,4 +161,3 @@ sub checkinp{ } #sub checkissue{ -