[Koha-cvs] CVS: koha/circ circulation.pl,1.39,1.40

[Finlay Thompson]

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

Modified Files:
        circulation.pl 
Log Message:

Fixed a little bug so that flags get recalculated after an item is issued.


Index: circulation.pl
===================================================================
RCS file: /cvsroot/koha/koha/circ/circulation.pl,v
retrieving revision 1.39
retrieving revision 1.40
diff -C2 -r1.39 -r1.40
*** circulation.pl      16 Aug 2002 20:46:40 -0000      1.39
--- circulation.pl      21 Aug 2002 01:40:47 -0000      1.40
***************
*** 102,106 ****
  
  
! # get the currently issued books......
  my $borrower;
  my $flags;
--- 102,106 ----
  
  
! # get the borrower information.....
  my $borrower;
  my $flags;
***************
*** 121,125 ****
  
  
! # if the barcode is set
  my ($iteminformation, $duedate, $rejected, $question, $questionnumber, 
$defaultanswer);
  
--- 121,125 ----
  
  
! 
  my ($iteminformation, $duedate, $rejected, $question, $questionnumber, 
$defaultanswer);
  
***************
*** 128,132 ****
  my $day=$query->param('day');
  
! 
  if ($barcode) {
      $barcode = cuecatbarcodedecode($barcode);
--- 128,132 ----
  my $day=$query->param('day');
  
! # if the barcode is set
  if ($barcode) {
      $barcode = cuecatbarcodedecode($barcode);
***************
*** 140,143 ****
--- 140,148 ----
                       = issuebook(\%env, $borrower, $barcode, \%responses, 
$date);
      }
+ }
+ 
+ # reload the borrower info for the sake of reseting the flags.....
+ if ($borrowernumber) {
+     ($borrower, $flags) = getpatroninformation(\%env,$borrowernumber,0);
  }