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

BZ6058: uncertain price can't be unchecked

Browse source 
Signed-off-by: Paul Poulain <paul.poulain@biblibre.com>
Signed-off-by: Katrin Fischer <Katrin.Fischer.83@web.de>
Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
This commit is contained in:
Paul Poulain 2011-04-05 14:05:57 +02:00 committed by Chris Cormack
parent e43da19e34
commit ce71043216
2 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
C4/Acquisition.pm
View file

@ -961,6 +961,10 @@ sub ModOrder {
my $dbh = C4::Context->dbh;
my @params;
# update uncertainprice to an integer, just in case (under FF, checked boxes have the value "ON" by default)
$orderinfo->{uncertainprice}=1 if $orderinfo->{uncertainprice};
# delete($orderinfo->{'branchcode'});
# the hash contains a lot of entries not in aqorders, so get the columns ...
my $sth = $dbh->prepare("SELECT * FROM aqorders LIMIT 1;");

1
acqui/addorder.pl
View file

@ -152,6 +152,7 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
# get CGI parameters
my $orderinfo = $input->Vars;
$orderinfo->{'list_price'} ||= 0;
$orderinfo->{'uncertainprice'} ||= 0;
#my $ordernumber = $input->param('ordernumber');
#my $basketno = $input->param('basketno');
#my $booksellerid = $input->param('booksellerid');