30 lines
861 B
Perl
Executable file
30 lines
861 B
Perl
Executable file
use Modern::Perl;
|
|
|
|
return {
|
|
bug_number => "28959",
|
|
description => "virtualshelves.category is really a boolean",
|
|
up => sub {
|
|
my ($args) = @_;
|
|
my ($dbh) = @$args{qw(dbh)};
|
|
|
|
unless( column_exists( 'virtualshelves', 'public' ) ) {
|
|
# Add column
|
|
$dbh->do(q{
|
|
ALTER TABLE virtualshelves
|
|
ADD COLUMN `public` TINYINT(1) NOT NULL DEFAULT 0 COMMENT 'If the list is public'
|
|
AFTER `owner`;
|
|
});
|
|
# Set public lists
|
|
$dbh->do(q{
|
|
UPDATE virtualshelves
|
|
SET public = 1
|
|
WHERE category = 2;
|
|
});
|
|
# Drop old column
|
|
$dbh->do(q{
|
|
ALTER TABLE virtualshelves
|
|
DROP COLUMN `category`;
|
|
});
|
|
}
|
|
},
|
|
}
|