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

(-)a/installer/data/mysql/updatedatabase.pl (-15 / +14 lines)
Lines 10039-10058 if ( CheckVersion($DBversion) ) { Link Here
10039
    SetVersion ($DBversion);
10039
    SetVersion ($DBversion);
10040
}
10040
}
10041
10041
10042
# DEVELOPER PROCESS, search for anything to execute in the db_update directory
10042
$DBversion = "3.19.00.XXX";
10043
# SEE bug 13068
10044
# if there is anything in the atomicupdate, read and execute it.
10045
10046
my $update_dir = C4::Context->config('intranetdir') . '/installer/data/mysql/atomicupdate/';
10047
opendir( my $dirh, $update_dir );
10048
while ( my $file = readdir $dirh ) {
10049
    next unless $file =~ /\.sql$/;    # skip non SQL files
10050
    print "DEV atomic update : $file \n";
10051
    my $installer = C4::Installer->new();
10052
    my $rv = $installer->load_sql( $update_dir . $file ) ? 0 : 1;
10053
}
10054
10055
$DBversion = "XXX";
10056
if(CheckVersion($DBversion)) {
10043
if(CheckVersion($DBversion)) {
10057
    $dbh->do(q{
10044
    $dbh->do(q{
10058
        ALTER TABLE old_issues ADD issue_id INT( 11 ) NOT NULL AUTO_INCREMENT PRIMARY KEY FIRST
10045
        ALTER TABLE old_issues ADD issue_id INT( 11 ) NOT NULL AUTO_INCREMENT PRIMARY KEY FIRST
Lines 10076-10082 if(CheckVersion($DBversion)) { Link Here
10076
10063
10077
    print "Upgrade to $DBversion done (Bug 13790 - Add unique id issue_id to issues and oldissues tables)\n";
10064
    print "Upgrade to $DBversion done (Bug 13790 - Add unique id issue_id to issues and oldissues tables)\n";
10078
    SetVersion($DBversion);
10065
    SetVersion($DBversion);
10066
}
10067
10079
10068
10069
# DEVELOPER PROCESS, search for anything to execute in the db_update directory
10070
# SEE bug 13068
10071
# if there is anything in the atomicupdate, read and execute it.
10072
10073
my $update_dir = C4::Context->config('intranetdir') . '/installer/data/mysql/atomicupdate/';
10074
opendir( my $dirh, $update_dir );
10075
while ( my $file = readdir $dirh ) {
10076
    next unless $file =~ /\.sql$/;    # skip non SQL files
10077
    print "DEV atomic update : $file \n";
10078
    my $installer = C4::Installer->new();
10079
    my $rv = $installer->load_sql( $update_dir . $file ) ? 0 : 1;
10080
}
10080
}
10081
10081
10082
=head1 FUNCTIONS
10082
=head1 FUNCTIONS
10083
- 

Return to bug 13790