Patch by Ramon Felciano <felciano@ingenuity.com>, with many tweaks by

me.  Added a footer to every page.  Add some options to do things like
display checkboxes instead of scrolling lists, and a new formatting
for email diffs, and show list items capitalized instead of all upper
case.

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;