@@ -, +, @@ ----------------- -- notice it says ordernumber for the GetSuggestions example. -- if you have more than 8 itemtypes in your database, two tests at the end will fail, but that is not relevant to the modified GetSuggestions code. -- notice it is corrected now. -- it should run with the same results as in step 3. That is, if you have 8 itemtypes, all pass, otherwise those two tests fail. --- C4/Suggestions.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) --- a/C4/Suggestions.pm +++ a/C4/Suggestions.pm @@ -201,9 +201,9 @@ sub SearchSuggestion { =head2 GetSuggestion -\%sth = &GetSuggestion($ordernumber) +\%sth = &GetSuggestion($suggestionid) -this function get the detail of the suggestion $ordernumber (input arg) +this function get the detail of the suggestion $suggestionid (input arg) return : the result of the SQL query as a hash : $sth->fetchrow_hashref. @@ -211,7 +211,7 @@ return : =cut sub GetSuggestion { - my ($ordernumber) = @_; + my ($suggestionid) = @_; my $dbh = C4::Context->dbh; my $query = q{ SELECT * @@ -219,7 +219,7 @@ sub GetSuggestion { WHERE suggestionid=? }; my $sth = $dbh->prepare($query); - $sth->execute($ordernumber); + $sth->execute($suggestionid); return ( $sth->fetchrow_hashref ); } --