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

add view cart test

Browse source 
add metadata to ems tickets
This commit is contained in:
JT Smith 2008-04-14 16:22:47 +00:00
parent c1e5f2e83c
commit f5ab66c0af
5 changed files with 475 additions and 2013 deletions
Download patch file Download diff file Expand all files Collapse all files

7
docs/upgrades/upgrade_7.5.2-7.5.3.pl
View file

@ -70,7 +70,7 @@ sub upgradeEMS {
$db->write("alter table EventManagementSystem drop column badgePrinterTemplateId");
$db->write("alter table EventManagementSystem drop column ticketPrinterTemplateId");
$db->write("alter table EventManagementSystem add column timezone varchar(30) not null default 'America/Chicago'");
$db->write("alter table EventManagementSystem add column templateId varchar(22) binary not null");
$db->write("alter table EventManagementSystem add column templateId varchar(22) binary not null default 'IgLHtUXpZRP4ckiVNz8iTQ'");
$db->write("alter table EventManagementSystem add column badgeBuilderTemplateId varchar(22) binary not null default 'BMybD3cEnmXVk2wQ_qEsRQ'");
$db->write("alter table EventManagementSystem add column lookupRegistrantTemplateId varchar(22) binary not null default 'OOyMH33plAy6oCj_QWrxtg'");
$db->write("alter table EventManagementSystem add column badgeInstructions mediumtext");
@ -78,6 +78,11 @@ sub upgradeEMS {
$db->write("alter table EventManagementSystem add column ticketInstructions mediumtext");
$db->write("alter table EventManagementSystem add column tokenInstructions mediumtext");
$db->write("alter table EventManagementSystem add column registrationStaffGroupId varchar(22) binary not null");
$db->write("alter table EventManagementSystem_metaData rename EMSEventMetaData");
$db->write("alter table EventManagementSystem_metaField rename EMSEventMetaField");
$db->write("alter table EMSEventMetaField drop column autoSearch");
$db->write("alter table EMSEventMetaField drop column name");
print "\t\tCreating new tables.\n" unless ($quiet);
$db->write("create table EMSRegistrant (
badgeId varchar(22) binary not null primary key,

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

@ -15,8 +15,9 @@ package WebGUI::Asset::Sku::EMSTicket;
=cut
use strict;
use Tie::IxHash;
use base 'WebGUI::Asset::Sku';
use Tie::IxHash;
use JSON;
=head1 NAME
@ -130,6 +131,11 @@ sub definition {
label => $i18n->get("related ribbons"),
hoverHelp => $i18n->get("related ribbons help"),
},
eventMetaData => {
noFormPost => 1,
fieldType => "hidden",
defaultValue => '{}',
},
);
push(@{$definition}, {
assetName => $i18n->get('ems ticket'),
@ -236,6 +242,31 @@ sub getConfiguredTitle {
#-------------------------------------------------------------------
=head2 getEditForm ()
Extended to support event metadata.
=cut
sub getEditForm {
my $self = shift;
my $form = $self->SUPER::getEditForm(@_);
my $metadata = JSON->new->decode($self->get("eventMetaData") || '{}');
foreach my $field (@{$self->getParent->getEventMetaFields}) {
$form->getTab("meta")->DynamicField(
name => "eventmeta ".$field->{label},
value => $metadata->{$field->{label}},
defaultValue => $field->{defaultValues},
options => $field->{possibleValues},
fieldType => $field->{dataType},
label => $field->{label},
);
}
return $form;
}
#-------------------------------------------------------------------
=head2 getMaxAllowedInCart
Returns 1.
@ -340,6 +371,26 @@ sub onRemoveFromCart {
#-------------------------------------------------------------------
=head2 processPropertiesFromFormPost ( )
Extended to support event meta fields.
=cut
sub processPropertiesFromFormPost {
my $self = shift;
$self->SUPER::processPropertiesFromFormPost(@_);
my $form = $self->session->form;
my %metadata = ();
foreach my $field (@{$self->getParent->getEventMetaFields}) {
$metadata{$field->{label}} = $form->process('eventmeta '.$field->{label}, $field->{dataType},
{ defaultValue => $field->{defaultValues}, options => $field->{possibleValues}});
}
$self->update({eventMetaData => JSON->new->encode(\%metadata)});
}
#-------------------------------------------------------------------
=head2 purge
Deletes all ticket purchases of this type. No refunds are given.

2155
lib/WebGUI/Asset/Wobject/EventManagementSystem.pm
View file

File diff suppressed because it is too large Load diff

182
lib/WebGUI/i18n/English/Asset_EventManagementSystem.pm
View file

@ -68,6 +68,12 @@ our $I18N = {
context => q|a link label|,
},
'add an event meta field' => {
message => q|Add An Event Meta Field|,
lastUpdated => 0,
context => q|a link label|,
},
'view tickets' => {
message => q|View Tickets|,
lastUpdated => 0,
@ -116,6 +122,12 @@ our $I18N = {
context => q|a link label|,
},
'meta fields' => {
message => q|Meta Fields|,
lastUpdated => 0,
context => q|a link label|,
},
'add a badge' => {
message => q|Add a badge|,
lastUpdated => 0,
@ -338,6 +350,23 @@ our $I18N = {
context => q|name of asset|,
},
'you do not have any metadata fields to display' => {
message => q|You do not have any metadata fields to display.|,
lastUpdated => 1145396293,
},
'label' => {
message => q|Label|,
lastUpdated => 0,
context => q|meta field label|,
},
'label help' => {
message => q|The label for the field that the user will read to know what the field is for.|,
lastUpdated => 0,
context => q|meta field label help|,
},
'ems badge' => {
message => q|Event Manager Badge|,
lastUpdated => 0,
@ -571,119 +600,6 @@ our $I18N = {
context => q|hover help for operator field|,
},
'and' => {
message => q|And|,
lastUpdated => 1138899055,
context => q|logical AND|,
},
'or' => {
message => q|Or|,
lastUpdated => 1138899055,
context => q|logical OR|,
},
'add/edit event what next' => {
message => q|What Next?|,
lastUpdated => 1138902214,
context => q|form field in add/edit event|,
},
'add/edit event what next description' => {
message => q|After you have completed filling out this form, you can either add another required event, or simply save your settings and return to the Event Manager page.|,
lastUpdated => 1138899055,
context => q|hover help for What Next field|,
},
'add/edit event add another prerequisite' => {
message => q|Add Another Prerequisite|,
lastUpdated => 1138312761,
context => q|option for adding another required event in the add/edit event screen|,
},
'add/edit event return to manage events' => {
message => q|Return to Manage Events|,
lastUpdated => 1138312761,
context => q|option for returning to manage events page|,
},
'add/edit event assigned prerequisites' => {
message => q|<br />Assigned Prerequisites<br /><br />|,
lastUpdated => 1138312761,
context => q|Label for displaying required events|,
},
'add/edit event error' => {
message => q|ERROR|,
lastUpdated => 1138903982,
context => q|label for displaying errors when an event has been added or edited, such as missing required fields.|,
},
'event' => {
message => q|Event|,
lastUpdated => 1138904660,
},
'price must be greater than zero' => {
message => q|Price must be greater than zero.|,
lastUpdated => 1138312761,
context => q|Error message for an illegal price.|,
},
'status' => {
message => q|Status|,
lastUpdated => 1138908026,
context => q|Whether an event has been approved or not|,
},
'approved' => {
message => q|Approved|,
lastUpdated => 1138908026,
context => q|label in Event Manager, approved|,
},
'pending' => {
message => q|Pending|,
lastUpdated => 1138908026,
context => q|label in Event Manager, waiting for approval|,
},
'confirm delete event' => {
message => q|Are you sure you want to delete this event?|,
lastUpdated => 1138908026,
context => q|Confirm whether an event will be deleted|,
},
'confirm delete prerequisite' => {
message => q|Are you sure you want to delete this prerequisite?|,
lastUpdated => 1138908883,
context => q|Confirm whether a prerequisite will be deleted in the add/edit event screen|,
},
'add event' => {
message => q|Add Event|,
lastUpdated => 1138908251,
context => q|Link to add an event to the event manager|,
},
'manage event metadata' => {
message => q|Manage Event Metadata|,
lastUpdated => 1138908251,
context => q|Link to manage event metadata|,
},
'add new event metadata field' => {
message => q|Add new Event Metadata Field|,
lastUpdated => 1138908251,
context => q|In Manage Event Metadata screen|,
},
'add/edit event metadata field' => {
message => q|Add/Edit Event Metadata Field|,
lastUpdated => 1138908251,
context => q|In Manage Event Metadata screen|,
},
'check required fields' => {
message => q|You did not include these required fields: |,
lastUpdated => 0,
@ -1367,46 +1283,6 @@ by setting the "hide" form variable.|,
lastUpdated => 1145396293,
},
'you do not have any metadata fields to display' => {
message => q|You do not have any metadata fields to display.|,
lastUpdated => 1145396293,
},
'you do not have any events to display' => {
message => q|You do not have any events to display.|,
lastUpdated => 1145396293,
},
'save approvals' => {
message => q|Save Approvals|,
lastUpdated => 1145396293,
},
'approve event' => {
message => q|Approve Event|,
lastUpdated => 1145396293,
},
'approve event description' => {
message => q|You can approve events so you may either submit events already approved or directly edit approval of events|,
lastUpdated => 1145396293,
},
'approval' => {
message => q|Approval|,
lastUpdated => 1145396293,
},
'auto search' => {
message => q|Initial Search Field|,
lastUpdated => 1145400186,
},
'auto search description' => {
message => q|Make this appear as a Filter Field on the Advanced Search screen by default|,
lastUpdated => 1145400186,
},
'select one' => {
message => q|Select One|,
lastUpdated => 1145400186,

91
t/Macro/ViewCart.t Normal file
View file

@ -0,0 +1,91 @@
#-------------------------------------------------------------------
# WebGUI is Copyright 2001-2008 Plain Black Corporation.
#-------------------------------------------------------------------
# Please read the legal notices (docs/legal.txt) and the license
# (docs/license.txt) that came with this distribution before using
# this software.
#-------------------------------------------------------------------
# http://www.plainblack.com info@plainblack.com
#-------------------------------------------------------------------
use FindBin;
use strict;
use lib "$FindBin::Bin/../lib";
use WebGUI::Test;
use WebGUI::Session;
use HTML::TokeParser;
use Data::Dumper;
use Test::More; # increment this value for each test you create
my $session = WebGUI::Test->session;
my @testSets = (
{
comment => 'default',
label => q!!,
output => '<a href="'.$session->url->page('shop=cart').'"><img src="/extras/macro/ViewCart/cart.gif" alt="View Cart" style="border: 0px;vertical-align: middle;" /></a> <a href="'.$session->url->page('shop=cart').'">View Cart</a>',
},
{
comment => 'custom text',
label => q!PD Made Me Do It!,
output => '<a href="'.$session->url->page('shop=cart').'"><img src="/extras/macro/ViewCart/cart.gif" alt="PD Made Me Do It" style="border: 0px;vertical-align: middle;" /></a> <a href="'.$session->url->page('shop=cart').'">PD Made Me Do It</a>',
},
);
my $numTests = 0;
foreach my $testSet (@testSets) {
$numTests += 1 + (ref $testSet->{output} eq 'CODE');
}
$numTests += 1; #For the use_ok
plan tests => $numTests;
my $macro = 'WebGUI::Macro::ViewCart';
my $loaded = use_ok($macro);
SKIP: {
skip "Unable to load $macro", $numTests-1 unless $loaded;
foreach my $testSet (@testSets) {
my $output = WebGUI::Macro::ViewCart::process( $session, $testSet->{label});
if (ref $testSet->{output} eq 'CODE') {
my ($url, $label) = $testSet->{output}->($output);
is($label, $testSet->{label}, $testSet->{comment}.", label");
is($url, $testSet->{url}, $testSet->{comment}.", url");
}
else {
is($output, $testSet->{output}, $testSet->{comment});
}
}
}
sub simpleHTMLParser {
my ($text) = @_;
my $p = HTML::TokeParser->new(\$text);
my $token = $p->get_tag("a");
my $url = $token->[1]{href} || "-";
my $label = $p->get_trimmed_text("/a");
return ($url, $label);
}
sub simpleTextParser {
my ($text) = @_;
my ($url) = $text =~ /^HREF=(.+)$/m;
my ($label) = $text =~ /^LABEL=(.+)$/m;
return ($url, $label);
}
END {
}