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

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

@ -179,7 +179,7 @@ sub www_checkoutConfirm {
$plugin = WebGUI::Commerce::Payment->load($session->scratch->get('paymentGateway'));
$f = WebGUI::HTMLForm->new;
$f = WebGUI::HTMLForm->new($session);
$f->hidden(
-name => 'op',
-value => 'checkoutSubmit'

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

@ -81,7 +81,7 @@ sub www_editDatabaseLink {
} else {
%db = %{WebGUI::DatabaseLink->new($session,$session->form->process("dlid"))->get};
}
$f = WebGUI::HTMLForm->new(
$f = WebGUI::HTMLForm->new($session,
-extras=>'autocomplete="off"'
);
$f->hidden(

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

@ -49,7 +49,7 @@ sub www_formAssetTree {
sub www_richEditPageTree {
my $session = shift;
my $f = WebGUI::HTMLForm->new(-action=>"#",-extras=>'name"linkchooser"');
my $f = WebGUI::HTMLForm->new($session,-action=>"#",-extras=>'name"linkchooser"');
$f->text(
-name=>"url",
-label=>WebGUI::International::get(104),

12
lib/WebGUI/Operation/Group.pm
View file

@ -105,7 +105,7 @@ sub getGroupSearchForm {
$session->scratch->set("groupSearchKeyword",$session->form->process("keyword"));
$session->scratch->set("groupSearchModifier",$session->form->process("modifier"));
my $output = '<div align="center">';
my $f = WebGUI::HTMLForm->new(1);
my $f = WebGUI::HTMLForm->new($session,1);
foreach my $key (keys %{$params}) {
$f->hidden(
-name=>$key,
@ -268,7 +268,7 @@ sub www_editGroup {
} else {
$g = WebGUI::Group->new($session->form->process("gid"));
}
$f = WebGUI::HTMLForm->new;
$f = WebGUI::HTMLForm->new($session);
$f->hidden(
-name => "op",
-value => "editGroupSave",
@ -435,7 +435,7 @@ sub www_editGroupSave {
sub www_editGrouping {
my $session = shift;
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3) || _hasSecondaryPrivilege($session->form->process("gid")));
my $f = WebGUI::HTMLForm->new;
my $f = WebGUI::HTMLForm->new($session);
$f->hidden(
-name => "op",
-value => "editGroupingSave"
@ -490,7 +490,7 @@ sub www_emailGroup {
my $session = shift;
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3) || _hasSecondaryPrivilege($session->form->process("gid")));
my ($output,$f);
$f = WebGUI::HTMLForm->new;
$f = WebGUI::HTMLForm->new($session);
$f->hidden(
-name => "op",
-value => "emailGroupSend"
@ -598,7 +598,7 @@ sub www_listGroups {
sub www_manageGroupsInGroup {
my $session = shift;
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3) || _hasSecondaryPrivilege($session->form->process("gid")));
my $f = WebGUI::HTMLForm->new;
my $f = WebGUI::HTMLForm->new($session);
$f->hidden(
-name => "op",
-value => "addGroupsToGroupSave"
@ -664,7 +664,7 @@ sub www_manageUsersInGroup {
$output .= WebGUI::Operation::User::getUserSearchForm("manageUsersInGroup",{gid=>$session->form->process("gid")});
my ($userCount) = $session->db->quickArray("select count(*) from users");
return _submenu($output) unless ($session->form->process("doit") || $userCount < 250 || $session->form->process("pn") > 1);
my $f = WebGUI::HTMLForm->new;
my $f = WebGUI::HTMLForm->new($session);
$f->hidden(
-name => "gid",
-value => $session->form->process("gid")

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

@ -81,7 +81,7 @@ sub www_editLDAPLink {
tie %db, 'Tie::CPHash';
%db = $session->db->quickHash("select * from ldapLink where ldapLinkId=".$session->db->quote($session->form->process("llid")));
$f = WebGUI::HTMLForm->new( -extras=>'autocomplete="off"' );
$f = WebGUI::HTMLForm->new($session, -extras=>'autocomplete="off"' );
$f->hidden(
-name => "op",
-value => "editLDAPLinkSave",

10
lib/WebGUI/Operation/ProductManager.pm
View file

@ -90,7 +90,7 @@ sub www_editProduct {
$product = WebGUI::Product->new($productId)->get;
}
$f = WebGUI::HTMLForm->new;
$f = WebGUI::HTMLForm->new($session);
$f->hidden(
-name => 'op',
-value => 'editProductSave'
@ -202,7 +202,7 @@ sub www_editProductParameter {
$productId = $product->get('productId');
}
$f = WebGUI::HTMLForm->new;
$f = WebGUI::HTMLForm->new($session);
$f->hidden(
-name => 'op',
-value => 'editProductParameterSave',
@ -284,7 +284,7 @@ sub www_editProductParameterOption {
$option = WebGUI::Product->getByOptionId($optionId)->getOption($optionId);
}
$f = WebGUI::HTMLForm->new;
$f = WebGUI::HTMLForm->new($session);
$f->hidden(
-name => 'op',
-value => 'editProductParameterOptionSave',
@ -373,7 +373,7 @@ sub www_editProductVariant {
$variantId = $session->form->process("variantId");
$variant = WebGUI::Product->getByVariantId($variantId)->getVariant($variantId);
$f = WebGUI::HTMLForm->new;
$f = WebGUI::HTMLForm->new($session);
$f->hidden(
-name => 'op',
-value => 'editProductVariantSave'
@ -447,7 +447,7 @@ sub www_editSkuTemplate {
}
$output .= "</ul><br />";
$f = WebGUI::HTMLForm->new;
$f = WebGUI::HTMLForm->new($session);
$f->hidden(
-name => 'op',
-value => 'editSkuTemplateSave'

4
lib/WebGUI/Operation/ProfileSettings.pm
View file

@ -74,7 +74,7 @@ sub www_editProfileCategory {
my $session = shift;
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3));
my $data = {};
my $f = WebGUI::HTMLForm->new;
my $f = WebGUI::HTMLForm->new($session);
$f->hidden(
-name => "op",
-value => "editProfileCategorySave",
@ -139,7 +139,7 @@ sub www_editProfileCategorySave {
sub www_editProfileField {
my $session = shift;
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3));
my $f = WebGUI::HTMLForm->new;
my $f = WebGUI::HTMLForm->new($session);
$f->hidden(
-name => "op",
-value => "editProfileFieldSave",

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

@ -50,7 +50,7 @@ sub www_editReplacement {
my $session = shift;
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3));
my $data = $session->db->getRow("replacements","replacementId",$session->form->process("replacementId"));
my $f = WebGUI::HTMLForm->new;
my $f = WebGUI::HTMLForm->new($session);
$f->hidden(
-name=>"op",
-value=>"editReplacementSave"

6
lib/WebGUI/Operation/Subscription.pm
View file

@ -66,7 +66,7 @@ sub www_createSubscriptionCodeBatch {
tie %subscriptions, "Tie::IxHash";
%subscriptions = $session->db->buildHash("select subscriptionId, name from subscription where deleted != 1 order by name");
$f = WebGUI::HTMLForm->new;
$f = WebGUI::HTMLForm->new($session);
$f->hidden(
-name => 'op',
-value => 'createSubscriptionCodeBatchSave'
@ -201,7 +201,7 @@ sub www_editSubscription {
$subscriptionId = $session->form->process("sid") || 'new';
$f = WebGUI::HTMLForm->new;
$f = WebGUI::HTMLForm->new($session);
$f->hidden(
-name => 'op',
-value => 'editSubscriptionSave'
@ -454,7 +454,7 @@ sub www_redeemSubscriptionCode {
$var{message} = $i18n->get('redeem code ask for code');
}
$f = WebGUI::HTMLForm->new;
$f = WebGUI::HTMLForm->new($session);
$f->hidden(
-name => 'op',
-value => 'redeemSubscriptionCode'

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

@ -434,7 +434,7 @@ sub www_editUserKarma {
my $session = shift;
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3));
my ($output, $f, $a, %user, %data, $method, $values, $category, $label, $default, $previousCategory);
$f = WebGUI::HTMLForm->new;
$f = WebGUI::HTMLForm->new($session);
$f->hidden(
-name => "op",
-value => "editUserKarmaSave",

4
lib/WebGUI/Operation/WebGUI.pm
View file

@ -77,7 +77,7 @@ sub www_setup {
$u->username($session->form->process("username","text","Admin"));
$u->profileField("email",$session->form->email("email"));
$u->identifier(Digest::MD5::md5_base64($session->form->process("identifier","password","123qwe")));
my $f = WebGUI::HTMLForm->new(action=>$session->url->gateway());
my $f = WebGUI::HTMLForm->new($session,action=>$session->url->gateway());
$f->hidden(
-name=>"op",
-value=>"setup"
@ -116,7 +116,7 @@ sub www_setup {
} else {
$output .= '<legend align="left">Admin Account</legend>';
my $u = WebGUI::User->new('3');
my $f = WebGUI::HTMLForm->new(action=>$session->url->gateway());
my $f = WebGUI::HTMLForm->new($session,action=>$session->url->gateway());
$f->hidden(
-name=>"op",
-value=>"setup"