X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=updateitem.pl;h=48945fdb6b917ebf5862b497f678ccfb1af0af8b;hb=f2a2937c0c2d4aec904d597d854ed9c7f27562e9;hp=16390e029647ac3881a7f444bc735f8bf58c2cf6;hpb=dbca39823f826d5e8d1cd7c0fc8d768be1f57b64;p=koha.git

diff --git a/updateitem.pl b/updateitem.pl
index 16390e0296..48945fdb6b 100755
--- a/updateitem.pl
+++ b/updateitem.pl
@@ -1,5 +1,6 @@
 #!/usr/bin/perl
 
+# $Id$
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -21,7 +22,6 @@
 use strict;
 use CGI;
 use C4::Context;
-use C4::Acquisitions;
 use C4::Biblio;
 use C4::Output;
 use C4::Circulation::Circ2;
@@ -111,11 +111,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 +123,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 +160,3 @@ sub checkinp{
 }
 
 #sub checkissue{
-