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

Finlay Thompson finlayt at users.sourceforge.net
Wed Aug 21 03:40:49 CEST 2002


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);
  }
  





More information about the Koha-cvs mailing list