[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/circ circulation.pl,1.78,1.79
From: |
Chris Cormack |
Subject: |
[Koha-cvs] CVS: koha/circ circulation.pl,1.78,1.79 |
Date: |
Sun, 28 Nov 2004 00:32:38 -0800 |
Update of /cvsroot/koha/koha/circ
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32052/circ
Modified Files:
circulation.pl
Log Message:
Fix for bug 865
Allows a librarian to tell Koha you want to start issuing to a new borrower
by entering no data. Essentiall by just hitting the enter key
Index: circulation.pl
===================================================================
RCS file: /cvsroot/koha/koha/circ/circulation.pl,v
retrieving revision 1.78
retrieving revision 1.79
diff -C2 -r1.78 -r1.79
*** circulation.pl 18 Nov 2004 10:32:39 -0000 1.78
--- circulation.pl 28 Nov 2004 08:32:36 -0000 1.79
***************
*** 86,89 ****
--- 86,99 ----
# my $message;
+ # check and see if we should print
+ if ($barcode eq '' && $print eq 'maybe'){
+ $print = 'yes';
+ }
+ if ($print eq 'yes' && $borrowernumber ne ''){
+ printslip(\%env,$borrowernumber);
+ $query->param('borrnumber','');
+ $borrowernumber='';
+ }
+
#
# STEP 2 : FIND BORROWER
***************
*** 121,133 ****
#
! # check and see if we should print
! # if ($barcode eq '' && $print eq 'maybe'){
! # $print = 'yes';
! # }
! # if ($print eq 'yes' && $borrowernumber ne ''){
! # printslip(\%env,$borrowernumber);
! # $query->param('borrnumber','');
! # $borrowernumber='';
! # }
if ($barcode) {
--- 131,135 ----
#
!
if ($barcode) {
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/circ circulation.pl,1.78,1.79,
Chris Cormack <=