From ecfab4b571aac5bd2a5ea862bb00284efb953301 Mon Sep 17 00:00:00 2001 From: Paul Poulain Date: Tue, 5 Apr 2011 14:05:57 +0200 Subject: [PATCH] BZ6058: uncertain price can't be unchecked Signed-off-by: Paul Poulain Signed-off-by: Katrin Fischer Signed-off-by: Chris Cormack (cherry picked from commit ce71043216f843ad1b1d2fb254db4dd2635e1066) Signed-off-by: Chris Nighswonger --- C4/Acquisition.pm | 4 ++++ acqui/addorder.pl | 1 + 2 files changed, 5 insertions(+) diff --git a/C4/Acquisition.pm b/C4/Acquisition.pm index 95a0ad5e4d..d262b09a77 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'); -- 2.39.5