|
|
|
Las Vegas Events
|
%###################################################################
%## START Loop Events for given city number_1 ##
%###################################################################
%my $counter=0;
%for my $performance(@{$next_perf}){
<% $performance->{event_name} %>
<% Bender::TokenLang::Ops::trunc $performance->{description} ,175 %>.....
 click here for tickets
|
%if($counter<1){
| |
%} ##end if
% $counter++;
% } ##end for
%###################################################################
%## Ends Loop Events for given city number_1 ##
%###################################################################
<%init>
my $expire_cache_now=0;
my $list_item;
use Data::Dumper;
my $city_standard_id=17848; ## las vegas
#-----------------------------
my $next_events=$m->comp ("/lib/data/event_functions.mas",
city_standard_id=>$city_standard_id,
having_performances =>1,
having_description =>1,
having_picture =>1,
method =>'eventListing',
order_by =>'min_date',
type_id => '1',
limit =>5,
expire_cache_now=>$expire_cache_now,
# DBG =>1,
);
my $next_perf;
my $next_count=0;
my $max=0;
for my $event(@$next_events){
my $perf=$m->comp ("/lib/data/event_functions.mas",
city_standard_id=>$city_standard_id,
event_id => $event->{id},
method =>'performanceListing',
limit =>1,
# DBG =>1,
expire_cache_now=>$expire_cache_now,
);
if(($next_count==0) || ((($event->{id}) ne ($next_events->[$next_count-1]->{id}))&& ($max <2))){
push @{$next_perf},$perf->[0]; $max++;
} $next_count++;
} ##end for
#----------------------------
|
|
|
|
|
| %if ($next_venue){
%} ##end if
<%init>
my $city_standard_id =17848; ###### las vegas
my $expire_cache_now=$ARGS{expire_cache_now};
my $next_events=$m->comp ("/lib/data/event_functions.mas",
expire_cache_now=>$expire_cache_now,
city_standard_id =>$city_standard_id,
#look_ahead_window =>'1 months',
order_by =>'min_date,name',
#having_performances =>1,
exclude_event_category=>'{19}', # excluding poker
method =>'eventListing',
exclude_ongoing =>1,
category =>12,
limit =>20,
# DBG =>1,
);
my $next_venue;
my $next_count=0;
for my $event(@$next_events){
my $venues=$m->comp ("/lib/data/event_functions.mas",
expire_cache_now=>$expire_cache_now,
city_standard_id=>$city_standard_id,
event_id => $event->{id},
method =>'venueListing',
limit =>1,
# DBG =>1,
);
my $v=$venues->[0];
$v->{event_id} = $event->{id};
$v->{event_name} = $event->{name};
$v->{event_min_date} = $event->{min_date};
$v->{event_max_date} = $event->{max_date};
$v->{event_min_day} = $event->{min_day};
$v->{event_max_day} = $event->{max_day};
$v->{event_min_month} = $event->{min_month};
$v->{event_max_month} = $event->{max_month};
$v->{primary_event_category_name} = $event->{primary_event_category_name};
if(($next_count==0) || ((($event->{id}) ne ($next_events->[$next_count-1]->{id})))){
push @{$next_venue},$v;
} $next_count++;
} ##end for
|
|
