- 

use Modern::Perl;

return {

    bug_number => 29246,

    description => "Rename pref template and opacthemes",

    up => sub {

        my ($args) = @_;

        my ($dbh, $out) = @$args{qw(dbh out)};

        my $sql = q|UPDATE systempreferences SET variable=? WHERE variable=?|;

        $dbh->do( $sql, undef, 'opactheme', 'opacthemes');

        $dbh->do( $sql, undef, 'intranet_theme', 'template');

    },

}