14 lines
476 B
Perl
14 lines
476 B
Perl
$DBversion = 'XXX'; # will be replaced by the RM
|
|
if( CheckVersion( $DBversion ) ) {
|
|
# you can use $dbh here like:
|
|
# $dbh->do( "ALTER TABLE biblio ADD COLUMN badtaste int" );
|
|
|
|
# or perform some test and warn
|
|
# if( !column_exists( 'biblio', 'biblionumber' ) ) {
|
|
# warn "There is something wrong";
|
|
# }
|
|
|
|
# Always end with this (adjust the bug info)
|
|
SetVersion( $DBversion );
|
|
print "Upgrade to $DBversion done (Bug XXXXX - description)\n";
|
|
}
|