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

refactored WebGUI::HTMLForm api to use new session system

Browse source
This commit is contained in:
JT Smith 2006-01-11 16:53:02 +00:00
parent 45c7e7876d
commit b3974c0cd5
33 changed files with 92 additions and 73 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lib/WebGUI/Commerce/Payment.pm
View file

@ -81,7 +81,7 @@ sub configurationForm {
$self = shift;
$form = shift;
$f = WebGUI::HTMLForm->new;
$f = WebGUI::HTMLForm->new($self->session);
$f->yesNo(
-name => $self->prepend('enabled'),
-value => $self->enabled,
@ -386,7 +386,7 @@ the database. Use it on all fields in the configurationForm method.
For instance:
$f = WebGUI::HTMLForm->new;
$f = WebGUI::HTMLForm->new($self->session);
$f->text(
-name => $self->prepend('MyField');
-label => 'MyField'

4
lib/WebGUI/Commerce/Payment/ITransact.pm
View file

@ -110,7 +110,7 @@ sub checkoutForm {
$u = WebGUI::User->new($self->session->user->profileField("userId"));
$f = WebGUI::HTMLForm->new;
$f = WebGUI::HTMLForm->new($self->session);
$f->text(
-name => 'firstName',
-label => $i18n->get('firstName'),
@ -435,7 +435,7 @@ sub configurationForm {
$self = shift;
$i18n = WebGUI::International->new('CommercePaymentITransact');
$f = WebGUI::HTMLForm->new;
$f = WebGUI::HTMLForm->new($self->session);
$f->text(
-name => $self->prepend('vendorId'),
-label => $i18n->get('vendorId'),

4
lib/WebGUI/Commerce/Shipping.pm
View file

@ -47,7 +47,7 @@ sub configurationForm {
$self = shift;
$form = shift;
$f = WebGUI::HTMLForm->new;
$f = WebGUI::HTMLForm->new($self->session);
$f->yesNo(
-name => $self->prepend('enabled'),
-value => $self->enabled,
@ -262,7 +262,7 @@ the database. Use it on all fields in the configurationForm method.
For instance:
$f = WebGUI::HTMLForm->new;
$f = WebGUI::HTMLForm->new($self->session);
$f->text(
-name => $self->prepend('MyField');
-label => 'MyField'

2
lib/WebGUI/Commerce/Shipping/ByPrice.pm
View file

@ -23,7 +23,7 @@ sub configurationForm {
my ($self, $f);
$self = shift;
$f = WebGUI::HTMLForm->new;
$f = WebGUI::HTMLForm->new($self->session);
$f->float(
-name => $self->prepend('percentageOfPrice'),
-label => WebGUI::International::get('percentage of price', 'CommerceShippingByPrice'),

2
lib/WebGUI/Commerce/Shipping/ByWeight.pm
View file

@ -23,7 +23,7 @@ sub configurationForm {
my ($self, $f);
$self = shift;
$f = WebGUI::HTMLForm->new;
$f = WebGUI::HTMLForm->new($self->session);
$f->float(
-name => $self->prepend('pricePerUnitWeight'),
-label => WebGUI::International::get('price per weight', 'CommerceShippingByWeight'),

2
lib/WebGUI/Commerce/Shipping/PerTransaction.pm
View file

@ -19,7 +19,7 @@ sub configurationForm {
my ($self, $f);
$self = shift;
$f = WebGUI::HTMLForm->new;
$f = WebGUI::HTMLForm->new($self->session);
$f->float(
-name => $self->prepend('pricePerTransaction'),
-label => WebGUI::International::get('price', 'CommerceShippingPerTransaction'),