summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--Bugzilla/Template.pm22
1 files changed, 22 insertions, 0 deletions
diff --git a/Bugzilla/Template.pm b/Bugzilla/Template.pm
index cb034478d..a764848be 100644
--- a/Bugzilla/Template.pm
+++ b/Bugzilla/Template.pm
@@ -37,6 +37,26 @@ use Date::Format ();
use base qw(Template);
+# Convert the constants in the Bugzilla::Constants module into a hash we can
+# pass to the template object. To do so, we have to traverse the symbol table
+# for the module, pulling out the functions (which is how Perl constants are
+# implemented) and ignoring the rest (i.e. things like the @EXPORT array).
+use Bugzilla::Constants ();
+my %constants;
+foreach my $constant (keys %Bugzilla::Constants::) {
+ if (defined &{$Bugzilla::Constants::{$constant}}) {
+ # Constants can be lists, and we can't know whether we're getting
+ # a scalar or a list in advance, since they come to us as the return
+ # value of a function call, so we have to retrieve them all in list
+ # context into anonymous arrays, then extract the scalar ones (i.e.
+ # the ones whose arrays contain a single element) from their arrays.
+ $constants{$constant} = [&{$Bugzilla::Constants::{$constant}}];
+ if (scalar(@{$constants{$constant}}) == 1) {
+ $constants{$constant} = @{$constants{$constant}}[0];
+ }
+ }
+}
+
# XXX - mod_perl
my $template_include_path;
@@ -361,6 +381,8 @@ sub create {
PLUGIN_BASE => 'Bugzilla::Template::Plugin',
+ CONSTANTS => \%constants,
+
# Default variables for all templates
VARIABLES => {
# Function for retrieving global parameters.