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

Fix bad Event URL template variables.

Browse source
This commit is contained in:
Colin Kuskie 2009-04-27 18:39:14 +00:00
parent 15f1391a01
commit 142518035d
6 changed files with 69 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

27
docs/upgrades/upgrade_7.7.4-7.7.5.pl
View file

@ -38,6 +38,8 @@ installStoryManagerTables($session);
sm_upgradeConfigFiles($session);
sm_updateDailyWorkflow($session);
correctEventTemplateVariables($session);
finish($session); # this line required
@ -140,6 +142,31 @@ sub sm_updateDailyWorkflow {
print "DONE!\n" unless $quiet;
}
sub correctEventTemplateVariables {
my ($session) = @_;
print "\tCorrect Event Template Variables for URL actions... " unless $quiet;
my $root = WebGUI::Asset->getRoot($session);
my $getATemplate = $root->getLineageIterator(['descendants'], {
returnObjects => 1,
includeOnlyClasses => ['WebGUI::Asset::Template'],
joinClass => 'WebGUI::Asset::Template',
whereClause => q!template.namespace = 'Calendar/Event' and template.parser='WebGUI::Asset::Template::HTMLTemplate'!,
});
TEMPLATE: while (my $templateAsset = $getATemplate->()) {
print("\t\t Correcting ". $templateAsset->getTitle. "\n") unless $quiet;
my $template = $templateAsset->get('template');
$template =~ s{<tmpl_var url>\?func=edit}{<tmpl_var urlEdit>}isg;
$template =~ s{<tmpl_var url>\?func=delete}{<tmpl_var urlDelete>}isg;
$template =~ s{<tmpl_var url>\?print=1}{<tmpl_var urlPrint>}isg;
$template =~ s{<tmpl_var url>\?type=list}{<tmpl_var urlList>}isg;
$templateAsset->update({
template => $template,
});
}
print "DONE!\n" unless $quiet;
}
# -------------- DO NOT EDIT BELOW THIS LINE --------------------------------
#----------------------------------------------------------------------------