1 #!/usr/bin/env perl -wT
2 # -*- Mode: perl; indent-tabs-mode: nil -*-
4 # The contents of this file are subject to the Mozilla Public
5 # License Version 1.1 (the "License"); you may not use this file
6 # except in compliance with the License. You may obtain a copy of
7 # the License at http://www.mozilla.org/MPL/
9 # Software distributed under the License is distributed on an "AS
10 # IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
11 # implied. See the License for the specific language governing
12 # rights and limitations under the License.
14 # The Original Code is the Bugzilla Bug Tracking System.
16 # The Initial Developer of the Original Code is Terry Weissman.
17 # Portions created by Terry Weissman are
18 # Copyright (C) 2000 Terry Weissman. All
21 # Contributor(s): Terry Weissman <terry@mozilla.org>
22 # Contributor(s): Gervase Markham <gerv@gerv.net>
30 use Bugzilla
::Keyword
;
34 my $cgi = Bugzilla
->cgi;
35 my $template = Bugzilla
->template;
38 $vars->{'keywords'} = Bugzilla
::Keyword
->get_all_with_bug_count();
39 $vars->{'caneditkeywords'} = Bugzilla
->user->in_group("editkeywords");
41 print Bugzilla
->cgi->header();
42 $template->process("reports/keywords.html.tmpl", $vars)
43 || ThrowTemplateError
($template->error());