[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