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