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