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

various fixes and enhancements for the asset configuration stuff i checked in earlier

Browse source
This commit is contained in:
JT Smith 2008-09-29 00:14:49 +00:00
parent 79c5425bcf
commit 72edbfd628
7 changed files with 14 additions and 284 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lib/WebGUI/TabForm.pm
View file

@ -96,7 +96,7 @@ sub addTab {
my $name = shift;
my $label = shift;
my $uiLevel = shift || 0;
$self->{_tab}{$name}{form} = WebGUI::HTMLForm->new($self->session,uiLevelOverride=>$self->{_uiLevelOverride});
$self->{_tab}{$name}{form} = WebGUI::HTMLForm->new($self->session);
$self->{_tab}{$name}{label} = $label;
$self->{_tab}{$name}{uiLevel} = $uiLevel;
return $self->{_tab}{$name}{form};
@ -198,11 +198,10 @@ sub new {
my $startingTabs = shift;
my $css = shift || $session->url->extras('tabs/tabs.css');
my $cancelUrl = shift || $session->url->page();
my $uiLevelOverride = shift;
my %tabs;
tie %tabs, 'Tie::IxHash';
foreach my $key (keys %{$startingTabs}) {
$tabs{$key}{form} = WebGUI::HTMLForm->new($session,uiLevelOverride=>$uiLevelOverride);
$tabs{$key}{form} = WebGUI::HTMLForm->new($session);
$tabs{$key}{label} = $startingTabs->{$key}->{label};
$tabs{$key}{uiLevel} = $startingTabs->{$key}->{uiLevel};
}
@ -211,8 +210,7 @@ sub new {
value=>$i18n->get('cancel'),
extras=>q|onclick="history.go(-1);" class="backwardButton"|
});
bless { _session=>$session, _uiLevelOverride=>$uiLevelOverride, _cancel=>$cancel,
_submit=>WebGUI::Form::submit($session),
bless { _session=>$session, _cancel=>$cancel, _submit=>WebGUI::Form::submit($session),
_form=>WebGUI::Form::formHeader($session), _hidden=>"", _tab=>\%tabs, _css=>$css }, $class;
}