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

(-)a/installer/data/mysql/updatedatabase.pl (-15 / +14 lines)
Lines 10146-10165 if(CheckVersion($DBversion)) { Link Here
10146
    SetVersion($DBversion);
10146
    SetVersion($DBversion);
10147
}
10147
}
10148
10148
10149
# DEVELOPER PROCESS, search for anything to execute in the db_update directory
10149
$DBversion = "3.19.00.XXX";
10150
# SEE bug 13068
10151
# if there is anything in the atomicupdate, read and execute it.
10152
10153
my $update_dir = C4::Context->config('intranetdir') . '/installer/data/mysql/atomicupdate/';
10154
opendir( my $dirh, $update_dir );
10155
while ( my $file = readdir $dirh ) {
10156
    next unless $file =~ /\.sql$/;    # skip non SQL files
10157
    print "DEV atomic update : $file \n";
10158
    my $installer = C4::Installer->new();
10159
    my $rv = $installer->load_sql( $update_dir . $file ) ? 0 : 1;
10160
}
10161
10162
$DBversion = "XXX";
10163
if(CheckVersion($DBversion)) {
10150
if(CheckVersion($DBversion)) {
10164
    $dbh->do(q{
10151
    $dbh->do(q{
10165
        ALTER TABLE old_issues ADD issue_id INT( 11 ) NOT NULL AUTO_INCREMENT PRIMARY KEY FIRST
10152
        ALTER TABLE old_issues ADD issue_id INT( 11 ) NOT NULL AUTO_INCREMENT PRIMARY KEY FIRST
Lines 10183-10189 if(CheckVersion($DBversion)) { Link Here
10183
10170
10184
    print "Upgrade to $DBversion done (Bug 13790 - Add unique id issue_id to issues and oldissues tables)\n";
10171
    print "Upgrade to $DBversion done (Bug 13790 - Add unique id issue_id to issues and oldissues tables)\n";
10185
    SetVersion($DBversion);
10172
    SetVersion($DBversion);
10173
}
10174
10186
10175
10176
# DEVELOPER PROCESS, search for anything to execute in the db_update directory
10177
# SEE bug 13068
10178
# if there is anything in the atomicupdate, read and execute it.
10179
10180
my $update_dir = C4::Context->config('intranetdir') . '/installer/data/mysql/atomicupdate/';
10181
opendir( my $dirh, $update_dir );
10182
while ( my $file = readdir $dirh ) {
10183
    next unless $file =~ /\.sql$/;    # skip non SQL files
10184
    print "DEV atomic update : $file \n";
10185
    my $installer = C4::Installer->new();
10186
    my $rv = $installer->load_sql( $update_dir . $file ) ? 0 : 1;
10187
}
10187
}
10188
10188
10189
=head1 FUNCTIONS
10189
=head1 FUNCTIONS
10190
- 

Return to bug 13790