webgui/share/upgrades/7.10.15-8.0.0/removeAdminBar.pl

use WebGUI::Upgrade::Script;

start_step "Editing templates to remove AdminBar macro calls";

use WebGUI::Macro;
use WebGUI::Asset::Template;

my $removeAdminBar = sub {
    my $macro = shift;
    if ($macro->{macro} eq 'AdminBar' || $macro->{macroPackage} eq 'WebGUI::Macro::AdminBar' ) {
        return '';
    }
    else {
        return;
    }
};
my $iter    = WebGUI::Asset::Template->getIsa( session );
ASSET: while (1) {
    my $template = eval { $iter->() };
    if (my $e = Exception::Class->caught()) {
        session->log->error($@);
        next ASSET;
    }
    last ASSET unless $template;

    my $content = $template->template;
    WebGUI::Macro::transform( session, \$content, $removeAdminBar );
    $template->template( $content );
    $template->write;
}

done;

start_step "Removing Admin Bar";

session->config->delete( 'macros/AdminBar' );

done;