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

bit

Browse source
This commit is contained in:
daviddelikat 2009-11-06 18:50:09 -06:00
parent 707215cf3f
commit e7ce9a90b7
1 changed files with 19 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -375,7 +375,7 @@ may be SQL optimized for quick access
sub getLocations { sub getLocations {
my $self = shift; my $self = shift;
my $dateRef = shift || [ ]; my $dateRef = shift ;
my %hash; my %hash;
my %hashDate; my %hashDate;
@ -384,13 +384,30 @@ sub getLocations {
# this is a really compact 'uniq' operation # this is a really compact 'uniq' operation
my @locations = map { $h{$_}++ == 0 ? $_ : () } ( map { $_->get('location') } ( @$tickets ) ); my @locations = map { $h{$_}++ == 0 ? $_ : () } ( map { $_->get('location') } ( @$tickets ) );
# the dates have the time data removed with a pattern substitution # the dates have the time data removed with a pattern substitution
push @$dateRef, map { s/\s*\d+:\d+(:\d+)?//; $h{$_}++ == 0 ? $_ : () } ( map { $_->get('startDate') } ( @$tickets ) ); if( $dateRef ) {
push @$dateRef, map { s/\s*\d+:\d+(:\d+)?//; $h{$_}++ == 0 ? $_ : () } ( map { $_->get('startDate') } ( @$tickets ) );
}
return @locations; return @locations;
} }
#------------------------------------------------------------------- #-------------------------------------------------------------------
=head2 getNextSubmissionId
get a sequence number for the submission id
=cut
sub getNextSubmissionId {
my $self = shift;
my ($submissionId) = $self->session->db->read('select nextSubmissionId from EventManagementSystem where assetId = ?', [ $self->getId ] )->array;
$self->update( { nextSubmissionId => ($submissionId + 1) } );
return $submissionId;
}
#-------------------------------------------------------------------
=head2 getRegistrant ( badgeId ) =head2 getRegistrant ( badgeId )
Returns a hash reference containing the properties of a registrant. Returns a hash reference containing the properties of a registrant.