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

more tests, started coding for real...

Browse source
This commit is contained in:
daviddelikat 2009-10-06 09:43:20 -05:00
parent 3ed18c775b
commit ccc9e36e25
4 changed files with 121 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -36,6 +36,22 @@ use Tie::IxHash;
use Data::Dumper;
#-------------------------------------------------------------------
=head2 canSubmit
returns true is the current user can submit to any form attached to this EMS
=cut
sub canSubmit {
my $self = shift;
my $user = $self->session->user;
for my $groupId (split ' ', $self->get('eventSubmissionGroups')) {
return 1 if $user->isInGroup($groupId);
}
return 0;
}
#-------------------------------------------------------------------
sub definition {
my $class = shift;
@ -109,27 +125,27 @@ sub definition {
},
eventSubmissionTemplateId => {
fieldType => 'template',
defaultValue => 'yBwydfooiLvhEFawJb0VTQ',
defaultValue => 'eventSubmissionTmplt01',
tab => 'display',
label => $i18n->get('print ticket template'),
hoverHelp => $i18n->get('print ticket template help'),
namespace => 'EMS/PrintTicket',
namespace => 'EMS/SubmissionForm',
},
viewEventSubmissionQueueTemplateId => {
fieldType => 'template',
defaultValue => 'yBwydfooiLvhEFawJb0VTQ',
defaultValue => 'eventQueueTmplate00001',
tab => 'display',
label => $i18n->get('print ticket template'),
hoverHelp => $i18n->get('print ticket template help'),
namespace => 'EMS/PrintTicket',
namespace => 'EMS/SubmissionQueue',
},
editEventSubmissionTemplateId => {
fieldType => 'template',
defaultValue => 'yBwydfooiLvhEFawJb0VTQ',
defaultValue => 'editEventSubmissionT01',
tab => 'display',
label => $i18n->get('print ticket template'),
hoverHelp => $i18n->get('print ticket template help'),
namespace => 'EMS/PrintTicket',
namespace => 'EMS/EditSubmission',
},
badgeInstructions => {
fieldType => 'HTMLArea',
@ -403,6 +419,28 @@ sub getTokens {
return $self->getLineage(['children'],{returnObjects=>1, includeOnlyClasses=>['WebGUI::Asset::Sku::EMSToken']});
}
#-------------------------------------------------------------------
=head2 hasForms
returns true if the EMS has subission forms attached
=cut
sub hasForms {
return 0;
}
#-------------------------------------------------------------------
=head2 hasSubmissions
returns true if the current user has submission forms in this EMS
=cut
sub hasSubmissions {
return 0;
}
#-------------------------------------------------------------------
=head2 isRegistrationStaff ( [ user ] )
@ -498,9 +536,16 @@ sub view {
addBadgeUrl => $self->getUrl('func=add;class=WebGUI::Asset::Sku::EMSBadge'),
buildBadgeUrl => $self->getUrl('func=buildBadge'),
viewScheduleUrl => $self->getUrl('func=viewSchedule'),
newSubmissionUrl => $self->getUrl('func=newSubmission'),
viewSubmissionsUrl => $self->getUrl('func=viewSubmissions'),
viewSubmissionQueueUrl => $self->getUrl('func=viewSubmissionQueue'),
addSubmissionFormUrl => $self->getUrl('func=addSubmissionForm'),
manageBadgeGroupsUrl=> $self->getUrl('func=manageBadgeGroups'),
getBadgesUrl => $self->getUrl('func=getBadgesAsJson'),
canEdit => $self->canEdit,
canSubmit => $self->canSubmit,
hasSubmissions => $self->hasSubmissions,
hasForms => $self->hasForms,
lookupRegistrantUrl => $self->getUrl('func=lookupRegistrant'),
);