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

Rename template variables in the Account and Admin Toggle templates to not use underscores.

Browse source
This commit is contained in:
Colin Kuskie 2010-09-21 11:12:30 -07:00
parent 6f4e3415ea
commit f61e8faeb9
10 changed files with 88 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

20
share/upgrades/7.9.13-8.0.0/zzz_renameAccountMacroTemplateVariables.pl Normal file
View file

@ -0,0 +1,20 @@
use WebGUI::Upgrade::Script;
start_step "Rename Account Macro template variables";
my $sth = session->db->read( q|SELECT assetId, revisionDate FROM template where namespace="Macro/a_account"| );
ASSET: while ( my ($assetId, $revisionDate) = $sth->array ) {
my $asset = eval { WebGUI::Asset->newById( session, $assetId, $revisionDate ); };
next ASSET if Exception::Class->caught;
my $template = $asset->get('template');
$template =~ s/account\.url/account_url/msg;
$template =~ s/account\.text/account_text/msg;
$asset->update({
template => $template,
});
}
done;

20
share/upgrades/7.9.13-8.0.0/zzz_renameAdminToggleMacroTemplateVariables.pl Normal file
View file

@ -0,0 +1,20 @@
use WebGUI::Upgrade::Script;
start_step "Rename AdminToggle Macro template variables";
my $sth = session->db->read( q|SELECT assetId, revisionDate FROM template where namespace="Macro/AdminToggle"| );
ASSET: while ( my ($assetId, $revisionDate) = $sth->array ) {
my $asset = eval { WebGUI::Asset->newById( session, $assetId, $revisionDate ); };
next ASSET if Exception::Class->caught;
my $template = $asset->get('template');
$template =~ s/toggle\.url/toggle_url/msg;
$template =~ s/toggle\.text/toggle_text/msg;
$asset->update({
template => $template,
});
}
done;