[Koha-devel] CVS: koha/circ circulation.pl,1.12,1.13

[Chris Cornack]

Update of /cvsroot/koha/koha/circ
In directory usw-pr-cvs1:/tmp/cvs-serv23468/circ

Modified Files:
	circulation.pl 
Log Message:
A bodgy hack so that hitting enter in issues (with no barcode) prints out the borrowers issue slip and starts a new borrower


Index: circulation.pl
===================================================================
RCS file: /cvsroot/koha/koha/circ/circulation.pl,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -r1.12 -r1.13
*** circulation.pl	2001/02/14 00:29:17	1.12
--- circulation.pl	2001/02/14 02:41:43	1.13
***************
*** 359,362 ****
--- 359,373 ----
      my $print=$query->param('print');
      my $borrowernumber=$query->param('borrnumber');    
+     my $barcode=$query->param('barcode');
+ #    if (!$barcode){
+ #      $barcode=' ';
+ #    }
+     if ($barcode eq ''){
+       $print='yes';
+      
+     } elsif ($barcode eq ' '){
+       $query->param('barcode','');
+       $barcode='';
+     }
      if ($print eq 'yes'){
        my ($borrower, $flags) = getpatroninformation(\%env,$borrowernumber,0);
***************
*** 375,379 ****
        remoteprint(\%env,\@issues,$borrower);
        $query->param('borrnumber','')
! 
      }
      unless ($noheader) {
--- 386,390 ----
        remoteprint(\%env,\@issues,$borrower);
        $query->param('borrnumber','')
! #       $borrowernumber='';
      }
      unless ($noheader) {
***************
*** 385,389 ****
      if (my $borrnumber=$query->param('borrnumber')) {
  	my ($borrower, $flags) = getpatroninformation(\%env,$borrnumber,0);
- #	my ($borrower, $flags) = getpatroninformation(\%env,$borrnumber,0);
  	my $year=$query->param('year');
  	my $month=$query->param('month');
--- 396,399 ----
***************
*** 675,678 ****
--- 685,689 ----
  	    if ($#borrowers == 0) {
  		$query->param('borrnumber', $borrowers[0]->{'borrowernumber'});
+ 		$query->param('barcode',' ');
  		issues(1);
  		return;
***************
*** 682,685 ****
--- 693,697 ----
  		print "<input type=hidden name=branch value=$branch>\n";
  		print "<input type=hidden name=printer value=$printer>\n";
+ 		print "<input type=hidden name=barcode value=\" \">\n";
  		print "<table border=0 cellspacing=0 cellpadding=5 bgcolor=#dddddd>";
  		print "<tr><th bgcolor=$headerbackgroundcolor background=$backgroundimage><font color=black><b>Select a borrower</b></font></th></tr>\n";
***************
*** 704,707 ****
--- 716,720 ----
  <input type=hidden name=branch value=$branch>
  <input type=hidden name=printer value=$printer>
+ <input type=hidden name=barcode value=" ">
  </form>
  </td></tr></table>