From 677111b342e443a009fd61c86f5ae32d8dfd44c5 Mon Sep 17 00:00:00 2001
From: Henri-Damien LAURENT <henridamien.laurent@biblibre.com>
Date: Thu, 19 Nov 2009 22:54:41 +0100
Subject: [PATCH] Bug Fixing : C4/Acquisition.pm

Updating ModStatus to ModSuggestion
---
 C4/Acquisition.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/C4/Acquisition.pm b/C4/Acquisition.pm
index 2f8bf86fe8..1f1132b9ca 100644
--- 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("
-- 
2.39.2