[Koha-cvs] CVS: koha/C4/Circulation Circ2.pm,1.83,1.84

[Paul POULAIN]

Update of /cvsroot/koha/koha/C4/Circulation
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12901/C4/Circulation

Modified Files:
        Circ2.pm 
Log Message:
removing useless warn & renaming a sub that can probably be removed

Index: Circ2.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Circulation/Circ2.pm,v
retrieving revision 1.83
retrieving revision 1.84
diff -C2 -r1.83 -r1.84
*** Circ2.pm    15 Sep 2004 16:27:18 -0000      1.83
--- Circ2.pm    8 Nov 2004 19:49:45 -0000       1.84
***************
*** 801,805 ****
  sub issuebook {
        my ($env,$borrower,$barcode,$date) = @_;
-       warn "D : $date";
        my $dbh = C4::Context->dbh;
  #     my ($borrower, $flags) = &getpatroninformation($env, $borrowernumber, 
0);
--- 801,804 ----
***************
*** 1044,1048 ****
        #       my $tobrcd = ReserveWaiting($resrec->{'itemnumber'}, 
$resrec->{'borrowernumber'});
                $resrec->{'ResFound'} = $resfound;
!               $messages->{'ResFound'} = $resrec;
        }
        # update stats?
--- 1043,1047 ----
        #       my $tobrcd = ReserveWaiting($resrec->{'itemnumber'}, 
$resrec->{'borrowernumber'});
                $resrec->{'ResFound'} = $resfound;
!               $messages->{'ResFound'} = $resrec;
        }
        # update stats?
***************
*** 1309,1313 ****
  
  # FIXME - Not exported, but used in 'updateitem.pl' anyway.
! sub checkreserve {
  # Stolen from Main.pm
  # Check for reserves for biblio
--- 1308,1312 ----
  
  # FIXME - Not exported, but used in 'updateitem.pl' anyway.
! sub checkreserve_to_delete {
  # Stolen from Main.pm
  # Check for reserves for biblio