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

(-)a/t/db_dependent/OAI/Server.t (-3 / +10 lines)
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
- 

Return to bug 15108