diff options
Diffstat (limited to 'globals.pl')
-rw-r--r-- | globals.pl | 12 |
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; |