summaryrefslogtreecommitdiffstats
path: root/globals.pl
diff options
context:
space:
mode:
Diffstat (limited to 'globals.pl')
-rw-r--r--globals.pl12
1 files changed, 10 insertions, 2 deletions
diff --git a/globals.pl b/globals.pl
index 21acd00a6..856048c4d 100644
--- a/globals.pl
+++ b/globals.pl
@@ -33,8 +33,10 @@ sub globals_pl_sillyness {
$zz = @main::db_errstr;
$zz = @main::default_column_list;
$zz = @main::dontchange;
+ $zz = %main::keywordsbyname;
$zz = @main::legal_bug_status;
$zz = @main::legal_components;
+ $zz = @main::legal_keywords;
$zz = @main::legal_opsys;
$zz = @main::legal_platform;
$zz = @main::legal_priority;
@@ -576,12 +578,19 @@ sub RemoveVotes {
}
-
sub Param {
my ($value) = (@_);
if (defined $::param{$value}) {
return $::param{$value};
}
+
+ # See if it is a dynamically-determined param (can't be changed by user).
+ if ($value eq "commandmenu") {
+ return GetCommandMenu();
+ }
+ if ($value eq "settingsmenu") {
+ return GetSettingsMenu();
+ }
# Um, maybe we haven't sourced in the params at all yet.
if (stat("data/params")) {
# Write down and restore the version # here. That way, we get around
@@ -607,7 +616,6 @@ sub Param {
die "Can't find param named $value";
}
-
sub PerformSubsts {
my ($str, $substs) = (@_);
$str =~ s/%([a-z]*)%/(defined $substs->{$1} ? $substs->{$1} : Param($1))/eg;