Magic-Mirror/gecko-dev
1
0
Fork 0
mirror of https://github.com/mozilla/gecko-dev.git synced 2024-12-03 10:33:33 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Landing Ask Bjoern Hansen's fix for bug #39159

Browse Source
This commit is contained in:
tara%tequilarista.org 2001-01-20 16:58:32 +00:00
parent 9f8c60009d
commit 8dfe98e098
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
webtools/bugzilla/reports.cgi
View File

@ -39,8 +39,10 @@
use diagnostics;
use strict;
use GD;
eval "use GD";
my $use_gd = @ ? 0 : 1;
eval "use Chart::Lines";
$use_gd = 0 if $@;
require "CGI.pl";
use vars qw(%FORM); # globals from CGI.pl
@ -157,9 +159,7 @@ PutFooter() if $FORM{banner};
sub choose_product {
my $product_popup = make_options (\@myproducts, $myproducts[0]);
my $charts = defined $Chart::Lines::VERSION && -d $dir ? "<option value=\"show_chart\">Bug Charts" : "";
# get rid of warning:
$Chart::Lines::VERSION = $Chart::Lines::VERSION;
my $charts = $use_gd && -d $dir ? "<option value=\"show_chart\">Bug Charts" : "";
print <<FIN;
<center>
@ -486,6 +486,10 @@ sub daily_stats_filename {
}
sub show_chart {
# if we don't have the graphic mouldes don't even try to go
# here. Should probably return some decent error message.
return unless $use_gd;
if (! is_legal_product ($FORM{'product'})) {
&die_politely ("Unknown product: $FORM{'product'}");
}
@ -517,7 +521,9 @@ FIN
sub chart_image_type {
# what chart type should we be generating?
my $testimg = Chart::Lines->new(2,2);
eval '$testimg->gif()';
my $type = $testimg->can('gif') ? "gif" : "png";
undef $testimg;
return $type;
}