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