View | Details | Raw Unified | Return to bug 17356
Collapse All | Expand All

(-)a/installer/data/mysql/atomicupdate/skeleton.perl (+11 lines)
Line 0 Link Here
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
}
11
(-)a/installer/data/mysql/updatedatabase.pl (-1 / +1 lines)
Lines 13070-13075 my $update_dir = C4::Context->config('intranetdir') . '/installer/data/mysql/ato Link Here
13070
opendir( my $dirh, $update_dir );
13070
opendir( my $dirh, $update_dir );
13071
foreach my $file ( sort readdir $dirh ) {
13071
foreach my $file ( sort readdir $dirh ) {
13072
    next if $file !~ /\.(sql|perl)$/;  #skip other files
13072
    next if $file !~ /\.(sql|perl)$/;  #skip other files
13073
    next if $file eq 'skeleton.perl'; # skip the skeleton file
13073
    print "DEV atomic update: $file\n";
13074
    print "DEV atomic update: $file\n";
13074
    if ( $file =~ /\.sql$/ ) {
13075
    if ( $file =~ /\.sql$/ ) {
13075
        my $installer = C4::Installer->new();
13076
        my $installer = C4::Installer->new();
13076
- 

Return to bug 17356