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 |
- |
|
|