diff options
| -rwxr-xr-x | reports.cgi | 16 |
1 files changed, 3 insertions, 13 deletions
diff --git a/reports.cgi b/reports.cgi index 163f583c8..c76a411f7 100755 --- a/reports.cgi +++ b/reports.cgi @@ -525,23 +525,13 @@ sub chart_image_type { sub chart_image_name { my ($data_file, $type) = @_; - my $id = datasets_id($FORM{datasets}); - my $doy = day_of_year(); + # Cache charts by generating a unique filename based on what they + # show. Charts should be deleted by collectstats.pl nightly. + my $id = join ("_", split (":", $FORM{datasets})); return "${data_file}_${id}.$type"; } -# Cache charts by generating a unique filename based on what they -# show. Charts should be deleted by collectstats.pl nightly. -sub datasets_id { - # Current method is very long filenames... - my $longname = ""; - foreach (@_) { - $longname .= $_; - } - return $longname; -} - sub day_of_year { my ($mday, $month, $year) = (localtime())[3 .. 5]; $month += 1; |