Fix for bug 178776: Eliminates warning in duplicates.cgi.

This commit is contained in:
myk%mozilla.org 2002-11-08 02:05:20 +00:00
parent c852ee3b89
commit e30bec6f35

View File

@ -37,7 +37,7 @@ use vars qw($buffer);
# Go directly to the XUL version of the duplicates report (duplicates.xul)
# if the user specified ctype=xul. Adds params if they exist, and directs
# the user to a signed copy of the script in duplicates.jar if it exists.
if ($::FORM{'ctype'} eq "xul") {
if ($::FORM{'ctype'} && $::FORM{'ctype'} eq "xul") {
my $params = CanonicaliseParams($::buffer, ["format", "ctype"]);
print "Location: " . (-e "duplicates.jar" ? "duplicates.jar!/" : "") .
"duplicates.xul" . ($params ? "?$params" : "") . "\n\n";