# editForm.tmpl - The template file I'm now using
Administrative Schedule Editor
# Perl file
#
# For brevity, I've only included the code
# to fill one of the two select boxes.
my $template = HTML::Template->new(filename => 'editForm.tmpl');
my @dateList;
foreach my $element (keys %calendar)
{
push @dateList, {'daysListValue' => $element, 'daysListValueText' => $element};
}
$template->param(
daysList => \@dateList,
apptsList => \@apptTimeList
);
print $template->output;