installer/data/mysql/atomicupdate/bug_8976.perl

   1 $DBversion = 'XXX'; # will be replaced by the RM
   2 if( CheckVersion( $DBversion ) ) {
   3
   4     unless ( column_exists( 'marc_subfield_structure', 'display_order' ) ) {
   5         $dbh->do(q{
   6             ALTER TABLE marc_subfield_structure
   7             ADD COLUMN display_order INT(2) NOT NULL DEFAULT 0 AFTER maxlength
   8         });
   9     }
  10
  11     unless ( column_exists( 'auth_subfield_structure', 'display_order' ) ) {
  12         $dbh->do(q{
  13             ALTER TABLE auth_subfield_structure
  14             ADD COLUMN display_order INT(2) NOT NULL DEFAULT 0 AFTER defaultvalue
  15         });
  16     }
  17
  18     # Always end with this (adjust the bug info)
  19     NewVersion( $DBversion, 8976, "Allow setting a default sequence of subfields in cataloguing editor" );
  20 }