Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Fixed a small problem in the <form>, not hidden inputs are getting passed

Browse source 
correctly.
This commit is contained in:
finlayt 2002-03-13 21:07:41 +00:00
parent 564fd1d8ec
commit 501da7db0d
1 changed files with 8 additions and 37 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

45
circ/branchtransfers.pl
View file

@ -37,6 +37,7 @@ foreach (keys %$branches) {
} }
# collect the stack of books already transfered so they can printed... # collect the stack of books already transfered so they can printed...
my @messages;
my %transfereditems; my %transfereditems;
my $ritext = ''; my $ritext = '';
my %frbranchcds; my %frbranchcds;
@ -44,7 +45,6 @@ my %tobranchcds;
foreach ($query->param){ foreach ($query->param){
(next) unless (/bc-(\d*)/); (next) unless (/bc-(\d*)/);
my $counter=$1; my $counter=$1;
(next) if ($counter>20);
my $barcode=$query->param("bc-$counter"); my $barcode=$query->param("bc-$counter");
my $frbcd=$query->param("fb-$counter"); my $frbcd=$query->param("fb-$counter");
my $tobcd=$query->param("tb-$counter"); my $tobcd=$query->param("tb-$counter");
@ -59,7 +59,7 @@ foreach ($query->param){
#if the barcode has been entered action that and write a message and onto the top of the stack... #if the barcode has been entered action that and write a message and onto the top of the stack...
my $iteminformation; my $iteminformation;
my @messages;
my $todaysdate; my $todaysdate;
if (my $barcode=$query->param('barcode')) { if (my $barcode=$query->param('barcode')) {
my $iteminformation = getiteminformation(\%env,0, $barcode); my $iteminformation = getiteminformation(\%env,0, $barcode);
@ -92,21 +92,19 @@ if (my $barcode=$query->param('barcode')) {
my $entrytext= << "EOF"; my $entrytext= << "EOF";
<form method=post action=/cgi-bin/koha/circ/branchtransfers.pl> <form method=post action=/cgi-bin/koha/circ/branchtransfers.pl>
<table border=0 cellpadding=5 cellspacing=0 bgcolor=#dddddd > <table border=0 cellpadding=5 cellspacing=0 bgcolor='#dddddd' >
<tr><td colspan=2 bgcolor=$headerbackgroundcolor align=center background=$backgroundimage> <tr><td colspan=2 bgcolor=$headerbackgroundcolor align=center background=$backgroundimage>
<font color=black><b>Select Branch</b></font></td></tr> <font color=black><b>Select Branch</b></font></td></tr>
<tr><td>Destination Branch:</td><td> <tr><td>Destination Branch:</td>
<select name=tobranchcd> $tobranchoptions </select> <td><select name=tobranchcd> $tobranchoptions </select></td></tr></table>
</td></tr> <table border=0 cellpadding=5 cellspacing=0 bgcolor='#dddddd' ><tr>
<td colspan=2 bgcolor=$headerbackgroundcolor align=center background=$backgroundimage>
</table><table border=0 cellpadding=5 cellspacing=0 bgcolor=#dddddd >
<tr><td colspan=2 bgcolor=$headerbackgroundcolor align=center background=$backgroundimage>
<font color=black><b>Enter Book Barcode</b></font></td></tr> <font color=black><b>Enter Book Barcode</b></font></td></tr>
<tr><td>Item Barcode:</td><td><input name=barcode size=10></td></tr> <tr><td>Item Barcode:</td><td><input name=barcode size=10></td></tr>
</table> </table>
<input type=hidden name=tobranchcd value=$tobranchcd> <input type=hidden name=tobranchcd value=$tobranchcd>
$ritext $ritext
</form>
EOF EOF
my $messagetable; my $messagetable;
@ -167,30 +165,3 @@ EOF
print endmenu('circulation'); print endmenu('circulation');
print endpage; print endpage;
############################################################################
#
# this is the database query that will go into C4::Circuation::Circ2
#
use DBI;
use C4::Database;
sub transferbook {
my ($env, $iteminformation, $barcode) = @_;
my $messages;
my $dbh=&C4Connect;
#new entry in branchtransfers....
my $sth = $dbh->prepare("insert into branchtransfers (itemnumber, frombranch, datearrived, tobranch) values($iteminformation->{'itemnumber'}, '$env->{'frbranchcd'}', now(), '$env->{'tobranchcd'}')");
$sth->execute || return (0,"database error: $sth->errstr");
$sth->finish;
#update holdingbranch in items .....
$sth = $dbh->prepare("update items set holdingbranch='$env->{'tobranchcd'}' where items.itemnumber=$iteminformation->{'itemnumber'}");
$sth->execute || return (0,"database error: $sth->errstr");
$sth->execute;
$sth->finish;
$dbh->disconnect;
return (1, $messages);
}