[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,address@hidden,$borrower);
        $query->param('borrnumber','')
! 
      }
      unless ($noheader) {
--- 386,390 ----
        remoteprint(\%env,address@hidden,$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>