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

migrated tabform to new session system

Browse source
This commit is contained in:
JT Smith 2006-01-12 19:51:54 +00:00
parent 0cc5884b77
commit 64048c0846
7 changed files with 37 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

37
lib/WebGUI/TabForm.pm
View file

@ -19,8 +19,6 @@ use strict;
use Tie::IxHash;
use WebGUI::Form;
use WebGUI::HTMLForm;
use WebGUI::Session;
use WebGUI::Style;
=head1 NAME
@ -48,7 +46,7 @@ Package that makes creating tab-based forms simple through an object-oriented AP
}
);
$tabform = WebGUI::TabForm->new(\%tabs);
$tabform = WebGUI::TabForm->new($self->session,\%tabs);
$tabform->hidden($name, $value);
$tabform->submit(\%params);
@ -158,10 +156,14 @@ sub hidden {
#-------------------------------------------------------------------
=head2 new ( tabHashRef , cssString)
=head2 new ( session, tabHashRef , cssString)
Constructor.
=head3 session
A reference to the current session.
=head3 tabHashRef
A hash reference containing the definition of the tabs. It should be constructed like this:
@ -190,23 +192,24 @@ A string containing the link to the tab-CascadingStyleSheet
sub new {
my $class = shift;
my $session = shift;
my $startingTabs = shift;
my $css = shift || $self->session->config->get("extrasURL").'/tabs/tabs.css';
my $cancelUrl = shift || $self->session->url->page();
my $css = shift || $session->config->get("extrasURL").'/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($self->session,uiLevelOverride=>$uiLevelOverride);
$tabs{$key}{form} = WebGUI::HTMLForm->new($session,uiLevelOverride=>$uiLevelOverride);
$tabs{$key}{label} = $startingTabs->{$key}->{label};
$tabs{$key}{uiLevel} = $startingTabs->{$key}->{uiLevel};
}
my $i18n = WebGU::International::get($session);
my $cancel = WebGUI::Form::button({
my $i18n = WebGU::International->new($session);
my $cancel = WebGUI::Form::button($session,{
value=>$i18n->get('cancel'),
extras=>q|onclick="history.go(-1);"|
});
bless { _uiLevelOverride=>$uiLevelOverride, _cancel=>$cancel, _submit=>WebGUI::Form::submit($self->session,), _form=>WebGUI::Form::formHeader(), _hidden=>"", _tab=>\%tabs, _css=>$css }, $class;
bless { _session=>$session, _uiLevelOverride=>$uiLevelOverride, _cancel=>$cancel, _submit=>WebGUI::Form::submit($self->session), _form=>WebGUI::Form::formHeader($session), _hidden=>"", _tab=>\%tabs, _css=>$css }, $class;
}
@ -247,6 +250,20 @@ sub print {
}
#-------------------------------------------------------------------
=head2 session ( )
Returns a reference to the current session.
=cut
sub session {
my $self = shift;
return $self->{_session};
}
#-------------------------------------------------------------------
=head2 submit ( hashRef )