Bug Fixing : C4/Acquisition.pm

Updating ModStatus to ModSuggestion

diff --git a/C4/Acquisition.pm b/C4/Acquisition.pm
index 2f8bf86..1f1132b 100644 (file)
--- a/C4/Acquisition.pm
+++ b/C4/Acquisition.pm
@@ -1141,7 +1141,10 @@ sub ModReceiveOrder {
     $datereceived = C4::Dates->output('iso') unless $datereceived;
     my $suggestionid = GetSuggestionFromBiblionumber( $dbh, $biblionumber );
     if ($suggestionid) {
-        ModStatus( $suggestionid, 'AVAILABLE', '', $biblionumber );
+        ModSuggestion( {suggestionid=>$suggestionid, 
+                                               STATUS=>'AVAILABLE', 
+                                               biblionumber=> $biblionumber} 
+                                               );
     }
 
     my $sth=$dbh->prepare("