diff options
author | terry%netscape.com <> | 1999-02-03 10:46:50 +0000 |
---|---|---|
committer | terry%netscape.com <> | 1999-02-03 10:46:50 +0000 |
commit | 5ac3c944912d06910b0273dc801b04b981245ba3 (patch) | |
tree | 03d977fa86224dfce6481c003e8f9f775c0e66da /globals.pl | |
parent | 45bdc539bf1ab07333502d1ab63ae5c44dd05ddb (diff) | |
download | bugs-5ac3c944912d06910b0273dc801b04b981245ba3.tar bugs-5ac3c944912d06910b0273dc801b04b981245ba3.tar.gz bugs-5ac3c944912d06910b0273dc801b04b981245ba3.tar.bz2 bugs-5ac3c944912d06910b0273dc801b04b981245ba3.tar.xz bugs-5ac3c944912d06910b0273dc801b04b981245ba3.zip |
Added support for URLs that describe the milestones for various projects.
Diffstat (limited to 'globals.pl')
-rw-r--r-- | globals.pl | 13 |
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; |