Bug 29607: Store the discount amount correctly when importing and order from a file

[koha-ffzg.git] / acqui / finishreceive.pl

diff --git a/acqui/finishreceive.pl b/acqui/finishreceive.pl
index e3305be..c2d5168 100755 (executable)
--- a/acqui/finishreceive.pl
+++ b/acqui/finishreceive.pl
@@ -23,6 +23,7 @@
 use Modern::Perl;
 use CGI qw ( -utf8 );
 use C4::Auth qw( checkauth );
+use JSON qw( encode_json );
 use C4::Output;
 use C4::Context;
 use C4::Acquisition qw( GetInvoice GetOrder populate_order_with_prices ModReceiveOrder );
@@ -49,7 +50,7 @@ my $quantityrec      = $input->param('quantityrec');
 my $quantity         = $input->param('quantity');
 my $unitprice        = $input->param('unitprice');
 my $replacementprice = $input->param('replacementprice');
-my $datereceived     = $input->param('datereceived'),
+my $datereceived     = $input->param('datereceived');
 my $invoiceid        = $input->param('invoiceid');
 my $invoice          = GetInvoice($invoiceid);
 my $invoiceno        = $invoice->{invoicenumber};
@@ -79,7 +80,7 @@ my $basket = $order_obj->basket;
 if ($quantityrec > $origquantityrec ) {
     my @received_items = ();
     if ($basket->effective_create_items eq 'ordering') {
-        @received_items = $input->param('items_to_receive');
+        @received_items = $input->multi_param('items_to_receive');
         my @affects = split q{\|}, C4::Context->preference("AcqItemSetSubfieldsWhenReceived");
         if ( @affects ) {
             my $frameworkcode = GetFrameworkCode($biblionumber);
@@ -138,8 +139,6 @@ if ($quantityrec > $origquantityrec ) {
         my @field_values = $input->multi_param('field_value');
         my @serials      = $input->multi_param('serial');
         my @itemid       = $input->multi_param('itemid');
-        my @ind_tag      = $input->multi_param('ind_tag');
-        my @indicator    = $input->multi_param('indicator');
         #Rebuilding ALL the data for items into a hash
         # parting them on $itemid.
         my %itemhash;
@@ -152,16 +151,14 @@ if ($quantityrec > $origquantityrec ) {
             push @{$itemhash{$itemid[$i]}->{'tags'}},$tags[$i];
             push @{$itemhash{$itemid[$i]}->{'subfields'}},$subfields[$i];
             push @{$itemhash{$itemid[$i]}->{'field_values'}},$field_values[$i];
-            push @{$itemhash{$itemid[$i]}->{'ind_tag'}},$ind_tag[$i];
-            push @{$itemhash{$itemid[$i]}->{'indicator'}},$indicator[$i];
         }
         my $new_order = Koha::Acquisition::Orders->find( $new_ordernumber );
         foreach my $item (keys %itemhash){
             my $xml = TransformHtmlToXml( $itemhash{$item}->{'tags'},
                                           $itemhash{$item}->{'subfields'},
                                           $itemhash{$item}->{'field_values'},
-                                          $itemhash{$item}->{'indicator'},
-                                          $itemhash{$item}->{'ind_tag'},
+                                          undef,
+                                          undef,
                                           'ITEM' );
             my $record=MARC::Record::new_from_xml($xml, 'UTF-8');
             my (undef,$bibitemnum,$itemnumber) = AddItemFromMarc($record,$biblionumber);
@@ -173,13 +170,14 @@ if ($quantityrec > $origquantityrec ) {
 my $new_order_object = Koha::Acquisition::Orders->find( $new_ordernumber ); # FIXME we should not need to refetch it
 my $items = $new_order_object->items;
 while ( my $item = $items->next )  {
-    $item->booksellerid($booksellerid); # TODO This should be done using ->set, but bug 21761 is not resolved
-    $item->dateaccessioned($datereceived);
-    $item->datelastseen($datereceived);
-    $item->price($unitprice);
-    $item->replacementprice($replacementprice);
-    $item->replacementpricedate($datereceived);
-    $item->store;
+    $item->update({
+        booksellerid => $booksellerid,
+        dateaccessioned => $datereceived,
+        datelastseen => $datereceived,
+        price => $unitprice,
+        replacementprice => $replacementprice,
+        replacementpricedate => $datereceived,
+    });
 }
 
 if ($suggestion_id) {
@@ -191,19 +189,20 @@ if ($suggestion_id) {
 }
 
 # Log the receipt
-if (C4::Context->preference("AcqLog")) {
-    my $infos =
-        sprintf("%010d", $quantityrec) .
-        sprintf("%010d", $bookfund) .
-        sprintf("%010.2f", $input->param("tax_rate")) .
-        sprintf("%010.2f", $replacementprice) .
-        sprintf("%010.2f", $unitprice);
+if (C4::Context->preference("AcquisitionLog")) {
+    my $infos = {
+        quantityrec      => $quantityrec,
+        bookfund         => $bookfund || 'unchanged',
+        tax_rate         => $input->param("tax_rate"),
+        replacementprice => $replacementprice,
+        unitprice        => $unitprice
+    };
 
     logaction(
         'ACQUISITIONS',
         'RECEIVE_ORDER',
         $ordernumber,
-        $infos
+        encode_json($infos)
     );
 }