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

fixed tab ordering, rich editor, and added asset adding to asset manager

Browse source
This commit is contained in:
JT Smith 2004-12-20 21:15:28 +00:00
parent 86404b4b47
commit a9764115fd
2 changed files with 42 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

18
lib/WebGUI/TabForm.pm
View file

@ -16,6 +16,7 @@ package WebGUI::TabForm;
use strict;
use Tie::IxHash;
use WebGUI::Form;
use WebGUI::HTMLForm;
use WebGUI::Session;
@ -187,18 +188,19 @@ A string containing the link to the tab-CascadingStyleSheet
=cut
sub new {
my ($cancel, $class, $tabs, $css);
$class = shift;
$tabs = shift;
$css = shift || $session{config}{extrasURL}.'/tabs/tabs.css';
foreach my $key (keys %{$tabs}) {
$tabs->{$key}{form} = WebGUI::HTMLForm->new;
my $class = shift;
my $startingTabs = shift;
my $css = shift || $session{config}{extrasURL}.'/tabs/tabs.css';
my %tabs;
tie %tabs, 'Tie::IxHash';
foreach my $key (keys %{$startingTabs}) {
$tabs{$key}{form} = WebGUI::HTMLForm->new;
}
$cancel = WebGUI::Form::button({
my $cancel = WebGUI::Form::button({
value=>WebGUI::International::get('cancel'),
extras=>q|onClick="location.href='|.WebGUI::URL::page().q|'"|
});
bless { _cancel=>$cancel, _submit=>WebGUI::Form::submit(), _form=>WebGUI::Form::formHeader(), _hidden=>"", _tab=>$tabs, _css=>$css }, $class;
bless { _cancel=>$cancel, _submit=>WebGUI::Form::submit(), _form=>WebGUI::Form::formHeader(), _hidden=>"", _tab=>\%tabs, _css=>$css }, $class;
}