|
|
|
|
| |
% for my $venue(@{$venues}){
|
% ############
<% $venue->{name} %>
% ###########
(
% ##############
Click for ALL <% $venue->{name} %> Events
% ###########
)
|
% my $events =$m->comp ("/lib/data/event_functions.mas",
% expire_cache_now=>$expire_cache_now,
% venue_id =>$venue->{id},
% order_by =>'min_date',
% method=>'eventListing',
% exclude_event_category=>'{19}',
%# DBG =>1,
% );
% for my $event(@{$events}){
% my $performances =$m->comp ("/lib/data/event_functions.mas",
% expire_cache_now=>$expire_cache_now,
% event_id =>$event->{id},
% venue_id =>$venue->{id},
% order_by =>'date,time',
% method=>'performanceListing',
% limit =>1,
%# DBG =>1,
% );
%## use this to grab detail and headline data
%my $performance_data=$performances->[0];
%my ($ticketsnetwork_count,$ticketsnow_count,@ticketsnetwork_performances,@ticketsnow_performances);
%$ticketsnetwork_count = @ticketsnetwork_performances = grep{ $_->{ticketsnetwork_external_prodid} } @{$performances};
%$ticketsnow_count = @ticketsnow_performances = grep{ $_->{ticketsnow_external_prodid} } @{$performances};
|
|
 |
%} ##end for--events
| (
% #############
ALL <% $venue->{name} %> Events
% #########
) |
| |
%} ##end for--venue
|
|
|
|