Backed out Andrew's patch -- turns out it was doing quoting sublty wrong.

git-svn-id: svn://10.0.0.236/trunk@15034 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
terry%netscape.com
1998-11-20 19:18:37 +00:00
parent 93daf60388
commit 1d5e9c99f5
17 changed files with 245 additions and 278 deletions

View File

@@ -156,12 +156,11 @@ FIN
sub most_doomed
{
my $when = localtime (time);
my $product = url_decode($::FORM{'product'});
print <<FIN;
<center>
<h1>
Bug Report for $product
Bug Report for $::FORM{'product'}
</h1>
$when<p>
FIN
@@ -180,7 +179,7 @@ from bugs,
versions projector
where bugs.assigned_to = assign.userid
and bugs.reporter = report.userid
and bugs.product='$product'
and bugs.product='$::FORM{'product'}'
and
(
bugs.bug_status = 'NEW' or
@@ -394,13 +393,13 @@ sub header
FIN
}
sub show_chart {
my $when = localtime (time);
my $product = url_decode($::FORM{'product'});
sub show_chart
{
my $when = localtime (time);
if (! is_legal_product($product))
if (! is_legal_product ($::FORM{'product'}))
{
&die_politely ("Unknown product: $product");
&die_politely ("Unknown product: $::FORM{'product'}");
}
print <<FIN;
@@ -455,7 +454,7 @@ FIN
my %settings =
(
"title" => "Bug Charts for $product",
"title" => "Bug Charts for $::FORM{'product'}",
"x_label" => "Dates",
"y_label" => "Bug Count",
"legend_labels" => \@labels,
@@ -477,7 +476,6 @@ FIN
sub die_politely
{
my $msg = shift;
my $product = url_decode($::FORM{'product'});
print <<FIN;
<p>
@@ -486,7 +484,7 @@ sub die_politely
<td align=center>
<font color=blue>Sorry, but ...</font>
<p>
There is no graph available for <b>$product</b><p>
There is no graph available for <b>$::FORM{'product'}</b><p>
<font size=-1>
$msg