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