@@ -, +, @@ --- ...772-add-readonly-flag-to-illrequestattributes.perl | 11 +++++++++++ installer/data/mysql/kohastructure.sql | 3 ++- 2 files changed, 13 insertions(+), 1 deletion(-) create mode 100644 installer/data/mysql/atomicupdate/bug_20772-add-readonly-flag-to-illrequestattributes.perl --- a/installer/data/mysql/atomicupdate/bug_20772-add-readonly-flag-to-illrequestattributes.perl +++ a/installer/data/mysql/atomicupdate/bug_20772-add-readonly-flag-to-illrequestattributes.perl @@ -0,0 +1,11 @@ +$DBversion = 'XXX'; # will be replaced by the RM +if( CheckVersion( $DBversion ) ) { + + if( !column_exists( 'illrequestattributes', 'readonly' ) ) { + $dbh->do( "ALTER TABLE illrequestattributes ADD COLUMN readonly tinyint(1) NOT NULL DEFAULT 1" ); + $dbh->do( "UPDATE illrequestattributes SET readonly = 1" ); + } + + SetVersion( $DBversion ); + print "Upgrade to $DBversion done (Bug 20772 - Add illrequestattributes.readonly column)\n"; +} --- a/installer/data/mysql/kohastructure.sql +++ a/installer/data/mysql/kohastructure.sql @@ -4176,7 +4176,8 @@ DROP TABLE IF EXISTS `illrequestattributes`; CREATE TABLE illrequestattributes ( illrequest_id bigint(20) unsigned NOT NULL, -- ILL request number type varchar(200) NOT NULL, -- API ILL property name - value MEDIUMTEXT NOT NULL, -- API ILL property value + value MEDIUMTEXT NOT NULL, -- API ILL property value + readonly tinyint(1) NOT NULL DEFAULT 1, -- Is this attribute read only PRIMARY KEY (`illrequest_id`, `type` (191)), CONSTRAINT `illrequestattributes_ifk` FOREIGN KEY (illrequest_id) --