|
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 |
- |
|
|