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