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