@@ -, +, @@ 'overduerules_transport_types' --- ...ck_into_table_overduerules_transport_types.perl | 45 ++++++++++++++++++++++ installer/data/mysql/kohastructure.sql | 1 + 2 files changed, 46 insertions(+) create mode 100755 installer/data/mysql/atomicupdate/Bug_16007_adding_column_letternumber_back_into_table_overduerules_transport_types.perl --- a/installer/data/mysql/atomicupdate/Bug_16007_adding_column_letternumber_back_into_table_overduerules_transport_types.perl +++ a/installer/data/mysql/atomicupdate/Bug_16007_adding_column_letternumber_back_into_table_overduerules_transport_types.perl @@ -0,0 +1,45 @@ +#!/usr/bin/perl + +use strict; +use warnings; + +use C4::Context; +use C4::Members; + +my $dbh = C4::Context->dbh; +my $sth = $dbh->prepare("SELECT * FROM overduerules_transport_types WHERE 0 = 1"); +my $urv = $sth->execute(); + +my @data; + +if ( $sth->{NUM_OF_FIELDS} > 0 ) +{ + @data = @{$sth->{NAME}}; + my $letternumberExists = 0; + + for ( @data ) + { + if ( $_ eq 'letternumber' ) + { + $letternumberExists = 1; + last; + } + } + + if ( ! $letternumberExists ) + { + my $urv = $dbh->do("ALTER TABLE overduerules_transport_types ADD COLUMN letternumber INT(1) NOT NULL DEFAULT 1 AFTER id"); + print "Bug 16007: adding column 'letternumber' back into table 'overduerules_transport_types'\n"; + } + else + { + print "Bug 16007: your table 'overduerules_transport_types' already has a column 'letternumber'; nothing to do\n"; + } +} +else +{ + # uselessly defensive programming ? + # table overduerules_transport_types should exist by now, but let's + # warn the user here just in case + print "Bug 16007: [ERROR] your table 'overduerules_transport_types' does not exists ?!\n"; +} --- a/installer/data/mysql/kohastructure.sql +++ a/installer/data/mysql/kohastructure.sql @@ -2625,6 +2625,7 @@ CREATE TABLE `message_transport_types` ( DROP TABLE IF EXISTS `overduerules_transport_types`; CREATE TABLE overduerules_transport_types( `id` INT(11) NOT NULL AUTO_INCREMENT, + `letternumber` INT(1) NOT NULL DEFAULT 1, `message_transport_type` VARCHAR(20) NOT NULL DEFAULT 'email', `overduerules_id` INT(11) NOT NULL, PRIMARY KEY (id), --