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>