From 32c805e94cce1865ada0a8f3a1568dcede31c843 Mon Sep 17 00:00:00 2001 From: Paul Poulain Date: Tue, 5 Apr 2011 14:01:02 +0200 Subject: [PATCH] [SIGNED-OFF] BZ6058: uncertain price can't be unchecked Content-Type: text/plain; charset="utf-8" Signed-off-by: Paul Poulain Signed-off-by: Katrin Fischer --- C4/Acquisition.pm | 4 ++++ acqui/addorder.pl | 1 + 2 files changed, 5 insertions(+), 0 deletions(-) diff --git a/C4/Acquisition.pm b/C4/Acquisition.pm index 7474502..2a3f9c4 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 35d3507..44623ec 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'); -- 1.7.1