From 1ce34b32b3124020c9b23580ad3a6d1038e10728 Mon Sep 17 00:00:00 2001
From: rangi <rangi>
Date: Sun, 28 Nov 2004 08:32:36 +0000
Subject: [PATCH] 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

---
 C4/Print.pm         |  2 +-
 circ/circulation.pl | 20 +++++++++++---------
 2 files changed, 12 insertions(+), 10 deletions(-)

diff --git a/C4/Print.pm b/C4/Print.pm
index 902227195e..6076ef1588 100644
--- a/C4/Print.pm
+++ b/C4/Print.pm
@@ -23,7 +23,7 @@ require Exporter;
 #use C4::InterfaceCDK;
 
 use C4::Context;
-
+use C4::Circulation::Circ2;
 
 use vars qw($VERSION @ISA @EXPORT);
 
diff --git a/circ/circulation.pl b/circ/circulation.pl
index 2b3a80b376..fe95dfe5a5 100755
--- a/circ/circulation.pl
+++ b/circ/circulation.pl
@@ -85,6 +85,16 @@ my $todaysdate = (1900+$datearr[5]).sprintf ("%0.2d", ($datearr[4]+1)).sprintf (
 
 # 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
 # if there is a list of find borrowers....
@@ -120,15 +130,7 @@ if ($borrowernumber) {
 #
 #
 
-# 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) {
 	$barcode = cuecatbarcodedecode($barcode);
-- 
2.39.5