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]

Reply via email to