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

(-)a/acqui/addorderiso2709.pl (+6 lines)
Lines 199-204 if ($op eq ""){ Link Here
199
            SetImportRecordStatus( $biblio->{'import_record_id'}, 'imported' );
199
            SetImportRecordStatus( $biblio->{'import_record_id'}, 'imported' );
200
        }
200
        }
201
201
202
        my $dbh = C4::Context->dbh;
203
        $dbh->do(
204
            q|UPDATE import_biblios SET matched_biblionumber = ? WHERE import_record_id = ?|,
205
            undef, $biblio->{biblionumber}, $biblio->{import_record_id}
206
        );
207
202
        # Add items from MarcItemFieldsToOrder
208
        # Add items from MarcItemFieldsToOrder
203
        my @homebranches = $input->multi_param('homebranch_' . $biblio_count);
209
        my @homebranches = $input->multi_param('homebranch_' . $biblio_count);
204
        my $count = scalar @homebranches;
210
        my $count = scalar @homebranches;
(-)a/acqui/neworderempty.pl (-1 / +5 lines)
Lines 169-174 if ( $ordernumber eq '' and defined $params->{'breedingid'}){ Link Here
169
        # get the price if there is one.
169
        # get the price if there is one.
170
        $listprice = GetMarcPrice($marcrecord, $marcflavour);
170
        $listprice = GetMarcPrice($marcrecord, $marcflavour);
171
        SetImportRecordStatus($params->{'breedingid'}, 'imported');
171
        SetImportRecordStatus($params->{'breedingid'}, 'imported');
172
        my $dbh = C4::Context->dbh;
173
        $dbh->do(
174
            q|UPDATE import_biblios SET matched_biblionumber = ? WHERE import_record_id = ?|,
175
            undef, $biblionumber, $params->{breedingid}
176
        );
172
}
177
}
173
178
174
179
175
- 

Return to bug 24469