13 lines
429 B
Perl
13 lines
429 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)
|
|
NewVersion( $DBversion, XXXXX, "Description");
|
|
}
|