Bug 17356: Add atomic update .perl skeleton file
[koha.git] / installer / data / mysql / atomicupdate / skeleton.perl
1 use C4::Installer;
2 my $dbh = C4::Context->dbh;
3 $DBversion = '16.06.00.XXX';
4 if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
5     unless( column_exists( 'biblio', 'biblionumber' ) ) { # or constraint_exists( $table_name, $key_name )
6         warn "There is something wrong";
7     }
8     SetVersion ($DBversion);
9     print "Upgrade to $DBversion done (Bug XXXXX - description)\n";
10 }