oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

remove AdminBar macro from all templates

Browse source
This commit is contained in:
Doug Bell 2010-08-06 16:02:23 -05:00
parent 4eee60512d
commit f1fed19e24
1 changed files with 27 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

28
share/upgrades/7.9.10-8.0.0/removeAdminBar.pl
View file

@ -1,10 +1,36 @@
use WebGUI::Upgrade::Script;
report "\tRemoving Admin Bar... ";
session->config->delete( 'macros/AdminBar' );
report "\tEditing templates to remove AdminBar macro calls...";
use WebGUI::Macro;
use WebGUI::Asset::Template;
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;
while ( $content =~ m/$WebGUI::Macro::macro_re/g ) {
my $macroCall = $1;
my $macroName = $2;
if ( $macroName eq 'AdminBar' ) {
$content =~ s/\Q$macroCall//g;
}
}
$template->template( $content );
$template->write;
}
done;