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
docs/changelog/6.x.x.txt
View file

@ -24,6 +24,7 @@
- Readded the purge option to the trash manager.
- Added an advertising management system.
- Added a field set grouping mechanism to HTMLForm and TabForm.
- Added save buttons at the top of all the HTML forms for easier access.
- Added archive/unarchive options to CS threads.
- Increased the performance of CS Thread viewing by 500%.
- Added a database cache option as an alternative to memcached.

6
lib/WebGUI/HTMLForm.pm
View file

@ -120,7 +120,7 @@ sub fieldSetEnd {
my $legend = shift;
$self->{_data} .= "</tbody></table>\n"
."</fieldset>\n"
."<table ".$self->{_tableExtras}.'"><tbody>'
."<table ".$self->{_tableExtras}.'" style="width: 100%;"><tbody>'
."\n";
}
@ -142,7 +142,7 @@ sub fieldSetStart {
my $legend = shift;
$self->{_data} .= "</tbody></table>\n"
."<fieldset>\n<legend>".$legend."</legend>\n"
."<table ".$self->{_tableExtras}.'"><tbody>'
."<table ".$self->{_tableExtras}.'" style="width: 100%;"><tbody>'
."\n";
}
@ -190,7 +190,7 @@ sub new {
method=>($param{method} || $param{'-method'}),
enctype=>($param{enctype} || $param{'-enctype'})
});
$header .= "\n<table ".$param{tableExtras}.'"><tbody>';
$header .= "\n<table ".$param{tableExtras}.'" style="width: 100%;"><tbody>';
$footer = "</tbody></table>\n" ;
$footer .= WebGUI::Form::formFooter($session);
bless {_session=>$session, _tableExtras=>$param{tableExtras}, _uiLevelOverride=>$param{uiLevelOverride}, _header => $header, _footer => $footer, _data => ''}, $class;

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"

4
lib/WebGUI/TabForm.pm
View file

@ -236,9 +236,9 @@ sub print {
$tabs .= 'style="display: none;"';
}
$tabs .= '>'.$self->{_tab}{$key}{label}.'</span> ';
$form .= '<div id="tabcontent'.$i.'" class="tabBody"><table>';
$form .= '<div id="tabcontent'.$i.'" class="tabBody"><table><tbody>';
$form .= $self->{_tab}{$key}{form}->printRowsOnly;
$form .= '</table></div>';
$form .= '</tbody></table></div>';
$i++;
}
$output .= '<div class="tabs">'.$tabs.$self->{_submit}."&nbsp;&nbsp;".$self->{_cancel}.'</div>';

1
lib/WebGUI/Workflow/Activity.pm
View file

@ -225,6 +225,7 @@ Returns the form that will be used to edit the properties of an activity.
sub getEditForm {
my $self = shift;
my $form = WebGUI::HTMLForm->new($self->session);
$form->submit;
$form->hidden(name=>"activityId", value=>$self->getId);
$form->hidden(name=>"className", value=>$self->get("className"));
my $fullDefinition = $self->definition($self->session);