I'm trying to push data into for use in a nested loop, but it's not being
pushed properly.
Can anyone help? Here's some psuedo code:
my ( %show_data );
my ( @shows, @dates_data );
while (data from DB) {
if ( done_with_line ) {
$show_data{"DO_STATIC"} = $static;
$show_data{"date"} = &text_date(
&date_longsql_to_perl($lastdate) );
$show_data{"datelink"} =
&date_longsql_to_perl($lastdate);
$show_data{"DATES-DATA"} = \@dates_data;
push @shows, \%show_data;
%show_data = ();
@dates_data = ();
$lastdate = $date;
}
my %dates_row = ();
$dates_row{"DO_STATIC"} = $static;
$dates_row{"band"} = &uc_first($artist);
$dates_row{"bandlink"} = &space_to_dot($artist);
$dates_row{"song"} = &uc_first($song);
$dates_row{"album"} = &uc_first($album);
$dates_row{"label"} = &uc_first($label);
$dates_row{"labellink"} = &space_to_dot($label);
$dates_row{"request"} = $request;
$dates_row{"special"} = $special;
push @dates_data, \%dates_row;
}
$template->param(DATES => \@shows);
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]