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

WebGUI 1.1.0 release

Browse source
This commit is contained in:
JT Smith 2001-09-16 01:10:00 +00:00
parent d53f48c857
commit b2cd674d4d
17 changed files with 310 additions and 80 deletions
Download patch file Download diff file Expand all files Collapse all files

20
lib/WebGUI/Macro.pm
View file

@ -60,10 +60,14 @@ sub process {
if ($output =~ /\^\^/) {
$output =~ s/\^\^/\^/g;
}
#---page url---
#---script url---
if ($output =~ /\^\//) {
$output =~ s/\^\//$session{env}{SCRIPT_NAME}/g;
}
#---page url---
if ($output =~ /\^\\/) {
$output =~ s/\^\\/$session{page}{url}/g;
}
#---username---
if ($output =~ /\^\@/) {
$output =~ s/\^\@/$session{user}{username}/g;
@ -126,6 +130,20 @@ sub process {
$temp = '<a href="'.$session{env}{SCRIPT_NAME}.'/home">Home</a>';
$output =~ s/\^H/$temp/g;
}
#---2 level current level menu (vertical)---
if ($output =~ /\^j/) {
$temp = '<span class="verticalMenu">';
$temp .= _traversePageTree($session{page}{pageId},0,2);
$temp .= '</span>';
$output =~ s/\^j/$temp/g;
}
#---3 level current level menu (vertical)---
if ($output =~ /\^J/) {
$temp = '<span class="verticalMenu">';
$temp .= _traversePageTree($session{page}{pageId},0,3);
$temp .= '</span>';
$output =~ s/\^J/$temp/g;
}
#---login box---
if ($output =~ /\^L/) {
$temp = '<div class="loginBox">';