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

you can add tokens and ribbons now

Browse source
This commit is contained in:
JT Smith 2008-03-22 21:53:19 +00:00
parent 1623356e4b
commit 5888459de3
8 changed files with 547 additions and 47 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/WebGUI/Asset/Sku/Donation.pm
View file

@ -73,7 +73,7 @@ sub definition {
hoverHelp => $i18n->get("thank you message"),
},
defaultPrice => {
tab => "commerce",
tab => "shop",
fieldType => "float",
defaultValue => 100.00,
label => $i18n->get("default price"),

4
lib/WebGUI/Asset/Sku/EMSBadge.pm
View file

@ -75,14 +75,14 @@ sub definition {
my $i18n = WebGUI::International->new($session, "Asset_EventManagementSystem");
%properties = (
price => {
tab => "commerce",
tab => "shop",
fieldType => "float",
defaultValue => 0.00,
label => $i18n->get("price"),
hoverHelp => $i18n->get("price help"),
},
seatsAvailable => {
tab => "commerce",
tab => "shop",
fieldType => "integer",
defaultValue => 100,
label => $i18n->get("seats available"),

49
lib/WebGUI/Asset/Sku/EMSRibbon.pm
View file

@ -57,7 +57,7 @@ sub definition {
my $date = WebGUI::DateTime->new($session, time());
%properties = (
price => {
tab => "commerce",
tab => "shop",
fieldType => "float",
defaultValue => 0.00,
label => $i18n->get("price"),
@ -192,5 +192,52 @@ sub www_addToCart {
return $self->getParent->www_viewExtras($badgeId);
}
#-------------------------------------------------------------------
=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->hidden({name=>'proceed', value=>'viewAllRibbons'});
return $self->processStyle('<h1>'.$i18n->get('ems ribbon').'</h1>'.$form->print);
}
#-------------------------------------------------------------------
=head2 www_viewAllRibbons ()
Displays the list of ribbons in the parent.
=cut
sub www_viewAllRibbons {
my $self = shift;
return $self->getParent->www_viewExtras(undef,"ribbons");
}
1;

52
lib/WebGUI/Asset/Sku/EMSTicket.pm
View file

@ -71,14 +71,14 @@ sub definition {
my $date = WebGUI::DateTime->new($session, time());
%properties = (
price => {
tab => "commerce",
tab => "shop",
fieldType => "float",
defaultValue => 0.00,
label => $i18n->get("price"),
hoverHelp => $i18n->get("price help"),
},
seatsAvailable => {
tab => "commerce",
tab => "shop",
fieldType => "integer",
defaultValue => 25,
label => $i18n->get("seats available"),
@ -278,5 +278,53 @@ sub www_addToCart {
return $self->getParent->www_viewExtras($badgeId);
}
#-------------------------------------------------------------------
=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->hidden({name=>'proceed', value=>'viewAllTickets'});
return $self->processStyle('<h1>'.$i18n->get('ems ticket').'</h1>'.$form->print);
}
#-------------------------------------------------------------------
=head2 www_viewAllTickets ()
Displays the list of tickets in the parent.
=cut
sub www_viewAllTickets {
my $self = shift;
return $self->getParent->www_viewExtras(undef,"tickets");
}
1;

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

@ -57,7 +57,7 @@ sub definition {
my $date = WebGUI::DateTime->new($session, time());
%properties = (
price => {
tab => "commerce",
tab => "shop",
fieldType => "float",
defaultValue => 0.00,
label => $i18n->get("price"),
@ -189,5 +189,52 @@ sub www_addToCart {
return $self->getParent->www_viewExtras($badgeId);
}
#-------------------------------------------------------------------
=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->hidden({name=>'proceed', value=>'viewAllTokens'});
return $self->processStyle('<h1>'.$i18n->get('ems token').'</h1>'.$form->print);
}
#-------------------------------------------------------------------
=head2 www_viewAllTokens ()
Displays the list of tokens in the parent.
=cut
sub www_viewAllTokens {
my $self = shift;
return $self->getParent->www_viewExtras(undef,"tokens");
}
1;