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

Made the ^AdminBar; macro.

Browse source
This commit is contained in:
JT Smith 2002-05-27 04:35:59 +00:00
parent 14c7e01759
commit 4934682de6
2 changed files with 2 additions and 108 deletions
Download patch file Download diff file Expand all files Collapse all files

106
lib/WebGUI.pm
View file

@ -13,7 +13,6 @@ our $VERSION = "3.9.0";
use strict qw(vars subs);
use Tie::CPHash;
use Tie::IxHash;
use WebGUI::ErrorHandler;
use WebGUI::Icon;
use WebGUI::International;
@ -23,108 +22,6 @@ use WebGUI::Session;
use WebGUI::SQL;
use WebGUI::Style;
use WebGUI::Template;
use WebGUI::URL;
use WebGUI::Utility;
#-------------------------------------------------------------------
sub _displayAdminBar {
my (%hash2, $miscSelect, $adminSelect, $clipboardSelect,
%hash, $output, $contentSelect, $key);
tie %hash, "Tie::IxHash";
tie %hash2, "Tie::IxHash";
#--content adder
$hash{WebGUI::URL::page()} = WebGUI::International::get(1);
$hash{WebGUI::URL::page('op=editPage&npp='.$session{page}{pageId})} = WebGUI::International::get(2);
$hash{WebGUI::URL::page('op=selectPackageToDeploy')} = WebGUI::International::get(376);
foreach $key (keys %{$session{wobject}}) {
$hash2{WebGUI::URL::page('func=edit&wid=new&namespace='.$key)} = $session{wobject}{$key};
}
%hash2 = sortHash(%hash2);
%hash = (%hash, %hash2);
$contentSelect = WebGUI::Form::selectList("contentSelect",\%hash,"","","","goContent()");
#--clipboard paster
%hash2 = ();
$hash2{WebGUI::URL::page()} = WebGUI::International::get(3);
%hash = WebGUI::SQL->buildHash("select pageId,title from page where parentId=2 order by title");
foreach $key (keys %hash) {
$hash2{WebGUI::URL::page('op=pastePage&pageId='.$key)} = $hash{$key};
}
%hash = WebGUI::SQL->buildHash("select wobjectId,title from wobject where pageId=2 order by title");
foreach $key (keys %hash) {
$hash2{WebGUI::URL::page('func=paste&wid='.$key)} = $hash{$key};
}
$clipboardSelect = WebGUI::Form::selectList("clipboardSelect",\%hash2,"","","","goClipboard()");
#--admin functions
%hash = ();
if (WebGUI::Privilege::isInGroup(3,$session{user}{userId})) {
%hash = (
WebGUI::URL::page('op=listGroups')=>WebGUI::International::get(5),
WebGUI::URL::page('op=manageSettings')=>WebGUI::International::get(4),
WebGUI::URL::page('op=listUsers')=>WebGUI::International::get(7),
WebGUI::URL::gateway('trash')=>WebGUI::International::get(10),
WebGUI::URL::page('op=listRoots')=>WebGUI::International::get(410),
WebGUI::URL::page('op=viewStatistics')=>WebGUI::International::get(144)
);
}
if (WebGUI::Privilege::isInGroup(4,$session{user}{userId})) {
%hash = (
'http://validator.w3.org/check?uri=http%3A%2F%2F'.$session{env}{SERVER_NAME}.
WebGUI::URL::page()=>WebGUI::International::get(399),
WebGUI::URL::page('op=listImages')=>WebGUI::International::get(394),
WebGUI::URL::page('op=viewPageTree')=>WebGUI::International::get(447),
%hash
);
}
if (WebGUI::Privilege::isInGroup(5,$session{user}{userId})) {
%hash = (
WebGUI::URL::page('op=listStyles')=>WebGUI::International::get(6),
%hash
);
}
if (WebGUI::Privilege::isInGroup(6,$session{user}{userId})) {
%hash = (
WebGUI::URL::gateway('packages')=>WebGUI::International::get(374),
%hash
);
}
if (WebGUI::Privilege::isInGroup(8,$session{user}{userId})) {
%hash = (
WebGUI::URL::page('op=listTemplates')=>WebGUI::International::get(508),
%hash
);
}
%hash = (
WebGUI::URL::page('op=viewHelpIndex')=>WebGUI::International::get(13),
%hash
);
%hash = sortHash(%hash);
%hash = (
WebGUI::URL::page()=>WebGUI::International::get(82),
WebGUI::URL::page('op=switchOffAdmin')=>WebGUI::International::get(12),
%hash
);
$adminSelect = WebGUI::Form::selectList("adminSelect",\%hash,"","","","goAdmin()");
#--output admin bar
$output = '
<div class="adminBar"><table class="adminBar" width="100%" cellpadding="3" cellspacing="0" border="0"><tr>
<script language="JavaScript" type="text/javascript"> <!--
function goContent(){
location = document.content.contentSelect.options[document.content.contentSelect.selectedIndex].value
}
function goAdmin(){
location = document.admin.adminSelect.options[document.admin.adminSelect.selectedIndex].value
}
function goClipboard(){
location = document.clipboard.clipboardSelect.options[document.clipboard.clipboardSelect.selectedIndex].value
}
//--> </script>
<form name="content"> <td>'.$contentSelect.'</td> </form>
<form name="clipboard"> <td align="center">'.$clipboardSelect.'</td> </form>
<form name="admin"> <td align="center">'.$adminSelect.'</td> </form>
</tr></table></div>
';
return $output;
}
#-------------------------------------------------------------------
sub page {
@ -221,9 +118,6 @@ sub page {
$content = WebGUI::Template::generate(\%contentHash,1);
}
}
if ($session{var}{adminOn}) {
$adminBar = _displayAdminBar();
}
if ($session{header}{redirect} ne "") {
return $session{header}{redirect};
} else {

4
lib/WebGUI/Operation/Style.pm
View file

@ -78,7 +78,7 @@ sub www_editStyle {
tie %style, 'Tie::CPHash';
if (WebGUI::Privilege::isInGroup(5)) {
if ($session{form}{sid} eq "new") {
$style{body} = "<body>\n\n^-;\n\n</body>";
$style{body} = "^AdminBar;\n\n<body>\n\n^-;\n\n</body>";
$style{styleSheet} = "<style>\n\n</style>";
} else {
%style = WebGUI::SQL->quickHash("select * from style where styleId=$session{form}{sid}");
@ -107,7 +107,7 @@ sub www_editStyleSave {
$session{form}{sid} = getNextId("styleId");
WebGUI::SQL->write("insert into style (styleId) values ($session{form}{sid})");
}
$session{form}{body} = "^-;" if ($session{form}{body} eq "");
$session{form}{body} = "^AdminBar;\n\n<body>\n\n^-;\n\n</body>" if ($session{form}{body} eq "");
WebGUI::SQL->write("update style set name=".quote($session{form}{name}).", body=".quote($session{form}{body}).",
styleSheet=".quote($session{form}{styleSheet})." where styleId=".$session{form}{sid});
return www_listStyles();