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

(-)a/acqui/addorderiso2709.pl (+6 lines)
Lines 198-203 if ($op eq ""){ Link Here
198
            SetImportRecordStatus( $biblio->{'import_record_id'}, 'imported' );
198
            SetImportRecordStatus( $biblio->{'import_record_id'}, 'imported' );
199
        }
199
        }
200
200
201
        my $dbh = C4::Context->dbh;
202
        $dbh->do(
203
            q|UPDATE import_biblios SET matched_biblionumber = ? WHERE import_record_id = ?|,
204
            undef, $biblionumber, $biblio->{import_record_id}
205
        );
206
201
        # Add items from MarcItemFieldsToOrder
207
        # Add items from MarcItemFieldsToOrder
202
        my @homebranches = $input->multi_param('homebranch_' . $biblio_count);
208
        my @homebranches = $input->multi_param('homebranch_' . $biblio_count);
203
        my $count = scalar @homebranches;
209
        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