From 41c22430e2fda0d2ce6eeeff4c3193a43410a566 Mon Sep 17 00:00:00 2001 From: Paul Poulain 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