summaryrefslogtreecommitdiffstats
path: root/duplicates.cgi
diff options
context:
space:
mode:
authormyk%mozilla.org <>2002-11-05 10:53:59 +0100
committermyk%mozilla.org <>2002-11-05 10:53:59 +0100
commit6a64cd597b36411fa01d681c693786750b68c92c (patch)
treed24789dab5efebdaa47c0f1c8936428f15be9935 /duplicates.cgi
parent952d1ad687cb0ad29188c71fab2ad40e5ec984ba (diff)
downloadbugzilla-6a64cd597b36411fa01d681c693786750b68c92c.tar.gz
bugzilla-6a64cd597b36411fa01d681c693786750b68c92c.tar.xz
Fix for bug 156548: XUL implementation of duplicates report.
Diffstat (limited to 'duplicates.cgi')
-rwxr-xr-xduplicates.cgi12
1 files changed, 12 insertions, 0 deletions
diff --git a/duplicates.cgi b/duplicates.cgi
index 643a54423..e95d4b02c 100755
--- a/duplicates.cgi
+++ b/duplicates.cgi
@@ -32,6 +32,18 @@ use lib qw(.);
require "globals.pl";
require "CGI.pl";
+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") {
+ my $params = CanonicaliseParams($::buffer, ["format", "ctype"]);
+ print "Location: " . (-e "duplicates.jar" ? "duplicates.jar!/" : "") .
+ "duplicates.xul" . ($params ? "?$params" : "") . "\n\n";
+ exit;
+}
+
# Use global templatisation variables.
use vars qw($template $vars);