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 179-184 if ( $ordernumber eq '' and defined $params->{'breedingid'}){ Link Here
179
    # get the price if there is one.
179
    # get the price if there is one.
180
    $listprice = GetMarcPrice($marcrecord, $marcflavour);
180
    $listprice = GetMarcPrice($marcrecord, $marcflavour);
181
    SetImportRecordStatus($params->{'breedingid'}, 'imported');
181
    SetImportRecordStatus($params->{'breedingid'}, 'imported');
182
183
    my $dbh = C4::Context->dbh;
184
    $dbh->do(
185
        q|UPDATE import_biblios SET matched_biblionumber = ? WHERE import_record_id = ?|,
186
        undef, $biblionumber, $params->{breedingid}
187
    );
182
}
188
}
183
189
184
190
185
- 

Return to bug 24469