Lines 59-68
$schema->storage->txn_begin;
Link Here
|
59 |
my $dbh = C4::Context->dbh; |
59 |
my $dbh = C4::Context->dbh; |
60 |
|
60 |
|
61 |
$dbh->do("SET time_zone='+00:00'"); |
61 |
$dbh->do("SET time_zone='+00:00'"); |
|
|
62 |
$dbh->do('DELETE FROM issues'); |
62 |
$dbh->do('DELETE FROM biblio'); |
63 |
$dbh->do('DELETE FROM biblio'); |
63 |
$dbh->do('DELETE FROM deletedbiblio'); |
64 |
$dbh->do('DELETE FROM deletedbiblio'); |
64 |
$dbh->do('DELETE FROM deletedbiblioitems'); |
65 |
$dbh->do('DELETE FROM deletedbiblioitems'); |
65 |
$dbh->do('DELETE FROM deleteditems'); |
66 |
$dbh->do('DELETE FROM deleteditems'); |
|
|
67 |
$dbh->do('DELETE FROM oai_sets'); |
66 |
|
68 |
|
67 |
my $date_added = DateTime->now() . 'Z'; |
69 |
my $date_added = DateTime->now() . 'Z'; |
68 |
my $date_to = substr($date_added, 0, 10) . 'T23:59:59Z'; |
70 |
my $date_to = substr($date_added, 0, 10) . 'T23:59:59Z'; |
Lines 72-78
my $sth = $dbh->prepare('SELECT timestamp FROM biblioitems WHERE biblionumber=?'
Link Here
|
72 |
# Add biblio records |
74 |
# Add biblio records |
73 |
foreach my $index ( 0 .. NUMBER_OF_MARC_RECORDS - 1 ) { |
75 |
foreach my $index ( 0 .. NUMBER_OF_MARC_RECORDS - 1 ) { |
74 |
my $record = MARC::Record->new(); |
76 |
my $record = MARC::Record->new(); |
75 |
$record->append_fields( MARC::Field->new('245', '', '', 'a' => "Title $index" ) ); |
77 |
if (C4::Context->preference('marcflavour') eq 'UNIMARC') { |
|
|
78 |
$record->append_fields( MARC::Field->new('101', '', '', 'a' => "lng" ) ); |
79 |
$record->append_fields( MARC::Field->new('200', '', '', 'a' => "Title $index" ) ); |
80 |
} else { |
81 |
$record->append_fields( MARC::Field->new('008', ' lng' ) ); |
82 |
$record->append_fields( MARC::Field->new('245', '', '', 'a' => "Title $index" ) ); |
83 |
} |
76 |
my ($biblionumber) = AddBiblio($record, ''); |
84 |
my ($biblionumber) = AddBiblio($record, ''); |
77 |
$sth->execute($biblionumber); |
85 |
$sth->execute($biblionumber); |
78 |
my $timestamp = $sth->fetchrow_array . 'Z'; |
86 |
my $timestamp = $sth->fetchrow_array . 'Z'; |
Lines 86-92
foreach my $index ( 0 .. NUMBER_OF_MARC_RECORDS - 1 ) {
Link Here
|
86 |
metadata => { |
94 |
metadata => { |
87 |
'oai_dc:dc' => { |
95 |
'oai_dc:dc' => { |
88 |
'dc:title' => "Title $index", |
96 |
'dc:title' => "Title $index", |
89 |
'dc:language' => {}, |
97 |
'dc:language' => "lng", |
90 |
'dc:type' => {}, |
98 |
'dc:type' => {}, |
91 |
'xmlns:xsi' => 'http://www.w3.org/2001/XMLSchema-instance', |
99 |
'xmlns:xsi' => 'http://www.w3.org/2001/XMLSchema-instance', |
92 |
'xmlns:oai_dc' => 'http://www.openarchives.org/OAI/2.0/oai_dc/', |
100 |
'xmlns:oai_dc' => 'http://www.openarchives.org/OAI/2.0/oai_dc/', |
93 |
- |
|
|