diff options
| author | mkanat%bugzilla.org <> | 2006-07-25 06:43:35 +0200 |
|---|---|---|
| committer | mkanat%bugzilla.org <> | 2006-07-25 06:43:35 +0200 |
| commit | bea873a66d06670af744b29d9e8d357ae3b5ceed (patch) | |
| tree | e02d78a0cc4cdec66d7f5624cf91b35f6346913e /reports.cgi | |
| parent | 788586bb0f6d33b6fd0153b085ef3270fecd47d4 (diff) | |
| download | bugzilla-bea873a66d06670af744b29d9e8d357ae3b5ceed.tar.gz bugzilla-bea873a66d06670af744b29d9e8d357ae3b5ceed.tar.xz | |
Bug 344527: Old Charts are broken using mod_perl
Patch By Max Kanat-Alexander <mkanat@bugzilla.org> r=LpSolit, a=justdave
Diffstat (limited to 'reports.cgi')
| -rwxr-xr-x | reports.cgi | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/reports.cgi b/reports.cgi index e0ef55daf..0f5842d0b 100755 --- a/reports.cgi +++ b/reports.cgi @@ -47,8 +47,9 @@ $@ && ThrowCodeError("gd_not_installed"); eval "use Chart::Lines"; $@ && ThrowCodeError("chart_lines_not_installed"); -local our $dir = bz_locations()->{'datadir'} . "/mining"; -local our $graph_dir = bz_locations()->{'libpath'} . "/graphs"; +local our $dir = bz_locations()->{'datadir'} . "/mining"; +local our $graph_url = 'graphs'; +local our $graph_dir = bz_locations()->{'libpath'} . '/' .$graph_url; # If we're using bug groups for products, we should apply those restrictions # to viewing reports, as well. Time to check the login in that case. @@ -198,7 +199,8 @@ FIN my $type = chart_image_type(); my $data_file = daily_stats_filename($product); my $image_file = chart_image_name($data_file, $type, $datasets); - my $url_image = "$graph_dir/" . url_quote($image_file); + my $url_image = correct_urlbase() . "$graph_url/" + . url_quote($image_file); if (! -e "$graph_dir/$image_file") { generate_chart("$dir/$data_file", "$graph_dir/$image_file", $type, |