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

WebGUI 3.0.1 release

Browse source
This commit is contained in:
JT Smith 2002-01-15 05:45:00 +00:00
parent baec9039ef
commit 237925b365
43 changed files with 129 additions and 329 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lib/WebGUI/Macro/At_username.pm
View file

@ -18,10 +18,6 @@ sub process {
my ($output);
$output = $_[0];
$output =~ s/\^\@\;/$session{user}{username}/g;
#---everything below this line will go away in a later rev.
if ($output =~ /\^\@/) {
$output =~ s/\^\@/$session{user}{username}/g;
}
return $output;
}

4
lib/WebGUI/Macro/Backslash_pageUrl.pm
View file

@ -18,10 +18,6 @@ sub process {
my ($output);
$output = $_[0];
$output =~ s/\^\\\;/$session{page}{url}/g;
#---everything below this line will go away in a later rev.
if ($output =~ /\^\\/) {
$output =~ s/\^\\/$session{page}{url}/g;
}
return $output;
}

5
lib/WebGUI/Macro/C_crumbTrail.pm
View file

@ -41,11 +41,6 @@ sub process {
my ($output, $temp);
$output = $_[0];
$output =~ s/\^C\;/_replacement()/ge;
#---everything below this line will go away in a later rev.
if ($output =~ /\^C/) {
$temp = '<span class="crumbTrail">'._recurseCrumbTrail($session{page}{parentId}).'<a href="'.$session{page}{url}.'">'.$session{page}{title}.'</a></span>';
$output =~ s/\^C/$temp/g;
}
return $output;
}

10
lib/WebGUI/Macro/D_date.pm
View file

@ -28,18 +28,10 @@ sub _replacement {
#-------------------------------------------------------------------
sub process {
my ($output, $temp, @param);
my ($output);
$output = $_[0];
$output =~ s/\^D\((.*?)\)\;/_replacement($1)/ge;
$output =~ s/\^D\;/_replacement()/ge;
#---everything below this line will go away in a later rev.
if ($output =~ /\^D(.*)\^\/D/) {
$temp = epochToHuman(time(),$1);
$output =~ s/\^D(.*)\^\/D/$temp/g;
} elsif ($output =~ /\^D/) {
$temp = localtime(time);
$output =~ s/\^D/$temp/g;
}
return $output;
}

8
lib/WebGUI/Macro/H_homeLink.pm
View file

@ -35,14 +35,6 @@ sub process {
$output = $_[0];
$output =~ s/\^H\((.*?)\)\;/_replacement($1)/ge;
$output =~ s/\^H\;/_replacement()/ge;
#---everything below this line will go away in a later rev.
if ($output =~ /\^H(.*)\^\/H/) {
$temp = '<a class="homeLink" href="'.$session{env}{SCRIPT_NAME}.'/home">'.$1.'</a>';
$output =~ s/\^H(.*)\^\/H/$temp/g;
} elsif ($output =~ /\^H/) {
$temp = '<a class="homeLink" href="'.$session{env}{SCRIPT_NAME}.'/home">'.WebGUI::International::get(47).'</a>';
$output =~ s/\^H/$temp/g;
}
return $output;
}

4
lib/WebGUI/Macro/Hash_userId.pm
View file

@ -18,10 +18,6 @@ sub process {
my ($output);
$output = $_[0];
$output =~ s/\^\#\;/$session{user}{userId}/g;
#---everything below this line will go away in a later rev.
if ($output =~ /\^\#/) {
$output =~ s/\^\#/$session{user}{userId}/g;
}
return $output;
}

24
lib/WebGUI/Macro/L_loginBox.pm
View file

@ -47,30 +47,6 @@ sub process {
my ($output, $temp);
$output = $_[0];
$output =~ s/\^L\;/_replacement()/ge;
#---everything below this line will go away in a later rev.
if ($output =~ /\^L/) {
$temp = '<div class="loginBox">';
if ($session{var}{sessionId}) {
$temp .= WebGUI::International::get(48);
$temp .= ' <a href="'.$session{page}{url}.'?op=displayAccount">'.$session{user}{username}.'</a>. ';
$temp .= WebGUI::International::get(49);
$temp = WebGUI::Macro::Backslash_pageUrl::process($temp);
} else {
$temp .= '<form method="post" action="'.$session{page}{url}.'"> ';
$temp .= WebGUI::Form::hidden("op","login").'<span class="formSubtext">';
$temp .= WebGUI::International::get(50);
$temp .= '<br></span>';
$temp .= WebGUI::Form::text("username",12,30).'<span class="formSubtext"><br>';
$temp .= WebGUI::International::get(51);
$temp .= '<br></span>';
$temp .= WebGUI::Form::password("identifier",12,30).'<span class="formSubtext"><br></span>';
$temp .= WebGUI::Form::submit(WebGUI::International::get(52));
$temp .= '</form>';
$temp .= '<a href="'.$session{page}{url}.'?op=createAccount">Click here to register.</a>';
}
$temp .= '</div>';
$output =~ s/\^L/$temp/g;
}
return $output;
}

12
lib/WebGUI/Macro/M_currentMenuVertical.pm
View file

@ -35,18 +35,6 @@ sub process {
$output = $_[0];
$output =~ s/\^M\((.*?)\)\;/_replacement($1)/ge;
$output =~ s/\^M\;/_replacement()/ge;
#---everything below this line will go away in a later rev.
if ($output =~ /\^M(.*)\^\/M/) {
$temp = '<span class="verticalMenu">';
$temp .= traversePageTree($session{page}{pageId},0,$1);
$temp .= '</span>';
$output =~ s/\^M(.*)\^\/M/$temp/g;
} elsif ($output =~ /\^M/) {
$temp = '<span class="verticalMenu">';
$temp .= traversePageTree($session{page}{pageId},0,1);
$temp .= '</span>';
$output =~ s/\^M/$temp/g;
}
return $output;
}

12
lib/WebGUI/Macro/P_previousMenuVertical.pm
View file

@ -35,18 +35,6 @@ sub process {
$output = $_[0];
$output =~ s/\^P\((.*?)\)\;/_replacement($1)/ge;
$output =~ s/\^P\;/_replacement()/ge;
#---everything below this line will go away in a later rev.
if ($output =~ /\^P(.*)\^\/P/) {
$temp = '<span class="verticalMenu">';
$temp .= traversePageTree($session{page}{parentId},0,$1);
$temp .= '</span>';
$output =~ s/\^P(.*)\^\/P/$temp/g;
} elsif ($output =~ /\^P/) {
$temp = '<span class="verticalMenu">';
$temp .= traversePageTree($session{page}{parentId},0,1);
$temp .= '</span>';
$output =~ s/\^P/$temp/g;
}
return $output;
}

15
lib/WebGUI/Macro/S_specificMenuVertical.pm
View file

@ -39,21 +39,6 @@ sub process {
$output = $_[0];
$output =~ s/\^S\((.*?)\)\;/_replacement($1)/ge;
$output =~ s/\^S\;/_replacement()/ge;
#---everything below this line will go away in a later rev.
my ($pageTitle, $depth);
if ($output =~ /\^S(.*)\^\/S/) {
($pageTitle,$depth) = split(/,/,$1);
if ($depth eq "") {
$depth = 0;
}
@data = WebGUI::SQL->quickArray("select pageId,title,urlizedTitle from page where urlizedTitle='$pageTitle'");
$temp = '<span class="verticalMenu">';
if (defined $data[0] && WebGUI::Privilege::canViewPage($data[0])) {
$temp .= traversePageTree($data[0],1,$depth);
}
$temp .= '</span>';
$output =~ s/\^S(.*)\^\/S/$temp/g;
}
return $output;
}

8
lib/WebGUI/Macro/Splat_random.pm
View file

@ -32,14 +32,6 @@ sub process {
$output = $_[0];
$output =~ s/\^\*\((.*?)\)\;/_replacement($1)/ge;
$output =~ s/\^\*\;/_replacement()/ge;
#---everything below this line will go away in a later rev.
if ($output =~ /\^\*(.*)\^\/\*/) {
$temp = round(rand()*$1);
$output =~ s/\^\*(.*)\^\/\*/$temp/g;
} elsif ($output =~ /\^\*/) {
$temp = round(rand()*1000000000);
$output =~ s/\^\*/$temp/g;
}
return $output;
}

12
lib/WebGUI/Macro/T_topMenuVertical.pm
View file

@ -34,18 +34,6 @@ sub process {
$output = $_[0];
$output =~ s/\^T\((.*?)\)\;/_replacement($1)/ge;
$output =~ s/\^T\;/_replacement()/ge;
#---everything below this line will go away in a later rev.
if ($output =~ /\^T(.*)\^\/T/) {
$temp = '<span class="verticalMenu">';
$temp .= traversePageTree(1,0,$1);
$temp .= '</span>';
$output =~ s/\^T(.*)\^\/T/$temp/g;
} elsif ($output =~ /\^T/) {
$temp = '<span class="verticalMenu">';
$temp .= traversePageTree(1,0,1);
$temp .= '</span>';
$output =~ s/\^T/$temp/g;
}
return $output;
}

8
lib/WebGUI/Macro/a_account.pm
View file

@ -35,14 +35,6 @@ sub process {
$output = $_[0];
$output =~ s/\^a\((.*?)\)\;/_replacement($1)/ge;
$output =~ s/\^a\;/_replacement()/ge;
#---everything below this line will go away in a later rev.
if ($output =~ /\^a(.*)\^\/a/) {
$temp = '<a class="myAccountLink" href="'.$session{page}{url}.'?op=displayAccount">'.$1.'</a>';
$output =~ s/\^a(.*)\^\/a/$temp/g;
} elsif ($output =~ /\^a/) {
$temp = '<a class="myAccountLink" href="'.$session{page}{url}.'?op=displayAccount">'.WebGUI::International::get(46).'</a>';
$output =~ s/\^a/$temp/g;
}
return $output;
}

4
lib/WebGUI/Macro/c_companyName.pm
View file

@ -18,10 +18,6 @@ sub process {
my ($output);
$output = $_[0];
$output =~ s/\^c\;/$session{setting}{companyName}/g;
#---everything below this line will go away in a later rev.
if ($output =~ /\^c/) {
$output =~ s/\^c/$session{setting}{companyName}/g;
}
return $output;
}

4
lib/WebGUI/Macro/e_companyEmail.pm
View file

@ -18,10 +18,6 @@ sub process {
my ($output);
$output = $_[0];
$output =~ s/\^e\;/$session{setting}{companyEmail}/g;
#---everything below this line will go away in a later rev.
if ($output =~ /\^e/) {
$output =~ s/\^e/$session{setting}{companyEmail}/g;
}
return $output;
}

19
lib/WebGUI/Macro/m_currentMenuHorizontal.pm
View file

@ -41,25 +41,6 @@ sub process {
my ($output, $temp, @data, $sth, $first);
$output = $_[0];
$output =~ s/\^m\;/_replacement()/ge;
#---everything below this line will go away in a later rev.
if ($output =~ /\^m/) {
$temp = '<span class="horizontalMenu">';
$first = 1;
$sth = WebGUI::SQL->read("select title,urlizedTitle,pageId from page where parentId=$session{page}{pageId} order by sequenceNumber");
while (@data = $sth->array) {
if (WebGUI::Privilege::canViewPage($data[2])) {
if ($first) {
$first = 0;
} else {
$temp .= " &middot; ";
}
$temp .= '<a class="horizontalMenu" href="'.$session{env}{SCRIPT_NAME}.'/'.$data[1].'">'.$data[0].'</a>';
}
}
$sth->finish;
$temp .= '</span>';
$output =~ s/\^m/$temp/g;
}
return $output;
}

19
lib/WebGUI/Macro/p_previousMenuHorizontal.pm
View file

@ -42,25 +42,6 @@ sub process {
my ($output, $temp, @data, $sth, $first);
$output = $_[0];
$output =~ s/\^p\;/_replacement()/ge;
#---everything below this line will go away in a later rev.
if ($output =~ /\^p/) {
$temp = '<span class="horizontalMenu">';
$first = 1;
$sth = WebGUI::SQL->read("select title,urlizedTitle,pageId from page where parentId=$session{page}{parentId} order by sequenceNumber");
while (@data = $sth->array) {
if (WebGUI::Privilege::canViewPage($data[2])) {
if ($first) {
$first = 0;
} else {
$temp .= " &middot; ";
}
$temp .= '<a class="horizontalMenu" href="'.$session{env}{SCRIPT_NAME}.'/'.$data[1].'">'.$data[0].'</a>';
}
}
$sth->finish;
$temp .= '</span>';
$output =~ s/\^p/$temp/g;
}
return $output;
}

12
lib/WebGUI/Macro/r_printable.pm
View file

@ -37,18 +37,6 @@ sub process {
$output = $_[0];
$output =~ s/\^r\((.*?)\)\;/_replacement($1)/ge;
$output =~ s/\^r\;/_replacement()/ge;
#---everything below this line will go away in a later rev.
if ($output =~ /\^r(.*)\^\/r/) {
$temp = appendToUrl($session{env}{REQUEST_URI},'makePrintable=1');
$temp = '<a class="makePrintableLink" href="'.$temp.'">'.$1.'</a>';
$output =~ s/\^r(.*)\^\/r/$temp/g;
} elsif ($output =~ /\^r/) {
$temp = appendToUrl($session{env}{REQUEST_URI},'makePrintable=1');
$temp = '<a class="makePrintableLink" href="'.$temp.'">';
$temp .= WebGUI::International::get(53);
$temp .= '</a>';
$output =~ s/\^r/$temp/g;
}
return $output;
}

21
lib/WebGUI/Macro/s_specificMenuHorizontal.pm
View file

@ -45,27 +45,6 @@ sub process {
$output = $_[0];
$output =~ s/\^s\((.*?)\)\;/_replacement($1)/ge;
$output =~ s/\^s\;/_replacement()/ge;
#---everything below this line will go away in a later rev.
if ($output =~ /\^s(.*)\^\/s/) {
$pageTitle = $1;
$temp = '<span class="horizontalMenu">';
$first = 1;
($parentId) = WebGUI::SQL->quickArray("select pageId from page where urlizedTitle='$pageTitle'");
$sth = WebGUI::SQL->read("select title,urlizedTitle,pageId from page where parentId='$parentId' order by sequenceNumber");
while (@data = $sth->array) {
if (WebGUI::Privilege::canViewPage($data[2])) {
if ($first) {
$first = 0;
} else {
$temp .= " &middot; ";
}
$temp .= '<a class="horizontalMenu" href="'.$session{env}{SCRIPT_NAME}.'/'.$data[1].'">'.$data[0].'</a>';
}
}
$sth->finish;
$temp .= '</span>';
$output =~ s/\^s(.*)\^\/s/$temp/g;
}
return $output;
}

19
lib/WebGUI/Macro/t_topMenuHorizontal.pm
View file

@ -41,25 +41,6 @@ sub process {
my ($output, $temp, @data, $sth, $first);
$output = $_[0];
$output =~ s/\^t\;/_replacement()/ge;
#---everything below this line will go away in a later rev.
if ($output =~ /\^t/) {
$temp = '<span class="horizontalMenu">';
$first = 1;
$sth = WebGUI::SQL->read("select title,urlizedTitle,pageId from page where parentId=1 order by sequenceNumber");
while (@data = $sth->array) {
if (WebGUI::Privilege::canViewPage($data[2])) {
if ($first) {
$first = 0;
} else {
$temp .= " &middot; ";
}
$temp .= '<a class="horizontalMenu" href="'.$session{env}{SCRIPT_NAME}.'/'.$data[1].'">'.$data[0].'</a>';
}
}
$sth->finish;
$temp .= '</span>';
$output =~ s/\^t/$temp/g;
}
return $output;
}

4
lib/WebGUI/Macro/u_companyUrl.pm
View file

@ -18,10 +18,6 @@ sub process {
my ($output);
$output = $_[0];
$output =~ s/\^u\;/$session{setting}{companyURL}/g;
#---everything below this line will go away in a later rev.
if ($output =~ /\^u/) {
$output =~ s/\^u/$session{setting}{companyURL}/g;
}
return $output;
}