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

WebGUI 3.2.0 release

Browse source
This commit is contained in:
JT Smith 2002-02-11 04:15:00 +00:00
parent 71cd27d3bc
commit cb88a99e52
60 changed files with 1284 additions and 474 deletions
Download patch file Download diff file Expand all files Collapse all files

54
lib/WebGUI.pm
View file

@ -1,5 +1,5 @@
package WebGUI;
our $VERSION = "3.1.0";
our $VERSION = "3.2.0";
#-------------------------------------------------------------------
# WebGUI is Copyright 2001-2002 Plain Black Software.
@ -23,77 +23,81 @@ use WebGUI::SQL;
use WebGUI::Style;
use WebGUI::Template;
use WebGUI::Template::Default;
use WebGUI::URL;
use WebGUI::Utility;
#-------------------------------------------------------------------
sub _displayAdminBar {
my ($widgetName, $key, %hash2, $miscSelect, $adminSelect, $clipboardSelect, $widget, @widgetArray, %hash, $output, $contentSelect);
my ($widgetName, $key, %hash2, $miscSelect, $adminSelect, $clipboardSelect,
$widget, @widgetArray, %hash, $output, $contentSelect);
tie %hash, "Tie::IxHash";
tie %hash2, "Tie::IxHash";
#--content adder
@widgetArray = @_;
$hash{$session{page}{url}} = WebGUI::International::get(1);
$hash{$session{page}{url}.'?op=addPage'} = WebGUI::International::get(2);
$hash{$session{page}{url}.'?op=selectPackageToDeploy'} = WebGUI::International::get(376);
$hash{WebGUI::URL::page()} = WebGUI::International::get(1);
$hash{WebGUI::URL::page('op=addPage')} = WebGUI::International::get(2);
$hash{WebGUI::URL::page('op=selectPackageToDeploy')} = WebGUI::International::get(376);
foreach $widget (@widgetArray) {
$widgetName = "WebGUI::Widget::".$widget."::widgetName";
$hash2{$session{page}{url}.'?func=add&widget='.$widget} = &$widgetName;
$hash2{WebGUI::URL::page('func=add&widget='.$widget)} = &$widgetName;
}
%hash2 = sortHash(%hash2);
%hash = (%hash, %hash2);
$contentSelect = WebGUI::Form::selectList("contentSelect",\%hash,"","","","goContent()");
#--clipboard paster
%hash2 = ();
$hash2{$session{page}{url}} = WebGUI::International::get(3);
$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{$session{page}{url}.'?op=pastePage&pageId='.$key} = $hash{$key};
$hash2{WebGUI::URL::page('op=pastePage&pageId='.$key)} = $hash{$key};
}
%hash = WebGUI::SQL->buildHash("select widgetId,title from widget where pageId=2 order by title");
foreach $key (keys %hash) {
$hash2{$session{page}{url}.'?func=paste&wid='.$key} = $hash{$key};
$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 = (
$session{page}{url}.'?op=listGroups'=>WebGUI::International::get(5),
$session{page}{url}.'?op=manageSettings'=>WebGUI::International::get(4),
$session{page}{url}.'?op=listUsers'=>WebGUI::International::get(7),
$session{config}{scripturl}.'/page_not_found'=>WebGUI::International::get(8),
$session{config}{scripturl}.'/trash'=>WebGUI::International::get(10),
$session{page}{url}.'?op=purgeTrash'=>WebGUI::International::get(11),
$session{page}{url}.'?op=viewStatistics'=>WebGUI::International::get(144)
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('page_not_found')=>WebGUI::International::get(8),
WebGUI::URL::gateway('trash')=>WebGUI::International::get(10),
WebGUI::URL::page('op=purgeTrash')=>WebGUI::International::get(11),
WebGUI::URL::page('op=viewStatistics')=>WebGUI::International::get(144)
);
}
if (WebGUI::Privilege::isInGroup(4,$session{user}{userId})) {
%hash = (
$session{page}{url}.'?op=listImages'=>WebGUI::International::get(394),
$session{config}{scripturl}.'/clipboard'=>WebGUI::International::get(9),
'http://validator.w3.org/check?uri=http%3A%2F%2F'.$session{env}{SERVER_NAME}.
$session{page}{url}=>WebGUI::International::get(399),
WebGUI::URL::page('op=listImages')=>WebGUI::International::get(394),
WebGUI::URL::gateway('clipboard')=>WebGUI::International::get(9),
%hash
);
}
if (WebGUI::Privilege::isInGroup(5,$session{user}{userId})) {
%hash = (
$session{page}{url}.'?op=listStyles'=>WebGUI::International::get(6),
WebGUI::URL::page('op=listStyles')=>WebGUI::International::get(6),
%hash
);
}
if (WebGUI::Privilege::isInGroup(6,$session{user}{userId})) {
%hash = (
$session{config}{scripturl}.'/packages'=>WebGUI::International::get(374),
WebGUI::URL::gateway('packages')=>WebGUI::International::get(374),
%hash
);
}
%hash = (
$session{page}{url}.'?op=viewHelpIndex'=>WebGUI::International::get(13),
WebGUI::URL::page('op=viewHelpIndex')=>WebGUI::International::get(13),
%hash
);
%hash = sortHash(%hash);
%hash = (
$session{page}{url}.'?'=>WebGUI::International::get(82),
$session{page}{url}.'?op=switchOffAdmin'=>WebGUI::International::get(12),
WebGUI::URL::page()=>WebGUI::International::get(82),
WebGUI::URL::page('op=switchOffAdmin')=>WebGUI::International::get(12),
%hash
);
$adminSelect = WebGUI::Form::selectList("adminSelect",\%hash,"","","","goAdmin()");
@ -175,12 +179,12 @@ sub page {
} else {
if (WebGUI::Privilege::canViewPage()) {
if ($session{var}{adminOn}) {
$pageEdit = '<br><img src="'.$session{setting}{lib}.'/page.gif" border=0 alt="Page Settings:"><a href="'.$session{page}{url}.'?op=editPage"><img src="'.$session{setting}{lib}.'/edit.gif" border=0 alt="Edit Page"></a><a href="'.$session{page}{url}.'?op=cutPage"><img src="'.$session{setting}{lib}.'/cut.gif" border=0 alt="Cut Page"></a><a href="'.$session{page}{url}.'?op=deletePage"><img src="'.$session{setting}{lib}.'/delete.gif" border=0 alt="Delete Page"></a><a href="'.$session{page}{url}.'?op=movePageUp"><img src="'.$session{setting}{lib}.'/pageUp.gif" border=0 alt="Move Page Up"></a><a href="'.$session{page}{url}.'?op=movePageDown"><img src="'.$session{setting}{lib}.'/pageDown.gif" border=0 alt="Move Page Down"></a></span>'."\n\n";
$pageEdit = '<br><img src="'.$session{setting}{lib}.'/page.gif" border=0 alt="Page Settings:"><a href="'.WebGUI::URL::page('op=editPage').'"><img src="'.$session{setting}{lib}.'/edit.gif" border=0 alt="Edit Page"></a><a href="'.WebGUI::URL::page('op=cutPage').'"><img src="'.$session{setting}{lib}.'/cut.gif" border=0 alt="Cut Page"></a><a href="'.WebGUI::URL::page('op=deletePage').'"><img src="'.$session{setting}{lib}.'/delete.gif" border=0 alt="Delete Page"></a><a href="'.WebGUI::URL::page('op=movePageUp').'"><img src="'.$session{setting}{lib}.'/pageUp.gif" border=0 alt="Move Page Up"></a><a href="'.WebGUI::URL::page('op=movePageDown').'"><img src="'.$session{setting}{lib}.'/pageDown.gif" border=0 alt="Move Page Down"></a></span>'."\n\n";
}
$sth = WebGUI::SQL->read("select widgetId, namespace, templatePosition from widget where pageId=".$session{page}{pageId}." order by sequenceNumber, widgetId");
while (@widgetList = $sth->array) {
if ($session{var}{adminOn}) {
$contentHash{$widgetList[2]} .= '<hr><a href="'.$session{page}{url}.'?func=edit&wid='.$widgetList[0].'"><img src="'.$session{setting}{lib}.'/edit.gif" border=0 alt="Edit"></a><a href="'.$session{page}{url}.'?func=cut&wid='.$widgetList[0].'"><img src="'.$session{setting}{lib}.'/cut.gif" border=0 alt="Cut"></a><a href="'.$session{page}{url}.'?func=copy&wid='.$widgetList[0].'"><img src="'.$session{setting}{lib}.'/copy.gif" border=0 alt="Copy"></a><a href="'.$session{page}{url}.'?wid='.$widgetList[0].'&func=delete"><img src="'.$session{setting}{lib}.'/delete.gif" border=0 alt="Delete"></a><a href="'.$session{page}{url}.'?func=moveUp&wid='.$widgetList[0].'"><img src="'.$session{setting}{lib}.'/upArrow.gif" border=0 alt="Move Up"></a><a href="'.$session{page}{url}.'?func=moveDown&wid='.$widgetList[0].'"><img src="'.$session{setting}{lib}.'/downArrow.gif" border=0 alt="Move Down"></a><a href="'.$session{page}{url}.'?func=jumpUp&wid='.$widgetList[0].'"><img src="'.$session{setting}{lib}.'/jumpUp.gif" border=0 alt="Move to Top"></a><a href="'.$session{page}{url}.'?func=jumpDown&wid='.$widgetList[0].'"><img src="'.$session{setting}{lib}.'/jumpDown.gif" border=0 alt="Move to Bottom"></a><br>';
$contentHash{$widgetList[2]} .= '<hr><a href="'.WebGUI::URL::page('func=edit&wid='.$widgetList[0]).'"><img src="'.$session{setting}{lib}.'/edit.gif" border=0 alt="Edit"></a><a href="'.WebGUI::URL::page('func=cut&wid='.$widgetList[0]).'"><img src="'.$session{setting}{lib}.'/cut.gif" border=0 alt="Cut"></a><a href="'.WebGUI::URL::page('func=copy&wid='.$widgetList[0]).'"><img src="'.$session{setting}{lib}.'/copy.gif" border=0 alt="Copy"></a><a href="'.WebGUI::URL::page('wid='.$widgetList[0].'&func=delete').'"><img src="'.$session{setting}{lib}.'/delete.gif" border=0 alt="Delete"></a><a href="'.WebGUI::URL::page('func=moveUp&wid='.$widgetList[0]).'"><img src="'.$session{setting}{lib}.'/upArrow.gif" border=0 alt="Move Up"></a><a href="'.WebGUI::URL::page('func=moveDown&wid='.$widgetList[0]).'"><img src="'.$session{setting}{lib}.'/downArrow.gif" border=0 alt="Move Down"></a><a href="'.WebGUI::URL::page('func=jumpUp&wid='.$widgetList[0]).'"><img src="'.$session{setting}{lib}.'/jumpUp.gif" border=0 alt="Move to Top"></a><a href="'.WebGUI::URL::page('func=jumpDown&wid='.$widgetList[0]).'"><img src="'.$session{setting}{lib}.'/jumpDown.gif" border=0 alt="Move to Bottom"></a><br>';
}
$cmd = "WebGUI::Widget::".$widgetList[1]."::www_view";
$contentHash{$widgetList[2]} .= &$cmd($widgetList[0])."<p>\n\n";