View | Details | Raw Unified | Return to bug 13201
Collapse All | Expand All

(-)a/C4/Suggestions.pm (-5 / +4 lines)
Lines 201-209 sub SearchSuggestion { Link Here
201
201
202
=head2 GetSuggestion
202
=head2 GetSuggestion
203
203
204
\%sth = &GetSuggestion($ordernumber)
204
\%sth = &GetSuggestion($suggestionid)
205
205
206
this function get the detail of the suggestion $ordernumber (input arg)
206
this function get the detail of the suggestion $suggestionid (input arg)
207
207
208
return :
208
return :
209
    the result of the SQL query as a hash : $sth->fetchrow_hashref.
209
    the result of the SQL query as a hash : $sth->fetchrow_hashref.
Lines 211-217 return : Link Here
211
=cut
211
=cut
212
212
213
sub GetSuggestion {
213
sub GetSuggestion {
214
    my ($ordernumber) = @_;
214
    my ($suggestionid) = @_;
215
    my $dbh           = C4::Context->dbh;
215
    my $dbh           = C4::Context->dbh;
216
    my $query         = q{
216
    my $query         = q{
217
        SELECT *
217
        SELECT *
Lines 219-225 sub GetSuggestion { Link Here
219
        WHERE  suggestionid=?
219
        WHERE  suggestionid=?
220
    };
220
    };
221
    my $sth = $dbh->prepare($query);
221
    my $sth = $dbh->prepare($query);
222
    $sth->execute($ordernumber);
222
    $sth->execute($suggestionid);
223
    return ( $sth->fetchrow_hashref );
223
    return ( $sth->fetchrow_hashref );
224
}
224
}
225
225
226
- 

Return to bug 13201