[Koha-patches] [PATCH] [SIGNED-OFF] BZ6058: uncertain price can't be unchecked

[Katrin Fischer]

From: Paul Poulain <paul.poulain at biblibre.com>

Signed-off-by: Paul Poulain <paul.poulain at biblibre.com>
Signed-off-by: Katrin Fischer <Katrin.Fischer.83 at web.de>
---
 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