From finlayt@users.sourceforge.net Wed Mar 13 13:07:44 2002
From: Finlay Thompson <finlayt@users.sourceforge.net>
To: koha-devel@lists.koha-community.org
Subject: [Koha-devel] CVS: koha/circ branchtransfers.pl,1.1,1.2
Date: Wed, 13 Mar 2002 13:08:07 +0000
Message-ID: <E16lFyJ-0004ZE-00@usw-pr-cvs1.sourceforge.net>
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="===============3846290615175936886=="

--===============3846290615175936886==
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-serv17154/circ

Modified Files:
	branchtransfers.pl=20
Log Message:
Fixed a small problem in the <form>, not hidden inputs are getting passed
correctly.




Index: branchtransfers.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/branchtransfers.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -r1.1 -r1.2
*** branchtransfers.pl	12 Mar 2002 21:04:32 -0000	1.1
--- branchtransfers.pl	13 Mar 2002 21:07:41 -0000	1.2
***************
*** 38,41 ****
--- 38,42 ----
 =20
  # collect the stack of books already transfered so they can printed...
+ my @messages;
  my %transfereditems;
  my $ritext =3D '';
***************
*** 45,49 ****
      (next) unless (/bc-(\d*)/);
      my $counter=3D$1;
-     (next) if ($counter>20);
      my $barcode=3D$query->param("bc-$counter");
      my $frbcd=3D$query->param("fb-$counter");
--- 46,49 ----
***************
*** 60,64 ****
  #if the barcode has been entered action that and write a message and onto t=
he top of the stack...
  my $iteminformation;
! my @messages;
  my $todaysdate;
  if (my $barcode=3D$query->param('barcode')) {
--- 60,64 ----
  #if the barcode has been entered action that and write a message and onto t=
he top of the stack...
  my $iteminformation;
!=20
  my $todaysdate;
  if (my $barcode=3D$query->param('barcode')) {
***************
*** 93,111 ****
  my $entrytext=3D << "EOF";
  <form method=3Dpost action=3D/cgi-bin/koha/circ/branchtransfers.pl>
! <table border=3D0 cellpadding=3D5 cellspacing=3D0 bgcolor=3D#dddddd >
  <tr><td colspan=3D2 bgcolor=3D$headerbackgroundcolor align=3Dcenter backgro=
und=3D$backgroundimage>
  <font color=3Dblack><b>Select Branch</b></font></td></tr>
! <tr><td>Destination Branch:</td><td>
!  <select name=3Dtobranchcd> $tobranchoptions </select>
! </td></tr>
!=20
! </table><table border=3D0 cellpadding=3D5 cellspacing=3D0 bgcolor=3D#dddddd=
 >
! <tr><td colspan=3D2 bgcolor=3D$headerbackgroundcolor align=3Dcenter backgro=
und=3D$backgroundimage>
  <font color=3Dblack><b>Enter Book Barcode</b></font></td></tr>
  <tr><td>Item Barcode:</td><td><input name=3Dbarcode size=3D10></td></tr>
  </table>
-=20
  <input type=3Dhidden name=3Dtobranchcd value=3D$tobranchcd>
  $ritext
  EOF
 =20
--- 93,109 ----
  my $entrytext=3D << "EOF";
  <form method=3Dpost action=3D/cgi-bin/koha/circ/branchtransfers.pl>
! <table border=3D0 cellpadding=3D5 cellspacing=3D0 bgcolor=3D'#dddddd' >
  <tr><td colspan=3D2 bgcolor=3D$headerbackgroundcolor align=3Dcenter backgro=
und=3D$backgroundimage>
  <font color=3Dblack><b>Select Branch</b></font></td></tr>
! <tr><td>Destination Branch:</td>
!     <td><select name=3Dtobranchcd> $tobranchoptions </select></td></tr></ta=
ble>   =20
! <table border=3D0 cellpadding=3D5 cellspacing=3D0 bgcolor=3D'#dddddd' ><tr>
! <td colspan=3D2 bgcolor=3D$headerbackgroundcolor align=3Dcenter background=
=3D$backgroundimage>
  <font color=3Dblack><b>Enter Book Barcode</b></font></td></tr>
  <tr><td>Item Barcode:</td><td><input name=3Dbarcode size=3D10></td></tr>
  </table>
  <input type=3Dhidden name=3Dtobranchcd value=3D$tobranchcd>
  $ritext
+ </form>
  EOF
 =20
***************
*** 167,196 ****
  print endmenu('circulation');
  print endpage;
-=20
-=20
- ############################################################################
- #
- # this is the database query that will go into C4::Circuation::Circ2
- #
-=20
- use DBI;
- use C4::Database;
-=20
- sub transferbook {
-     my ($env, $iteminformation, $barcode) =3D @_;
-     my $messages;
-     my $dbh=3D&C4Connect;
-     #new entry in branchtransfers....
-     my $sth =3D $dbh->prepare("insert into branchtransfers (itemnumber, fro=
mbranch, datearrived, tobranch) values($iteminformation->{'itemnumber'}, '$en=
v->{'frbranchcd'}', now(), '$env->{'tobranchcd'}')");
-     $sth->execute || return (0,"database error: $sth->errstr");
-     $sth->finish;
-     #update holdingbranch in items .....
-     $sth =3D $dbh->prepare("update items set holdingbranch=3D'$env->{'tobra=
nchcd'}' where items.itemnumber=3D$iteminformation->{'itemnumber'}");
-     $sth->execute || return (0,"database error: $sth->errstr");
-     $sth->execute;
-     $sth->finish;
-     $dbh->disconnect;
-     return (1, $messages);
- }
-=20
 =20
--- 165,167 ----



--===============3846290615175936886==--