|
|
|
|
123LasVegas.com strives to offer the best information for Atlantic
City. Our online guide is full of: Virtual
Tours, User
Reviews, Picture
Galleries, Ticket
/ Event Information, Ratings, Maps, and much much more for
Las Vegas.
We want to hear from you, in order to maintain our high excellence
level. Please
give us some information so that we know how best to address your issue:
|
|
|
|
|
|
|
|
|
Copyright 123LasVegas.com 2005-2006, all right reserved
Advertise with us
Contact Us
Las Vegas Hotels I
Las Vegas Casinos I Las Vegas Dining
Las Vegas Golf I Las Vegas Nightlife
|
|
 |
|
<%init>
my $expire_cache_now=0;
use Data::Dumper;
use Date::Manip;
my $citydata=$m->comp ("/lib/data/city_standard.mas",city_standard_id=>17848);
my $events_by_year_month= $m->comp ("/lib/data/event_functions.mas",
%ARGS,
look_ahead_window =>'2 months',
having_performances =>1,
city_standard_id =>17848,
method =>'eventMonthListing',
category=>12, ###### loading hot picks only
order_by =>'min_date,name',
# DBG =>1,
expire_cache_now=>$expire_cache_now,
);
## behold the power of perl...
sub by_date{
my $date1 = ParseDate($a->{date_to_compare});
my $date2 = ParseDate($b->{date_to_compare});
my $flag=Date_Cmp($date1,$date2);
return $flag
} ##end by_date
my $combined_events_by_month_year;
for my $year_month(@{$events_by_year_month}){
my @event_performances_combined;
for my $event(@{$year_month->{event_list} }){
## when a sporting event, map all data from structs(event and performance refs) onto one struct(a pseudo-event)
if ($event->{type_name}=~/sports/i){
my $performances= $m->comp ("/lib/data/event_functions.mas",
event_id=>$event->{id},
min_date=>$event->{min_date},
max_date=>$event->{max_date},
city_standard_id =>17848,
method =>'performanceListing',
);
for my $performance(@{$performances}){
my $struct;
$struct->{date_to_compare}=$performance->{fmt_date};
map {$struct->{$_}=$performance->{$_}} keys %{$performance};
map {$struct->{$_}=$event->{$_}} keys %{$event};
push @event_performances_combined,$struct;
} ##end for
} ##end if
else{
## non sporting event
my $performances= $m->comp ("/lib/data/event_functions.mas",
event_id=>$event->{id},
date=>$event->{min_date},
method =>'performanceListing',
city_standard_id =>17848,
limit =>1,
# DBG =>1,
);
$performances=$performances->[0];
$event->{date_to_compare}=$event->{min_date};
$event->{venue_id}=$performances->{venue_id};
$event->{venue_name}=$performances->{venue_name};
push @event_performances_combined,$event;
} ##end else
} ##end for
## at this point we have all the data, now lets sort it by either min_date or fmt_date
@event_performances_combined=sort by_date @event_performances_combined;
my $combined_year_month;
map {$combined_year_month->{$_}=$year_month->{$_} } keys %{$year_month};
$combined_year_month->{event_list}=\@event_performances_combined;
push @{$combined_events_by_month_year},$combined_year_month;
} ##end for
## ******************* rule of thumb for this page *******************
## use the documentations returned variables is this way:
## any sports will have the event AND performance variables available
## not sports will have only the event variables
|
|
|
|
