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

5
docs/migration.txt
View file

@ -831,6 +831,11 @@ perl -pi.bak -e 's!WebGUI\:\:Storage\:\:Image\-\>createTemp\(!WebGUI::Storage::I
perl -pi.bak -e 's!WebGUI\:\:Subscription\-\>new\(!WebGUI::Subscription->new(\$self->session,!g' fileNameGoesHere
5.23.23 WebGUI::TabForm API Refactored
perl -pi.bak -e 's!WebGUI\:\:TabForm\-\>new\(!WebGUI::TabForm->new(\$self->session,!g' fileNameGoesHere
6. Automatic list of Assets in Help System.
-------------------------------------

2
lib/WebGUI/Asset.pm
View file

@ -483,7 +483,7 @@ sub getEditForm {
my $i18n = WebGUI::International->new($self->session, "Asset");
my $uiLevelOverride = $self->get("className");
$uiLevelOverride =~ s/\:\:/_/g;
my $tabform = WebGUI::TabForm->new(undef,undef,$self->getUrl(),$uiLevelOverride);
my $tabform = WebGUI::TabForm->new($self->session,undef,undef,$self->getUrl(),$uiLevelOverride);
$tabform->hidden({
name=>"func",
value=>"editSave"

2
lib/WebGUI/Asset/FilePile.pm
View file

@ -51,7 +51,7 @@ These methods are available from this class:
#-------------------------------------------------------------------
sub edit {
my $self = shift;
my $tabform = WebGUI::TabForm->new();
my $tabform = WebGUI::TabForm->new($self->session,);
$tabform->hidden({
name=>"func",
value=>"add"

2
lib/WebGUI/Operation/Commerce.pm
View file

@ -391,7 +391,7 @@ sub www_editCommerceSettings {
$paymentPlugin = $session->config->get("paymentPlugins")->[0];
$shippingPlugin = $session->config->get("shippingPlugins")->[0];
$tabform = WebGUI::TabForm->new(\%tabs);
$tabform = WebGUI::TabForm->new($session,\%tabs);
$tabform->hidden({name => 'op', value => 'editCommerceSettingsSave'});
# general

2
lib/WebGUI/Operation/Settings.pm
View file

@ -41,7 +41,7 @@ sub www_editSettings {
user=>{ label=>$i18n->get("user") },
auth=>{ label=>$i18n->get("authentication") },
);
my $tabform = WebGUI::TabForm->new(\%tabs);
my $tabform = WebGUI::TabForm->new($session,\%tabs);
$tabform->hidden({
name=>"op",
value=>"saveSettings"});

2
lib/WebGUI/Operation/User.pm
View file

@ -298,7 +298,7 @@ sub www_editUser {
"profile"=> { label=>$i18n->get("profile")},
"groups"=> { label=>$i18n->get('89')},
);
my $tabform = WebGUI::TabForm->new(\%tabs);
my $tabform = WebGUI::TabForm->new($session,\%tabs);
my $u = WebGUI::User->new(($session->form->process("uid") eq 'new') ? '' : $session->form->process("uid"));
$session->style->setScript($session->config->get("extrasURL")."/swapLayers.js", {type=>"text/javascript"});
$session->style->setRawHeadTags('<script type="text/javascript">var active="'.$u->authMethod.'";</script>');

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 )