[Koha-cvs] CVS: koha/circ circulation.pl,1.71,1.72

[Paul POULAIN]

Update of /cvsroot/koha/koha/circ
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12247/circ

Modified Files:
        circulation.pl 
Log Message:
bugfixes in circulation

Index: circulation.pl
===================================================================
RCS file: /cvsroot/koha/koha/circ/circulation.pl,v
retrieving revision 1.71
retrieving revision 1.72
diff -C2 -r1.71 -r1.72
*** circulation.pl      3 May 2004 16:36:53 -0000       1.71
--- circulation.pl      17 Jun 2004 08:17:39 -0000      1.72
***************
*** 83,92 ****
  my $todaysdate = (1900+$datearr[5]).sprintf ("%0.2d", 
($datearr[4]+1)).sprintf ("%0.2d", ($datearr[3]));
  
- # get the borrower information.....
- my $borrower;
- if ($borrowernumber) {
-     $borrower = getpatroninformation(\%env,$borrowernumber,0);
- }
- 
  # my $message;
  
--- 83,86 ----
***************
*** 104,107 ****
--- 98,102 ----
                $query->param('borrnumber', $borrowers[0]->{'borrowernumber'});
                $query->param('barcode','');
+               $borrowernumber=$borrowers[0]->{'borrowernumber'};
        } else {
                $borrowerslist = address@hidden;
***************
*** 109,112 ****
--- 104,114 ----
  }
  
+ # get the borrower information.....
+ my $borrower;
+ if ($borrowernumber) {
+     $borrower = getpatroninformation(\%env,$borrowernumber,0);
+ }
+ 
+ 
  #
  # STEP 3 : ISSUING