| 
      
            Lines 115-120
          sub new {
      
      
        Link Here
      
     | 
  
        
          | 115 | 
           | 
          115 | 
           | 
        
        
          | 116 | 
              # OAI-PMH handles dates in UTC, so do that on the database level to avoid need for  | 
          116 | 
              # OAI-PMH handles dates in UTC, so do that on the database level to avoid need for  | 
        
        
          | 117 | 
              # any conversions  | 
          117 | 
              # any conversions  | 
        
            
               | 
               | 
              118 | 
                  my $sth = C4::Context->dbh->prepare('SELECT @@session.time_zone'); | 
            
            
              | 119 | 
                  $sth->execute();  | 
            
            
              | 120 | 
                  my ( $orig_tz ) = $sth->fetchrow();  | 
            
            
              | 121 | 
                  $self->{ mysql_orig_tz } = $orig_tz; | 
            
        
          | 118 | 
              C4::Context->dbh->prepare("SET time_zone='+00:00'")->execute(); | 
          122 | 
              C4::Context->dbh->prepare("SET time_zone='+00:00'")->execute(); | 
        
        
          | 119 | 
           | 
          123 | 
           | 
        
        
          | 120 | 
              # Check for grammatical errors in the request  | 
          124 | 
              # Check for grammatical errors in the request  | 
        
  
    | 
      
            Lines 152-157
          sub new {
      
      
        Link Here
      
     | 
  
        
          | 152 | 
          }  | 
          156 | 
          }  | 
        
        
          | 153 | 
           | 
          157 | 
           | 
        
        
          | 154 | 
           | 
          158 | 
           | 
        
            
               | 
               | 
              159 | 
              sub DESTROY { | 
            
            
              | 160 | 
                  my ( $self ) = @_;  | 
            
            
              | 161 | 
               | 
            
            
              | 162 | 
                  # Reset time zone to the original value  | 
            
            
              | 163 | 
                  C4::Context->dbh->prepare("SET time_zone='" . $self->{ mysql_orig_tz } . "'")->execute() | 
            
            
              | 164 | 
                      if $self->{ mysql_orig_tz }; | 
            
            
              | 165 | 
              }  | 
            
            
              | 166 | 
               | 
            
            
              | 167 | 
               | 
            
        
          | 155 | 
          sub get_biblio_marcxml { | 
          168 | 
          sub get_biblio_marcxml { | 
        
        
          | 156 | 
              my ($self, $biblionumber, $format) = @_;  | 
          169 | 
              my ($self, $biblionumber, $format) = @_;  | 
        
        
          | 157 | 
              my $with_items = 0;  | 
          170 | 
              my $with_items = 0;  |