| Line 0
          
      
      
        Link Here | 
          
            
              | 0 | -  | 1 | $DBversion = "16.06.00.XXX"; | 
            
              |  |  | 2 | if ( CheckVersion($DBversion) ) { | 
            
              | 3 |  | 
            
              | 4 |     # If index issn_idx still exists, we assume that dbrev 3.15.00.049 failed, | 
            
              | 5 |     # and we repeat it (partially). | 
            
              | 6 |     # Note: the db rev only pertains to biblioitems and is not needed for | 
            
              | 7 |     # deletedbiblioitems. | 
            
              | 8 |  | 
            
              | 9 |     my $temp = $dbh->selectall_arrayref( "SHOW INDEXES FROM biblioitems WHERE key_name = 'issn_idx'" ); | 
            
              | 10 |  | 
            
              | 11 |     if( @$temp > 0 ) { | 
            
              | 12 |         $dbh->do( "ALTER TABLE biblioitems DROP INDEX isbn" ); | 
            
              | 13 |         $dbh->do( "ALTER TABLE biblioitems DROP INDEX issn" ); | 
            
              | 14 |         $dbh->do( "ALTER TABLE biblioitems DROP INDEX issn_idx" ); | 
            
              | 15 |         $dbh->do( "ALTER TABLE biblioitems CHANGE isbn isbn MEDIUMTEXT NULL DEFAULT NULL, CHANGE issn issn MEDIUMTEXT NULL DEFAULT NULL" ); | 
            
              | 16 |         $dbh->do( "ALTER TABLE biblioitems ADD INDEX isbn ( isbn ( 255 ) ), ADD INDEX issn ( issn ( 255 ) )" ); | 
            
              | 17 |         print "Upgrade to $DBversion done (Bug 8835). Removed issn_idx.\n"; | 
            
              | 18 |     } else { | 
            
              | 19 |         print "Upgrade to $DBversion done (Bug 8835). Everything is fine.\n"; | 
            
              | 20 |     } | 
            
              | 21 |  | 
            
              | 22 |     SetVersion($DBversion); | 
            
              | 23 | } |