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