- print start_table ({-align => "center",
- -id => $table_name,
- -border => 0,
- -cellspacing => 0,
- -cellpadding => 2,
- -cols => 9,
- -width => "100%"});
- print start_Tr {-valign => "bottom"};
- print th {-class => "tableleftend"}, "Date";
-
- foreach (@Types) {
- print th {-class => "tableheader"}, ucfirst;
- } # foreach
-
- print th {-class => "tablerightend"}, "Total";
-
- my %dates = GetStats $nbr_days, $date;
+ print start_table ({-align => 'center',
+ -id => $table_name,
+ -border => 0,
+ -cellspacing => 0,
+ -cellpadding => 2,
+ -cols => 9,
+ -width => '100%'});
+ print start_Tr {-valign => 'bottom'};
+ print th {-class => 'tableleftend'}, 'Date';
+
+ for (@Types) {
+ print th {-class => 'tableheader'}, ucfirst;
+ } # for
+
+ print th {-class => 'tablerightend'}, 'Total';
+
+ my %dates = GetStats($nbr_days, $date);