added template variable definitions as an option to the help system

This commit is contained in:
JT Smith 2006-05-14 04:05:51 +00:00
parent 7653f450b4
commit 0673df503d
7 changed files with 293 additions and 114 deletions

View file

@ -0,0 +1,50 @@
#PBtmplHelp000000000001
<p><tmpl_var body></p>
<tmpl_if fields>
<dl>
<tmpl_loop fields>
<dt><tmpl_var title></dt>
<dd><tmpl_var description>
<tmpl_if uiLevel> <br /><i><tmpl_var uiLevelLabel>:</i><tmpl_var uiLevel> </tmpl_if>
</dd>
</tmpl_loop>
</dl>
</tmpl_if>
<tmpl_if variable_loop1>
<dl> <tmpl_loop variable_loop1>
<dt><tmpl_var title></dt>
<dd><tmpl_var description>
<tmpl_if variable_loop2>
<dl> <tmpl_loop variable_loop2>
<dt><tmpl_var title></dt>
<dd><tmpl_var description>
<tmpl_if variable_loop3>
<dl> <tmpl_loop variable_loop3>
<dt><tmpl_var title></dt>
<dd><tmpl_var description>
<tmpl_if variable_loop4>
<dl> <tmpl_loop variable_loop4>
<dt><tmpl_var title></dt>
<dd><tmpl_var description></dd>
</tmpl_loop> </dl>
</tmpl_if></dd>
</tmpl_loop> </dl>
</tmpl_if></dd>
</tmpl_loop> </dl>
</tmpl_if></dd>
</tmpl_loop> </dl>
</tmpl_if>
~~~
<style type="text/css">
dt {
margin-bottom: 15px;
}
dt {
font-weight: bold;
}
</style>

View file

@ -43,7 +43,6 @@ addDisabletoRichEditor();
addNavigationMimeType();
addIndexes();
addDatabaseCache();
updateHelpTemplate();
fixImportNodePrivileges();
addAdManager();
updateMatrix();
@ -1057,30 +1056,6 @@ sub ip2cidr {
}
#-------------------------------------------------
sub updateHelpTemplate {
print "\tUpdating Help template.\n" unless ($quiet);
my $template = <<EOT;
<p><tmpl_var body></p>
<tmpl_if fields>
<dl>
<tmpl_loop fields>
<dt><tmpl_var title></dt>
<dd><tmpl_var description>
<tmpl_if uiLevel>
<br /><i><tmpl_var uiLevelLabel>:</i><tmpl_var uiLevel>
</tmpl_if>
</dd>
</tmpl_loop>
</dl>
</tmpl_if>
EOT
my $asset = WebGUI::Asset->new($session,"PBtmplHelp000000000001","WebGUI::Asset::Template");
$asset->addRevision({template=>$template});
}
#-------------------------------------------------
sub installSQLForm {
print "\tInstalling SQLForm tables.\n" unless ($quiet);