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, $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 / +6 lines)
Lines 170-175 if ( $ordernumber eq '' and defined $params->{'breedingid'}){ Link Here
170
    # get the price if there is one.
170
    # get the price if there is one.
171
    $listprice = GetMarcPrice($marcrecord, $marcflavour);
171
    $listprice = GetMarcPrice($marcrecord, $marcflavour);
172
    SetImportRecordStatus($params->{'breedingid'}, 'imported');
172
    SetImportRecordStatus($params->{'breedingid'}, 'imported');
173
174
    my $dbh = C4::Context->dbh;
175
    $dbh->do(
176
        q|UPDATE import_biblios SET matched_biblionumber = ? WHERE import_record_id = ?|,
177
        undef, $biblionumber, $params->{breedingid}
178
    );
173
}
179
}
174
180
175
181
176
- 

Return to bug 24469