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" );
6 # or perform some test and warn
7 # if( !column_exists( 'biblio', 'biblionumber' ) ) {
8 # warn "There is something wrong";
11 # Always end with this (adjust the bug info)
12 SetVersion( $DBversion );
13 print "Upgrade to $DBversion done (Bug XXXXX - description)\n";