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

@@ -23,7 +23,7 @@ require Exporter;
 #use C4::InterfaceCDK;
 
 use C4::Context;
-
+use C4::Circulation::Circ2;
 
 use vars qw($VERSION @ISA @EXPORT);
 

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