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

Fix EMS issues and change www_edit to a getEditForm override.

Browse source
This commit is contained in:
Colin Kuskie 2011-09-30 18:54:35 -07:00
parent 8cadf2d1c3
commit 8973f6a4e2
1 changed files with 19 additions and 37 deletions
Download patch file Download diff file Expand all files Collapse all files

56
lib/WebGUI/Asset/Sku/EMSToken.pm
View file

@ -18,15 +18,15 @@ use strict;
use Moose; use Moose;
use WebGUI::Definition::Asset; use WebGUI::Definition::Asset;
extends 'WebGUI::Asset::Sku'; extends 'WebGUI::Asset::Sku';
define assetName => ['ems token', 'Asset_EMSToken']; define assetName => ['ems token', 'Asset_EventManagementSystem'];
define icon => 'EMSToken.gif'; define icon => 'EMSToken.gif';
define tableName => 'EMSToken'; define tableName => 'EMSToken';
property price => ( property price => (
tab => "shop", tab => "shop",
fieldType => "float", fieldType => "float",
default => 0.00, default => 0.00,
label => ["price", 'Asset_EMSToken'], label => ["price", 'Asset_EventManagementSystem'],
hoverHelp => ["price help", 'Asset_EMSToken'], hoverHelp => ["price help", 'Asset_EventManagementSystem'],
); );
@ -84,6 +84,22 @@ sub getConfiguredTitle {
return $self->getTitle." (".$name.")"; return $self->getTitle." (".$name.")";
} }
#-------------------------------------------------------------------
=head2 getEditForm ()
Extended to make sure that the next screen viewed after saving is the viewAll screen from the parent EMS.
=cut
override getEditForm => sub {
my $self = shift;
my $form = super();
$form->addField('hidden', name => 'proceed', value => 'viewAll',);
return $form;
};
#------------------------------------------------------------------- #-------------------------------------------------------------------
=head2 getPrice =head2 getPrice
@ -234,40 +250,6 @@ sub www_delete {
} }
#-------------------------------------------------------------------
=head2 www_edit ()
Displays the edit form.
=cut
sub www_edit {
my ($self) = @_;
return $self->session->privilege->insufficient() unless $self->canEdit;
return $self->session->privilege->locked() unless $self->canEditIfLocked;
$self->session->style->setRawHeadTags(q|
<style type="text/css">
.forwardButton {
background-color: green;
color: white;
font-weight: bold;
padding: 3px;
}
.backwardButton {
background-color: red;
color: white;
font-weight: bold;
padding: 3px;
}
</style>
|);
my $i18n = WebGUI::International->new($self->session, "Asset_EventManagementSystem");
my $form = $self->getEditForm;
$form->addField( "hidden", name=>'proceed', value=>'viewAll');
return $self->processStyle('<h1>'.$i18n->get('ems token').'</h1>'.$form->toHtml);
}
#------------------------------------------------------------------- #-------------------------------------------------------------------
=head2 www_viewAll () =head2 www_viewAll ()