From: Paul Poulain <paul.poulain@biblibre.com>
Date: Fri, 5 Jun 2009 06:08:39 +0000 (+0200)
Subject: (mantis 1475) uncertains price, don't set if we find a price in MARC
X-Git-Tag: v3.02.00-alpha~54^2~310
X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=commitdiff_plain;h=5386a0cab81660358f728cf4aea69b46800032ef;p=koha_gimpoz

(mantis 1475) uncertains price, don't set if we find a price in MARC
---

diff --git a/acqui/addorderiso2709.pl b/acqui/addorderiso2709.pl
index 6329307c96..d975ef7818 100755
--- a/acqui/addorderiso2709.pl
+++ b/acqui/addorderiso2709.pl
@@ -123,14 +123,13 @@ if ($op eq ""){
             my $branch = C4::Branch->GetBranchDetail($patron->{branchcode});
             my ($invoice);
             my %orderinfo = ("biblionumber", $biblionumber,
-                                           "basketno", $cgiparams->{'basketno'},
-                                           "quantity", $cgiparams->{'quantityrec-' . $biblio->{'import_record_id'}},
-#                                           "budgetdate", $budget,
-                                           "branchcode", $branch,
-                                           "booksellerinvoicenumber", $invoice,
-                                           "budget_id", $budget_id,
-                                           "uncertainprice", 1,
-                                           );
+                            "basketno", $cgiparams->{'basketno'},
+                            "quantity", $cgiparams->{'quantityrec-' . $biblio->{'import_record_id'}},
+                            "branchcode", $branch,
+                            "booksellerinvoicenumber", $invoice,
+                            "budget_id", $budget_id,
+                            "uncertainprice", 1,
+                            );
             # get the price if there is one.
             # filter by storing only the 1st number
             # we suppose the currency is correct, as we have no possibilities to get it.
@@ -168,6 +167,8 @@ if ($op eq ""){
               }
               $orderinfo{'rrp'} = $orderinfo{'listprice'};
             }
+            # remove uncertainprice flag if we have found a price in the MARC record
+            $orderinfo{uncertainprice} = 0 if $orderinfo{listprice};
             my $basketno;
             ( $basketno, $ordnum ) = NewOrder(\%orderinfo);