|
|
|
|
| Las Vegas Hotels |
 |
| Featured
Concert Events 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]; }
}
}
#----------------------------
|
|
|
For
Toll Free Reservations Call 1-888-963-8221
|
| Las Vegas Casino Map: |
|
| Click on map for more details.
|
|
|
 |
|
 |
Virtual Tours
: The Internet has brought about the age of Interactivity this has never been more prevalent than the advent of virtual tours. These 360-degree pictures radiate the true image of a hotel.....click here |
 |
Region Maps: Check out are interactive map of Las Vegas an easy way to navigate all the great spots in the city.....click here |
 |
User Reviews: Check out what other people are saying about their visit to Atlantic City.....click here |
| |
 |
|
| Featured
Theater Shows in Town |
%###################################################################
%## 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]; }
}
}
#----------------------------
|
|
|
|
|
|
|
