diff --git a/C4/Acquisition.pm b/C4/Acquisition.pm index 747450293f..2a3f9c4c72 100644 --- a/C4/Acquisition.pm +++ b/C4/Acquisition.pm @@ -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;"); diff --git a/acqui/addorder.pl b/acqui/addorder.pl index 35d350764d..44623ec66e 100755 --- a/acqui/addorder.pl +++ b/acqui/addorder.pl @@ -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');