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

Adding the new forms package needed for the new UI Levels system.

Browse source
This commit is contained in:
JT Smith 2002-10-05 04:38:57 +00:00
parent d98ab2ce93
commit 7bc98eed07
4 changed files with 1852 additions and 511 deletions
Download patch file Download diff file Expand all files Collapse all files

9
docs/gotcha.txt
View file

@ -7,6 +7,14 @@ upgrading from one version to the next, or even between multiple
versions. Be sure to heed the warnings contained herein as they will versions. Be sure to heed the warnings contained herein as they will
save you many hours of grief. save you many hours of grief.
4.7.0
--------------------------------------------------------------------
* WebGUI::HTMLForm->radioList has been changed to correct an API
error. However, if your applications use this method, this
change will break your application. If you do not use any
third-party or custom plug-ins, you can disregard this
warning.
4.6.3 4.6.3
-------------------------------------------------------------------- --------------------------------------------------------------------
* It has been reported that some people had a duplicate key error * It has been reported that some people had a duplicate key error
@ -17,7 +25,6 @@ save you many hours of grief.
patches, or just moving forward. Either way will produce patches, or just moving forward. Either way will produce
the same result. the same result.
4.6.0 4.6.0
-------------------------------------------------------------------- --------------------------------------------------------------------
* The runHourly scheduler has been updated to allow for more * The runHourly scheduler has been updated to allow for more

1196
lib/WebGUI/Form.pm Normal file
View file

File diff suppressed because it is too large Load diff

1130
lib/WebGUI/HTMLForm.pm
View file

File diff suppressed because it is too large Load diff

28
lib/WebGUI/Macro/AdminBar.pm
View file

@ -12,7 +12,7 @@ package WebGUI::Macro::AdminBar;
use strict; use strict;
use Tie::IxHash; use Tie::IxHash;
use WebGUI::HTMLForm; use WebGUI::Form;
use WebGUI::International; use WebGUI::International;
use WebGUI::Privilege; use WebGUI::Privilege;
use WebGUI::Session; use WebGUI::Session;
@ -22,7 +22,7 @@ use WebGUI::Utility;
#------------------------------------------------------------------- #-------------------------------------------------------------------
sub _replacement { sub _replacement {
my (%hash2, $f, $miscSelect, $adminSelect, $clipboardSelect, %hash, $output, $contentSelect, $key); my (%hash2, $miscSelect, $adminSelect, $clipboardSelect, %hash, $output, $contentSelect, $key);
tie %hash, "Tie::IxHash"; tie %hash, "Tie::IxHash";
tie %hash2, "Tie::IxHash"; tie %hash2, "Tie::IxHash";
#--content adder #--content adder
@ -34,9 +34,11 @@ sub _replacement {
} }
%hash2 = sortHash(%hash2); %hash2 = sortHash(%hash2);
%hash = (%hash, %hash2); %hash = (%hash, %hash2);
$f = WebGUI::HTMLForm->new(1); $contentSelect = WebGUI::Form::selectList({
$f->select("contentSelect",\%hash,'',[],'','','onChange="goContent()"'); name=>"contentSelect",
$contentSelect = $f->printRowsOnly; options=>\%hash,
extras=>'onChange="goContent()"'
});
#--clipboard paster #--clipboard paster
%hash2 = (); %hash2 = ();
$hash2{WebGUI::URL::page()} = WebGUI::International::get(3); $hash2{WebGUI::URL::page()} = WebGUI::International::get(3);
@ -48,9 +50,11 @@ sub _replacement {
foreach $key (keys %hash) { foreach $key (keys %hash) {
$hash2{WebGUI::URL::page('func=paste&wid='.$key)} = $hash{$key}; $hash2{WebGUI::URL::page('func=paste&wid='.$key)} = $hash{$key};
} }
$f = WebGUI::HTMLForm->new(1); $clipboardSelect = WebGUI::Form::selectList({
$f->select("clipboardSelect",\%hash2,'',[],'','','onChange="goClipboard()"'); name=>"clipboardSelect",
$clipboardSelect = $f->printRowsOnly; options=>\%hash2,
extras=>'onChange="goClipboard()"'
});
#--admin functions #--admin functions
%hash = (); %hash = ();
if (WebGUI::Privilege::isInGroup(3,$session{user}{userId})) { if (WebGUI::Privilege::isInGroup(3,$session{user}{userId})) {
@ -106,9 +110,11 @@ sub _replacement {
WebGUI::URL::page('op=switchOffAdmin')=>WebGUI::International::get(12), WebGUI::URL::page('op=switchOffAdmin')=>WebGUI::International::get(12),
%hash %hash
); );
$f = WebGUI::HTMLForm->new(1); $adminSelect = WebGUI::Form::selectList({
$f->select("adminSelect",\%hash,'',[],'','','onChange="goAdmin()"'); name=>"adminSelect",
$adminSelect = $f->printRowsOnly; options=>\%hash,
extras=>'onChange="goAdmin()"'
});
#--output admin bar #--output admin bar
$output = ' $output = '
<div class="adminBar"><table class="adminBar" width="100%" cellpadding="3" cellspacing="0" border="0"><tr> <div class="adminBar"><table class="adminBar" width="100%" cellpadding="3" cellspacing="0" border="0"><tr>