[Koha-cvs] CVS: koha updateitem.pl,1.6,1.7

[Andrew Arensburger]

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 ----