| 
      
            Lines 9914-9927
          if(CheckVersion($DBversion)) {
      
      
        Link Here
      
     | 
  
        
          | 9914 | 
          # SEE bug 13068  | 
          9914 | 
          # SEE bug 13068  | 
        
        
          | 9915 | 
          # if there is anything in the atomicupdate, read and execute it.  | 
          9915 | 
          # if there is anything in the atomicupdate, read and execute it.  | 
        
        
          | 9916 | 
           | 
          9916 | 
           | 
        
          
            
              | 9917 | 
              opendir( my $dirh, C4::Context->config('intranetdir') . '/installer/data/mysql/atomicupdate' ); | 
              9917 | 
              my $update_dir = C4::Context->config('intranetdir') . '/installer/data/mysql/atomicupdate/'; | 
            
            
              | 9918 | 
              my $old_delimiter = $/;  | 
              9918 | 
              opendir( my $dirh, $update_dir );  | 
            
            
              | 9919 | 
              $/ = ';';  | 
              9919 | 
              while ( my $file = readdir $dirh ) { | 
            
            
              | 9920 | 
              while (readdir $dirh) { | 
              9920 | 
                  next unless $file =~ /\.sql$/;    # skip non SQL files  | 
            
            
              | 9921 | 
                  next unless $_ =~ /\.sql$/; # skip non SQL files  | 
              9921 | 
                  print "DEV atomic update : $file \n";  | 
            
            
              | 9922 | 
                  print "DEV atomic update : $_ \n";  | 
               | 
               | 
            
        
          | 9923 | 
              my $installer = C4::Installer->new();  | 
          9922 | 
              my $installer = C4::Installer->new();  | 
        
          
            
              | 9924 | 
                  my $rv = $installer->load_sql( C4::Context->config('intranetdir') . '/installer/data/mysql/atomicupdate/' . $_ )? 0: 1; | 
              9923 | 
                  my $rv = $installer->load_sql( $update_dir . $file ) ? 0 : 1;  | 
            
        
          | 9925 | 
          }  | 
          9924 | 
          }  | 
        
        
          | 9926 | 
           | 
          9925 | 
           | 
        
        
          | 9927 | 
           | 
          9926 | 
           | 
        
            
              | 9928 | 
              -   | 
               | 
               |