|
Lines 1143-1149
sub ModReceiveOrder {
Link Here
|
| 1143 |
= @_; |
1143 |
= @_; |
| 1144 |
my $dbh = C4::Context->dbh; |
1144 |
my $dbh = C4::Context->dbh; |
| 1145 |
$datereceived = C4::Dates->output('iso') unless $datereceived; |
1145 |
$datereceived = C4::Dates->output('iso') unless $datereceived; |
| 1146 |
my $suggestionid = GetSuggestionFromBiblionumber( $dbh, $biblionumber ); |
1146 |
my $suggestionid = GetSuggestionFromBiblionumber( $biblionumber ); |
| 1147 |
if ($suggestionid) { |
1147 |
if ($suggestionid) { |
| 1148 |
ModSuggestion( {suggestionid=>$suggestionid, |
1148 |
ModSuggestion( {suggestionid=>$suggestionid, |
| 1149 |
STATUS=>'AVAILABLE', |
1149 |
STATUS=>'AVAILABLE', |
| 1150 |
- |
|
|