Attachment #153010 for bug #33379

View | Details | Raw Unified | Return to bug 33379
Collapse All | Expand All




use Modern::Perl;

return {
    bug_number => 33379,
    description => "Remove unused column virtualshelfcontents.flags",
    up => sub {
        my ($args) = @_;
        my ($dbh, $out) = @$args{qw(dbh out)};
        if ( column_exists( 'virtualshelfcontents', 'flags' ) ) {
            $dbh->do(
                q{
ALTER TABLE virtualshelfcontents DROP COLUMN flags;
            }
            );
            say $out "Removed column 'virtualshelfcontents.flags'";
        }
    },
};

Lines 5996-6002 DROP TABLE IF EXISTS `virtualshelfcontents`; Link Here

(-)a/installer/data/mysql/kohastructure.sql (-2 lines)
5996	CREATE TABLE `virtualshelfcontents` (	5996	CREATE TABLE `virtualshelfcontents` (
5997	`shelfnumber` int(11) NOT NULL DEFAULT 0 COMMENT 'foreign key linking to the virtualshelves table, defines the list that this record has been added to',	5997	`shelfnumber` int(11) NOT NULL DEFAULT 0 COMMENT 'foreign key linking to the virtualshelves table, defines the list that this record has been added to',
5998	`biblionumber` int(11) NOT NULL DEFAULT 0 COMMENT 'foreign key linking to the biblio table, defines the bib record that has been added to the list',	5998	`biblionumber` int(11) NOT NULL DEFAULT 0 COMMENT 'foreign key linking to the biblio table, defines the bib record that has been added to the list',
5999	`flags` int(11) DEFAULT NULL,
6000	`dateadded` timestamp NOT NULL DEFAULT current_timestamp() ON UPDATE current_timestamp() COMMENT 'date and time this bib record was added to the list',	5999	`dateadded` timestamp NOT NULL DEFAULT current_timestamp() ON UPDATE current_timestamp() COMMENT 'date and time this bib record was added to the list',
6001	`borrowernumber` int(11) DEFAULT NULL COMMENT 'borrower number that created this list entry (only the first one is saved: no need for use in/as key)',	6000	`borrowernumber` int(11) DEFAULT NULL COMMENT 'borrower number that created this list entry (only the first one is saved: no need for use in/as key)',
6002	KEY `shelfnumber` (`shelfnumber`),	6001	KEY `shelfnumber` (`shelfnumber`),
6003	-

Return to bug 33379

Line 0 Link Here

(-)a/installer/data/mysql/atomicupdate/bug33379.pl (+18 lines)
	1	use Modern::Perl;
	2
	3	return {
	4	bug_number => 33379,
	5	description => "Remove unused column virtualshelfcontents.flags",
	6	up => sub {
	7	my ($args) = @_;
	8	my ($dbh, $out) = @$args{qw(dbh out)};
	9	if ( column_exists( 'virtualshelfcontents', 'flags' ) ) {
	10	$dbh->do(
	11	q{
	12	ALTER TABLE virtualshelfcontents DROP COLUMN flags;
	13	}
	14	);
	15	say $out "Removed column 'virtualshelfcontents.flags'";
	16	}
	17	},
	18	};