|
|
|
|
| What's Happening in Las Vegas |
%###################################################################
%## START Loop Listing Two random Events for given city number_1 ##
%###################################################################
%my $counter=0;
%for my $performance(@feature){
<% $performance->{event_name} %>
<% Bender::TokenLang::Ops::trunc $performance->{description} ,180 %>.....
buy tickets
|
%if(($option == 2)&&($counter<1)){

|  |
%} ##end if
% $counter++;
% } ##end for
%###################################################################
%## Ends Loop Listing Two random Events for given city number_1 ##
%###################################################################
<%init>
my $list_item;
use Data::Dumper;
my $city_standard_id=17848; ######## las vegas
my $type_id='3'; ###### default concert type
if($ARGS{type_id}){ $type_id =$ARGS{type_id}; }
#-----------------------------
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 => $type_id,
limit =>20,
# 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,
);
if(($next_count==0) || ((($event->{id}) ne ($next_events->[$next_count-1]->{id})))){
push @{$next_perf},$perf->[0];
} $next_count++;
} ##end for
my @feature;
my $option=2;
if($ARGS{option}){ $option =$ARGS{option}; }
if($next_perf->[0]){
if(scalar(@{$next_perf}) >1){
my $index =int(rand((scalar(@{$next_perf}-1)) +1));
my $index2 =int(rand((scalar(@{$next_perf}-1)) +1));
while($index==$index2)
{$index2 =int(rand((scalar(@{$next_perf}-1)) +1));}
push @feature,$next_perf->[$index];
if($option == 2)
{ push @feature,$next_perf->[$index2]; }
}
}
#----------------------------
%init>
|
|
 |
|
THIS WEEKEND!
|
|
|
%if ($next_venue){
% for my $venue(@{$next_venue}){
<% Bender::TokenLang::Ops::wc $venue->{event_name} %>
<% Bender::TokenLang::Ops::wc $venue->{name} %>
%if($venue->{event_min_date} ne $venue->{event_max_date}){
<% $venue->{event_min_month} %>/<% $venue->{event_min_day} %> - <% $venue->{event_max_month} %>/<% $venue->{event_max_day} %>
%}##end if
%else{
<% Bender::TokenLang::Ops::month $venue->{event_min_month} %> <% $venue->{event_min_day} %>
%}#end else
more
|
 |
% } ##end for
%} ##end if---$next_venue
<%init>
## my $expire_cache_now=1;
my $city_standard_id=17848;
my $expire_cache_now=$ARGS{expire_cache_now};
my $next_events=$m->comp ("/lib/data/event_functions.mas",
city_standard_id=>$city_standard_id,
look_ahead_window=>'1 months',
###look_ahead_window_full_month =>'1 months',
exclude_event_category=>'{12,19,3}',
type_id =>'4',
exclude_ongoing=>1,
method =>'eventListing',
order_by =>'id.min_date',
expire_cache_now=>$expire_cache_now,
limit=>3,
# DBG =>1,
);
my $next_venue;
for my $event(@$next_events){
my $venues=$m->comp ("/lib/data/event_functions.mas",
city_standard_id=>$city_standard_id,
having_performances =>1,
look_ahead_window=>'1 months',
### look_ahead_window_full_month =>'1 months',
event_id => $event->{id},
method =>'venueListing',
expire_cache_now=>$expire_cache_now,
limit =>1,
# DBG =>1,
);
my $v=$venues->[0];
$v->{event_id} = $event->{id};
$v->{event_name} = $event->{name};
$v->{event_ongoing} = $event->{ongoing};
$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->{event_min_date} = $event->{min_date};
$v->{event_max_date} = $event->{max_date};
$v->{primary_event_category_name} = $event->{primary_event_category_name};
push @{$next_venue},$v;
} ##end for
%init>
|
| |
|
|
|
|
|
|
|
|
|
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
|
|
|

|
 |
%###################################################################
%## START Loop Listing Two random Events for given city number_1 ##
%###################################################################
%my $counter=0;
%for my $performance(@feature){
<% $performance->{event_name} %>
<% Bender::TokenLang::Ops::trunc $performance->{description} ,180 %>.....
buy tickets
|
%if(($option == 2)&&($counter<1)){

|  |
%} ##end if
% $counter++;
% } ##end for
%###################################################################
%## Ends Loop Listing Two random Events for given city number_1 ##
%###################################################################
<%init>
my $list_item;
use Data::Dumper;
my $city_standard_id=17848; ######## las vegas
my $type_id='3'; ###### default concert type
if($ARGS{type_id}){ $type_id =$ARGS{type_id}; }
#-----------------------------
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 => $type_id,
limit =>20,
# 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,
);
if(($next_count==0) || ((($event->{id}) ne ($next_events->[$next_count-1]->{id})))){
push @{$next_perf},$perf->[0];
} $next_count++;
} ##end for
my @feature;
my $option=2;
if($ARGS{option}){ $option =$ARGS{option}; }
if($next_perf->[0]){
if(scalar(@{$next_perf}) >1){
my $index =int(rand((scalar(@{$next_perf}-1)) +1));
my $index2 =int(rand((scalar(@{$next_perf}-1)) +1));
while($index==$index2)
{$index2 =int(rand((scalar(@{$next_perf}-1)) +1));}
push @feature,$next_perf->[$index];
if($option == 2)
{ push @feature,$next_perf->[$index2]; }
}
}
#----------------------------
%init>
|
%if ($next_venue){
% my ($t1,$t2)="";
% for my $venue(@{$next_venue}){
% $t2 = $venue->{event_min_month};
% if($t1 ne $t2){ $t1=$t2;
|
<% Bender::TokenLang::Ops::month $venue->{event_min_month} %>
|
%}##end if----$t1-ne-$t2
%if(($venue->{event_min_day} != '') && ($venue->{event_min_day} eq $venue->{event_max_day})){
| <% $venue->{event_min_month} %>/<% $venue->{event_min_day} %> |
<% $venue->{event_name} %> |
%}##end if
% } ##end for
%} ##end if---$next_venue
 |
<%init>
my $expire_cache_now=0;
my $city_standard_id=17848;
## my $expire_cache_now=$ARGS{expire_cache_now};
my $next_events=$m->comp ("/lib/data/event_functions.mas",
city_standard_id=>$city_standard_id,
look_ahead_window=>'1 months',
###look_ahead_window_full_month =>'1 months',
exclude_event_category=>'{19}',
event_category=> '{3,12}', ## 3-headline and 12-hotpickcs
exclude_ongoing=>1,
method =>'eventListing',
order_by =>'min_date',
expire_cache_now=>$expire_cache_now,
## limit=>10,
# DBG =>1,
);
my $next_venue;
for my $event(@$next_events){
my $venues=$m->comp ("/lib/data/event_functions.mas",
city_standard_id=>$city_standard_id,
having_performances =>1,
look_ahead_window=>'1 months',
### look_ahead_window_full_month =>'1 months',
event_id => $event->{id},
method =>'venueListing',
expire_cache_now=>$expire_cache_now,
limit =>1,
# DBG =>1,
);
my $v=$venues->[0];
$v->{event_id} = $event->{id};
$v->{event_name} = $event->{name};
$v->{event_ongoing} = $event->{ongoing};
$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->{event_min_date} = $event->{min_date};
$v->{event_max_date} = $event->{max_date};
$v->{primary_event_category_name} = $event->{primary_event_category_name};
push @{$next_venue},$v;
} ##end for
%init>
|
All
Events
|
|
|
|
|
|
|
 |
|  |
|