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 |
- |
|
|