From rangi@users.sourceforge.net Tue Feb 13 18:41:05 2001
From: Chris Cornack <rangi@users.sourceforge.net>
To: koha-devel@lists.koha-community.org
Subject: [Koha-devel] CVS: koha/circ circulation.pl,1.12,1.13
Date: Tue, 13 Feb 2001 18:41:45 -0800
Message-ID: <E14Srt3-00068x-00@usw-pr-cvs1.sourceforge.net>
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="===============3513318789208457468=="

--===============3513318789208457468==
Content-Type: text/plain; charset="utf-8"
Content-Transfer-Encoding: quoted-printable

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

Modified Files:
	circulation.pl=20
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
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
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=3D$query->param('print');
      my $borrowernumber=3D$query->param('borrnumber');   =20
+     my $barcode=3D$query->param('barcode');
+ #    if (!$barcode){
+ #      $barcode=3D' ';
+ #    }
+     if ($barcode eq ''){
+       $print=3D'yes';
+     =20
+     } elsif ($barcode eq ' '){
+       $query->param('barcode','');
+       $barcode=3D'';
+     }
      if ($print eq 'yes'){
        my ($borrower, $flags) =3D getpatroninformation(\%env,$borrowernumber=
,0);
***************
*** 375,379 ****
        remoteprint(\%env,\@issues,$borrower);
        $query->param('borrnumber','')
!=20
      }
      unless ($noheader) {
--- 386,390 ----
        remoteprint(\%env,\@issues,$borrower);
        $query->param('borrnumber','')
! #       $borrowernumber=3D'';
      }
      unless ($noheader) {
***************
*** 385,389 ****
      if (my $borrnumber=3D$query->param('borrnumber')) {
  	my ($borrower, $flags) =3D getpatroninformation(\%env,$borrnumber,0);
- #	my ($borrower, $flags) =3D getpatroninformation(\%env,$borrnumber,0);
  	my $year=3D$query->param('year');
  	my $month=3D$query->param('month');
--- 396,399 ----
***************
*** 675,678 ****
--- 685,689 ----
  	    if ($#borrowers =3D=3D 0) {
  		$query->param('borrnumber', $borrowers[0]->{'borrowernumber'});
+ 		$query->param('barcode',' ');
  		issues(1);
  		return;
***************
*** 682,685 ****
--- 693,697 ----
  		print "<input type=3Dhidden name=3Dbranch value=3D$branch>\n";
  		print "<input type=3Dhidden name=3Dprinter value=3D$printer>\n";
+ 		print "<input type=3Dhidden name=3Dbarcode value=3D\" \">\n";
  		print "<table border=3D0 cellspacing=3D0 cellpadding=3D5 bgcolor=3D#ddddd=
d>";
  		print "<tr><th bgcolor=3D$headerbackgroundcolor background=3D$backgroundi=
mage><font color=3Dblack><b>Select a borrower</b></font></th></tr>\n";
***************
*** 704,707 ****
--- 716,720 ----
  <input type=3Dhidden name=3Dbranch value=3D$branch>
  <input type=3Dhidden name=3Dprinter value=3D$printer>
+ <input type=3Dhidden name=3Dbarcode value=3D" ">
  </form>
  </td></tr></table>



--===============3513318789208457468==--