#!/usr/local/bin/perl5_8
use strict;
use HTML::Template;
$|=1;
print "content-type: text/html\n\n";
my $template = HTML::Template->new( filename => 'radio.tmpl'
);
############################### Begin Section ######################
#Control table used to generate report radio buttons, rpt titles...
#template vars: key->Rpt no. (rpt_no); value->Rpt Descr (rpt_descr)
my %rpt_tbl = ( '1' => 'Fiscal Year-to-Date Financial Information'
,'2' => 'QTD/PTD Financial Information'
,'3' => 'Cash Balance'
,'4' => 'Financial Status'
,'5' => 'Financial Summary Status'
,'6' => 'Summary by Phase'
,'7' => 'Summary by Segment'
);
my (@radio_loop, $key);
foreach $key ( sort keys %rpt_tbl )
{ $rpt_tbl{rpt_no} = $key;
$rpt_tbl{rpt_descr} = $rpt_tbl{$key};
push(@radio_loop, \%rpt_tbl);
}
#+++++++++++++++++++++++++++++++ End Section ++++++++++++++++++++++++
$template->param(radio=>\@radio_loop);
print $template->output();
####
NCSU Campus Financials Reporting