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

added save buttons at the top of HTML forms

Browse source
This commit is contained in:
JT Smith 2006-04-07 04:37:20 +00:00
parent 91a620a9f5
commit 1b2c824a9c
16 changed files with 38 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

1
lib/WebGUI/Operation/Cron.pm
View file

@ -57,6 +57,7 @@ sub www_editCronJob {
my $i18n = WebGUI::International->new($session, "Workflow_Cron");
my $cron = WebGUI::Workflow::Cron->new($session, $session->form->get("id"));
my $f = WebGUI::HTMLForm->new($session);
$f->submit;
$f->hidden(
name=>"op",
value=>"editCronJobSave"

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

@ -157,6 +157,7 @@ sub www_editDatabaseLink {
$f = WebGUI::HTMLForm->new($session,
-extras=>'autocomplete="off"'
);
$f->submit;
$f->hidden(
-name => "op",
-value => "editDatabaseLinkSave",

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

@ -270,6 +270,7 @@ sub www_editGroup {
}
my $i18n = WebGUI::International->new($session);
$f = WebGUI::HTMLForm->new($session);
$f->submit;
$f->hidden(
-name => "op",
-value => "editGroupSave",
@ -438,6 +439,7 @@ sub www_editGrouping {
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3) || _hasSecondaryPrivilege($session,$session->form->process("gid")));
my $i18n = WebGUI::International->new($session);
my $f = WebGUI::HTMLForm->new($session);
$f->submit;
$f->hidden(
-name => "op",
-value => "editGroupingSave"
@ -607,6 +609,7 @@ sub www_manageGroupsInGroup {
my $session = shift;
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3) || _hasSecondaryPrivilege($session,$session->form->process("gid")));
my $f = WebGUI::HTMLForm->new($session);
$f->submit;
$f->hidden(
-name => "op",
-value => "addGroupsToGroupSave"
@ -676,6 +679,7 @@ sub www_manageUsersInGroup {
my ($userCount) = $session->db->quickArray("select count(*) from users");
return _submenu($session,$output) unless ($session->form->process("doit") || $userCount < 250 || $session->form->process("pn") > 1);
my $f = WebGUI::HTMLForm->new($session);
$f->submit;
$f->hidden(
-name => "gid",
-value => $session->form->process("gid")

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

@ -136,6 +136,7 @@ sub www_editLDAPLink {
my $i18n = WebGUI::International->new($session,"AuthLDAP");
$f = WebGUI::HTMLForm->new($session, -extras=>'autocomplete="off"' );
$f->submit;
$f->hidden(
-name => "op",
-value => "editLDAPLinkSave",

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

@ -152,6 +152,7 @@ sub www_editProduct {
}
$f = WebGUI::HTMLForm->new($session);
$f->submit;
$f->hidden(
-name => 'op',
-value => 'editProductSave'
@ -286,6 +287,7 @@ sub www_editProductParameter {
}
$f = WebGUI::HTMLForm->new($session);
$f->submit;
$f->hidden(
-name => 'op',
-value => 'editProductParameterSave',
@ -390,6 +392,7 @@ sub www_editProductParameterOption {
}
$f = WebGUI::HTMLForm->new($session);
$f->submit;
$f->hidden(
-name => 'op',
-value => 'editProductParameterOptionSave',
@ -501,6 +504,7 @@ sub www_editProductVariant {
$variant = WebGUI::Product->getByVariantId($session,$variantId)->getVariant($variantId);
$f = WebGUI::HTMLForm->new($session);
$f->submit;
$f->hidden(
-name => 'op',
-value => 'editProductVariantSave'
@ -597,6 +601,7 @@ sub www_editSkuTemplate {
$output .= "</ul><br />";
$f = WebGUI::HTMLForm->new($session);
$f->submit;
$f->hidden(
-name => 'op',
-value => 'editSkuTemplateSave'

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

@ -133,6 +133,7 @@ sub www_editProfileCategory {
my $data = {};
my $i18n = WebGUI::International->new($session,"WebGUIProfile");
my $f = WebGUI::HTMLForm->new($session);
$f->submit;
$f->hidden(
-name => "op",
-value => "editProfileCategorySave",
@ -213,6 +214,7 @@ sub www_editProfileField {
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3));
my $i18n = WebGUI::International->new($session,"WebGUIProfile");
my $f = WebGUI::HTMLForm->new($session);
$f->submit;
$f->hidden(
-name => "op",
-value => "editProfileFieldSave",

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

@ -99,6 +99,7 @@ sub www_editReplacement {
my $data = $session->db->getRow("replacements","replacementId",$session->form->process("replacementId"));
my $i18n = WebGUI::International->new($session);
my $f = WebGUI::HTMLForm->new($session);
$f->submit;
$f->hidden(
-name=>"op",
-value=>"editReplacementSave"

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

@ -294,9 +294,10 @@ sub www_editSettings {
-extras=>"onchange=\"active=operateHidden(this.options[this.selectedIndex].value,active)\""
);
foreach (@{$session->config->get("authMethods")}) {
$tabform->getTab("auth")->fieldSetStart($_);
my $authInstance = WebGUI::Operation::Auth::getInstance($session,$_,1);
my $style = '" style="display: none;' unless ($_ eq $session->setting->get("authMethod"));
$tabform->getTab("auth")->raw('<tr id="'.$_.$style.'"><td colspan="2" width="100%"><table border="0" cellspacing="0" cellpadding="0" width="100%">'.$authInstance->editUserSettingsForm.'<tr><td width="304">&nbsp;</td><td width="496">&nbsp;</td></tr></table></td></tr>');
$tabform->getTab("auth")->raw($authInstance->editUserSettingsForm);
$tabform->getTab("auth")->fieldSetEnd;
}
$tabform->submit();
my $ac = WebGUI::AdminConsole->new($session,"settings");

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

@ -122,6 +122,7 @@ sub www_createSubscriptionCodeBatch {
%subscriptions = $session->db->buildHash("select subscriptionId, name from subscription where deleted != 1 order by name");
$f = WebGUI::HTMLForm->new($session);
$f->submit;
$f->hidden(
-name => 'op',
-value => 'createSubscriptionCodeBatchSave'
@ -312,6 +313,7 @@ sub www_editSubscription {
$subscriptionId = $session->form->process("sid") || 'new';
$f = WebGUI::HTMLForm->new($session);
$f->submit;
$f->hidden(
-name => 'op',
-value => 'editSubscriptionSave'

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

@ -342,20 +342,21 @@ sub www_editUser {
-options=>$options,
-label=>$i18n->get(164),
-value=>$u->authMethod,
-extras=>"onchange=\"active=operateHidden(this.options[this.selectedIndex].value,active)\""
);
foreach (@{$session->config->get("authMethods")}) {
$tabform->getTab("account")->fieldSetStart($_);
my $authInstance = WebGUI::Operation::Auth::getInstance($session,$_,$u->userId);
my $style = '" style="display: none;' unless ($_ eq $u->authMethod);
$tabform->getTab("account")->raw('<tr id="'.$_.$style.'"><td colspan="2" align="center"><table>'.$authInstance->editUserForm.'<tr><td width="170">&nbsp;</td><td>&nbsp;</td></tr></table></td></tr>');
$tabform->getTab("account")->raw($authInstance->editUserForm);
$tabform->getTab("account")->fieldSetEnd;
}
foreach my $category (@{WebGUI::ProfileCategory->getCategories($session)}) {
$tabform->getTab("profile")->raw('<tr><td colspan="2" class="tableHeader">'.$category->getLabel.'</td></tr>');
$tabform->getTab("profile")->fieldSetStart($category->getLabel);
foreach my $field (@{$category->getFields}) {
next if $field->getId =~ /contentPositions/;
my $label = $field->getLabel . ($field->isRequired ? "*" : '');
$tabform->getTab("profile")->raw($field->formField({label=>$label},1,$u));
}
$tabform->getTab("profile")->fieldSetEnd($category->getLabel);
}
my @groupsToAdd = $session->form->group("groupsToAdd");
my @exclude = $session->db->buildArray("select groupId from groupings where userId=".$session->db->quote($u->userId));
@ -471,6 +472,7 @@ sub www_editUserKarma {
my ($output, $f, $a, %user, %data, $method, $values, $category, $label, $default, $previousCategory);
my $i18n = WebGUI::International->new($session);
$f = WebGUI::HTMLForm->new($session);
$f->submit;
$f->hidden(
-name => "op",
-value => "editUserKarmaSave",

3
lib/WebGUI/Operation/VersionTag.pm
View file

@ -87,6 +87,7 @@ sub www_editVersionTag {
my $i18n = WebGUI::International->new($session,"VersionTag");
$ac->addSubmenuItem($session->url->page('op=manageVersions'), $i18n->get("manage versions"));
my $f = WebGUI::HTMLForm->new($session);
$f->submit;
my $tag = WebGUI::VersionTag->new($session, $tagId);
$f->hidden(
-name=>"op",
@ -187,6 +188,7 @@ sub www_commitVersionTag {
if (defined $tag && $session->user->isInGroup($tag->get("groupToUse"))) {
my $i18n = WebGUI::International->new($session, "VersionTag");
my $f = WebGUI::HTMLForm->new($session);
$f->submit;
$f->readOnly(
label=>$i18n->get("version tag name"),
value=>$tag->get("name")
@ -365,6 +367,7 @@ sub www_manageRevisionsInTag {
my $instance = WebGUI::Workflow::Instance->new($session, $session->form->param("workflowInstanceId"));
if (defined $instance) {
my $form = WebGUI::HTMLForm->new($session);
$form->submit;
$form->hidden(
name=>"tagId",
value=>$tagId

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

@ -43,6 +43,7 @@ sub www_addWorkflow {
return $session->privilege->insufficient() unless ($session->user->isInGroup("pbgroup000000000000015"));
my $i18n = WebGUI::International->new($session, "Workflow");
my $f = WebGUI::HTMLForm->new($session);
$f->submit;
$f->hidden(
name=>"op",
value=>"addWorkflowSave"
@ -160,6 +161,7 @@ sub www_editWorkflow {
}
$addmenu .= '</div>';
my $f = WebGUI::HTMLForm->new($session);
$f->submit;
$f->hidden(
name=>"op",
value=>"editWorkflowSave"