installer/data/mysql/atomicupdate/skeleton.perl

   1 $DBversion = 'XXX';  # will be replaced by the RM
   2 if( CheckVersion( $DBversion ) ) {
   3     # you can use $dbh here like:
   4     # $dbh->do( "ALTER TABLE biblio ADD COLUMN badtaste int" );
   5
   6     # or perform some test and warn
   7     # if( !column_exists( 'biblio', 'biblionumber' ) ) {
   8     #    warn "There is something wrong";
   9     # }
  10
  11     # Always end with this (adjust the bug info)
  12     SetVersion( $DBversion );
  13     print "Upgrade to $DBversion done (Bug XXXXX - description)\n";
  14 }