@@ -, +, @@ --- Koha/Schema/Result/Suggestion.pm | 4 ++++ installer/data/mysql/atomicupdate/bug_22784.perl | 11 +++++++++++ installer/data/mysql/kohastructure.sql | 1 + 3 files changed, 16 insertions(+) create mode 100644 installer/data/mysql/atomicupdate/bug_22784.perl --- a/Koha/Schema/Result/Suggestion.pm +++ a/Koha/Schema/Result/Suggestion.pm @@ -491,6 +491,10 @@ __PACKAGE__->belongs_to( }, ); +__PACKAGE__->add_columns( + '+archived' => { is_boolean => 1 }, +); + sub koha_objects_class { 'Koha::Suggestions'; } --- a/installer/data/mysql/atomicupdate/bug_22784.perl +++ a/installer/data/mysql/atomicupdate/bug_22784.perl @@ -0,0 +1,11 @@ +$DBversion = 'XXX'; # will be replaced by the RM +if( CheckVersion( $DBversion ) ) { + if( !column_exists( 'suggestions', 'archived' ) ) { + $dbh->do(q| + ALTER TABLE suggestions ADD COLUMN archived INT(1) NOT NULL DEFAULT 0 AFTER `STATUS`; + |); + } + + SetVersion( $DBversion ); + print "Upgrade to $DBversion done (Bug 22784 - Add a new suggestions.archived column)\n"; +} --- a/installer/data/mysql/kohastructure.sql +++ a/installer/data/mysql/kohastructure.sql @@ -2999,6 +2999,7 @@ CREATE TABLE `suggestions` ( -- purchase suggestions lastmodificationby INT(11) default NULL, -- borrowernumber for the librarian who edit the suggestion for the last time lastmodificationdate date default NULL, -- date of the last modification `STATUS` varchar(10) NOT NULL default '', -- suggestion status (ASKED, CHECKED, ACCEPTED, or REJECTED) + `archived` INT(1) NOT NULL DEFAULT 0, -- is the suggestion archived? `note` LONGTEXT, -- note entered on the suggestion `author` varchar(80) default NULL, -- author of the suggested item `title` varchar(255) default NULL, -- title of the suggested item --