Marcel de Rooy
8767434021
Due to the way the snippet is run, there is no need to add a use for C4::Installer or define $dbh (just like $DBVersion). The suggested code is commented (column_exists is not defined). Just as in updatedatabase, CheckVersion is called. The version number does not need to contain 16.06; if we do so, we should update this number each release. The XXX's work just fine. Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl> Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
14 lines
477 B
Perl
14 lines
477 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";
|
|
}
|