delete $reportsettings{'DAY_END'};
delete $reportsettings{'MONTH_END'};
delete $reportsettings{'YEAR_END'};
+ delete $reportsettings{'REPORT'};
&General::writehash("${General::swroot}/proxy/calamaris/settings", \%reportsettings);
if (@reports)
{
print "<td><select name='REPORT' size='5'>\n";
- my $n=0;
foreach (@reports)
{
@reportdata=split(/#/);
print "\t<option ";
- if ($n eq '0') { print "selected "; $reportsettings{'REPORT'}=$reportdata[1]; $n++}
+ if ($reportsettings{'REPORT'} eq $reportdata[1]) { print "selected ";}
print "value='$reportdata[1]'>$reportdata[2] - $reportdata[3]</option>\n";
}
print "</select></td>\n";