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

(-)a/C4/ImportBatch.pm (-3 / +2 lines)
Lines 1557-1565 sub _create_import_record { Link Here
1557
    my ($batch_id, $record_sequence, $marc_record, $record_type, $encoding, $z3950random, $marc_type) = @_;
1557
    my ($batch_id, $record_sequence, $marc_record, $record_type, $encoding, $z3950random, $marc_type) = @_;
1558
1558
1559
    my $dbh = C4::Context->dbh;
1559
    my $dbh = C4::Context->dbh;
1560
    my $sth = $dbh->prepare("INSERT INTO import_records (import_batch_id, record_sequence, marc, marcxml, 
1560
    my $sth = $dbh->prepare("INSERT INTO import_records (import_batch_id, record_sequence, marc, marcxml, marcxml_old, 
1561
                                                         record_type, encoding, z3950random)
1561
                                                         record_type, encoding, z3950random)
1562
                                    VALUES (?, ?, ?, ?, ?, ?, ?)");
1562
                                    VALUES (?, ?, ?, ?, '', ?, ?, ?)");
1563
    $sth->execute($batch_id, $record_sequence, $marc_record->as_usmarc(), $marc_record->as_xml($marc_type),
1563
    $sth->execute($batch_id, $record_sequence, $marc_record->as_usmarc(), $marc_record->as_xml($marc_type),
1564
                  $record_type, $encoding, $z3950random);
1564
                  $record_type, $encoding, $z3950random);
1565
    my $import_record_id = $dbh->{'mysql_insertid'};
1565
    my $import_record_id = $dbh->{'mysql_insertid'};
1566
- 

Return to bug 17238