installer/data/mysql/atomicupdate/bug_23151.perl

   1 use C4::Installer;
   2
   3 my $DBVersion = 'XXX';
   4 if ( CheckVersion( $DBversion ) ) {
   5     print "Running... ";
   6     unless ( column_exists( 'borrower_modifications', 'changed_fields' ) ) {
   7         print "Running... ";
   8         $dbh->do("ALTER TABLE borrower_modifications ADD changed_fields MEDIUMTEXT AFTER verification_token;");
   9     }
  10     print "Ran\n";
  11     SetVersion( $DBversion );
  12     print "Upgrade to $DBversion done (Bug 23151 - Add borrower_modifications.changed_fields column)\n";
  13 }