From 41c22430e2fda0d2ce6eeeff4c3193a43410a566 Mon Sep 17 00:00:00 2001
From: Paul Poulain <paul.poulain@biblibre.com>
Date: Sun, 13 Sep 2009 23:46:51 +0200
Subject: [PATCH] Bug Fixing Suggestions.pm : using ordernumber

---
 C4/Suggestions.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/C4/Suggestions.pm b/C4/Suggestions.pm
index df1bec3b72..d67f09a6eb 100644
--- a/C4/Suggestions.pm
+++ b/C4/Suggestions.pm
@@ -406,7 +406,7 @@ connect a suggestion to an existing biblio
 =cut
 
 sub ConnectSuggestionAndBiblio {
-    my ($ordernumber,$biblionumber) = @_;
+    my ($suggestionid,$biblionumber) = @_;
     my $dbh=C4::Context->dbh;
     my $query = "
         UPDATE suggestions
@@ -426,7 +426,7 @@ Delete a suggestion. A borrower can delete a suggestion only if he is its owner.
 =cut
 
 sub DelSuggestion {
-    my ($borrowernumber,$ordernumber,$type) = @_;
+    my ($borrowernumber,$suggestionid,$type) = @_;
     my $dbh = C4::Context->dbh;
     # check that the suggestion comes from the suggestor
     my $query = "
@@ -435,7 +435,7 @@ sub DelSuggestion {
         WHERE  suggestionid=?
     ";
     my $sth = $dbh->prepare($query);
-    $sth->execute($ordernumber);
+    $sth->execute($suggestionid);
     my ($suggestedby) = $sth->fetchrow;
     if ($type eq "intranet" || $suggestedby eq $borrowernumber ) {
         my $queryDelete = "
-- 
2.39.5