Merge remote-tracking branch 'origin/new/bug_7367'

[koha_gimpoz] / acqui / addorder.pl

diff --git a/acqui/addorder.pl b/acqui/addorder.pl
index d7f7e96..121d20d 100755 (executable)
--- a/acqui/addorder.pl
+++ b/acqui/addorder.pl
@@ -212,7 +212,7 @@ if ( $orderinfo->{quantity} ne '0' ) {
         my ($biblionumber,$bibitemnum) = AddBiblio($record,'');
         # change suggestion status if applicable
         if ($$orderinfo{suggestionid}) {
-            ModSuggestion( {suggestionid=>$$orderinfo{suggestionid}, status=>'ORDERED', biblionumber=>$biblionumber} );
+            ModSuggestion( {suggestionid=>$$orderinfo{suggestionid}, STATUS=>'ORDERED', biblionumber=>$biblionumber} );
         }
                $orderinfo->{biblioitemnumber}=$bibitemnum;
                $orderinfo->{biblionumber}=$biblionumber;