Added support for URLs that describe the milestones for various projects.

1 files changed, 10 insertions, 3 deletions

diff --git a/globals.pl b/globals.pl
index 439e36cea..417d1216c 100644
--- a/globals.pl
+++ b/globals.pl
@@ -232,10 +232,16 @@ sub GenerateVersionTable {
         $carray{$c} = 1;
     }
 
-    SendSQL("select product, description from products");
+    my $dotargetmilestone = Param("usetargetmilestone");
+
+    my $mpart = $dotargetmilestone ? ", milestoneurl" : "";
+    SendSQL("select product, description$mpart from products");
     while (@line = FetchSQLData()) {
-        my ($p, $d) = (@line);
+        my ($p, $d, $u) = (@line);
         $::proddesc{$p} = $d;
+        if ($dotargetmilestone) {
+            $::milestoneurl{$p} = $u;
+        }
     }
             
 
@@ -287,13 +293,14 @@ sub GenerateVersionTable {
     }
     print FID GenerateCode('%::proddesc');
 
-    if (Param("usetargetmilestone")) {
+    if ($dotargetmilestone) {
         my $last = Param("nummilestones");
         my $i;
         for ($i=1 ; $i<=$last ; $i++) {
             push(@::legal_target_milestone, "M$i");
         }
         print FID GenerateCode('@::legal_target_milestone');
+        print FID GenerateCode('%::milestoneurl');
     }
     print FID "1;\n";
     close FID;