From 5ac3c944912d06910b0273dc801b04b981245ba3 Mon Sep 17 00:00:00 2001
From: "terry%netscape.com" <>
Date: Wed, 3 Feb 1999 10:46:50 +0000
Subject: Added support for URLs that describe the milestones for various
 projects.

---
 globals.pl | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

(limited to 'globals.pl')

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;
-- 
cgit v1.2.3-24-g4f1b