-
use Modern::Perl;
return {
bug_number => 2222,
description => "Remove auth_subfield_structure.frameworkcode",
up => sub {
my ($args) = @_;
my ($dbh, $out) = @$args{qw(dbh out)};
my $sql = q|ALTER TABLE auth_subfield_structure DROP COLUMN frameworkcode|;
if( column_exists( 'auth_subfield_structure', 'frameworkcode' ) ) {
warn "L11";
$dbh->do($sql);
}
},
};