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

(-)a/C4/ImportBatch.pm (-4 / +3 lines)
Lines 1595-1604 sub _create_import_record { Link Here
1595
    my ($batch_id, $record_sequence, $marc_record, $record_type, $encoding, $z3950random, $marc_type) = @_;
1595
    my ($batch_id, $record_sequence, $marc_record, $record_type, $encoding, $z3950random, $marc_type) = @_;
1596
1596
1597
    my $dbh = C4::Context->dbh;
1597
    my $dbh = C4::Context->dbh;
1598
    my $sth = $dbh->prepare("INSERT INTO import_records (import_batch_id, record_sequence, marc, marcxml, 
1598
    my $sth = $dbh->prepare("INSERT INTO import_records (import_batch_id, record_sequence, marc, marcxml, marcxml_old,
1599
                                                         record_type, encoding, z3950random)
1599
                                                         record_type, encoding, z3950random)
1600
                                    VALUES (?, ?, ?, ?, ?, ?, ?)");
1600
                                    VALUES (?, ?, ?, ?, ?, ?, ?, ?)");
1601
    $sth->execute($batch_id, $record_sequence, $marc_record->as_usmarc(), $marc_record->as_xml($marc_type),
1601
    $sth->execute($batch_id, $record_sequence, $marc_record->as_usmarc(), $marc_record->as_xml($marc_type), '',
1602
                  $record_type, $encoding, $z3950random);
1602
                  $record_type, $encoding, $z3950random);
1603
    my $import_record_id = $dbh->{'mysql_insertid'};
1603
    my $import_record_id = $dbh->{'mysql_insertid'};
1604
    $sth->finish();
1604
    $sth->finish();
1605
- 

Return to bug 20144