koha-cvs
[Top][All Lists]
Advanced

[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) {




reply via email to

[Prev in Thread] Current Thread [Next in Thread]