[Koha-cvs] CVS: koha bookcount.pl,1.3,1.4

[Andrew Arensburger]

Update of /cvsroot/koha/koha
In directory usw-pr-cvs1:/tmp/cvs-serv3569

Modified Files:
        bookcount.pl 
Log Message:
Added magic RCS comment.
Removed trailing whitespace.


Index: bookcount.pl
===================================================================
RCS file: /cvsroot/koha/koha/bookcount.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** bookcount.pl        5 Oct 2002 09:44:37 -0000       1.3
--- bookcount.pl        13 Oct 2002 07:31:21 -0000      1.4
***************
*** 1,4 ****
--- 1,6 ----
  #!/usr/bin/perl
  
+ # $Id$
+ 
  #written 7/3/2002 by Finlay
  #script to display reports
***************
*** 59,63 ****
  
  
! # make the page ... 
  print $input->header;
  
--- 61,65 ----
  
  
! # make the page ...
  print $input->header;
  
***************
*** 134,138 ****
        my ($date) = $sth->fetchrow_array;
        return(0, "Item has no branch transfers record") if not $date;
!       my $var2 = $dbh->quote($date);      
        $sth=$dbh->prepare("Select * from branchtransfers where 
branchtransfers.itemnumber=$var1 and branchtransfers.datearrived=$var2");
        $sth->execute;
--- 136,140 ----
        my ($date) = $sth->fetchrow_array;
        return(0, "Item has no branch transfers record") if not $date;
!       my $var2 = $dbh->quote($date);
        $sth=$dbh->prepare("Select * from branchtransfers where 
branchtransfers.itemnumber=$var1 and branchtransfers.datearrived=$var2");
        $sth->execute;