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