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

can now add a badge to your cart

Browse source
This commit is contained in:
JT Smith 2008-03-21 23:48:22 +00:00
parent 8a07dde303
commit 1623356e4b
8 changed files with 177 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -20,6 +20,7 @@ use base 'WebGUI::Asset::Sku';
use JSON;
use WebGUI::HTMLForm;
use WebGUI::International;
use WebGUI::Shop::AddressBook;
use WebGUI::Utility;
=head1 NAME
@ -81,7 +82,7 @@ sub definition {
hoverHelp => $i18n->get("price help"),
},
seatsAvailable => {
tab => "properties",
tab => "commerce",
fieldType => "integer",
defaultValue => 100,
label => $i18n->get("seats available"),
@ -110,7 +111,7 @@ Returns title + badgeholder name
sub getConfiguredTitle {
my $self = shift;
my $name = $self->session->db->getScalar("select name from EMSRegistrant where badgeId=?",[$self->getOptions->{badgeId}]);
my $name = $self->session->db->quickScalar("select name from EMSRegistrant where badgeId=?",[$self->getOptions->{badgeId}]);
return $self->getTitle." (".$name.")";
}
@ -235,7 +236,7 @@ sub view {
$book->submit(value=>$i18n->get("populate from address book"));
# instanciate address
my $address = WebGUI::Shop::Address->new($self->session, $form->get("addressId")) if ($form->get("addressId"));
my $address = WebGUI::Shop::AddressBook->create($self->session)->getAddress($form->get("addressId")) if ($form->get("addressId"));
# build the form that the user needs to fill out with badge holder information
my $info = WebGUI::HTMLForm->new($self->session, action=>$self->getUrl);
@ -350,4 +351,37 @@ sub www_addToCart {
return $self->getParent->www_viewExtras($self->getOptions->{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");
return $self->processStyle('<h1>'.$i18n->get('ems badge').'</h1>'.$self->getEditForm->print);
}
1;

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

@ -86,7 +86,7 @@ Return title + badge holder name.
sub getConfiguredTitle {
my $self = shift;
my $name = $self->session->db->getScalar("select name from EMSRegistrant where badgeId=?",[$self->getOptions->{badgeId}]);
my $name = $self->session->db->quickScalar("select name from EMSRegistrant where badgeId=?",[$self->getOptions->{badgeId}]);
return $self->getTitle." (".$name.")";
}

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

@ -78,7 +78,7 @@ sub definition {
hoverHelp => $i18n->get("price help"),
},
seatsAvailable => {
tab => "properties",
tab => "commerce",
fieldType => "integer",
defaultValue => 25,
label => $i18n->get("seats available"),
@ -105,6 +105,13 @@ sub definition {
label => $i18n->get("event end date"),
hoverHelp => $i18n->get("event end date help"),
},
location => {
tab => "properties",
fieldType => "comboBox",
options => $session->db->buildHashRef("select distinct(location) from EMSTicket order by location"),
label => $i18n->get("seats available"),
hoverHelp => $i18n->get("seats available help"),
},
relatedBadges => {
tab => "properties",
fieldType => "checkList",
@ -136,7 +143,7 @@ Returns title + badgeholder name.
sub getConfiguredTitle {
my $self = shift;
my $name = $self->session->db->getScalar("select name from EMSRegistrant where badgeId=?",[$self->getOptions->{badgeId}]);
my $name = $self->session->db->quickScalar("select name from EMSRegistrant where badgeId=?",[$self->getOptions->{badgeId}]);
return $self->getTitle." (".$name.")";
}

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

@ -86,7 +86,7 @@ Returns title + badgeholder name.
sub getConfiguredTitle {
my $self = shift;
my $name = $self->session->db->getScalar("select name from EMSRegistrant where badgeId=?",[$self->getOptions->{badgeId}]);
my $name = $self->session->db->quickScalar("select name from EMSRegistrant where badgeId=?",[$self->getOptions->{badgeId}]);
return $self->getTitle." (".$name.")";
}