svn commit: r44119 - head/en_US.ISO8859-1/htdocs/cgi
Gabor Pali
pgj at FreeBSD.org
Tue Mar 4 19:52:53 UTC 2014
Author: pgj
Date: Tue Mar 4 19:52:52 2014
New Revision: 44119
URL: http://svnweb.freebsd.org/changeset/doc/44119
Log:
- Attempt to implement support for the sponsor tag in the quarterly status
report generator
Assisted by: gjb
Modified:
head/en_US.ISO8859-1/htdocs/cgi/monthly.cgi
Modified: head/en_US.ISO8859-1/htdocs/cgi/monthly.cgi
==============================================================================
--- head/en_US.ISO8859-1/htdocs/cgi/monthly.cgi Tue Mar 4 19:25:22 2014 (r44118)
+++ head/en_US.ISO8859-1/htdocs/cgi/monthly.cgi Tue Mar 4 19:52:52 2014 (r44119)
@@ -11,6 +11,7 @@ my $debug = param("debug") || "";
my $NumDevelopers = 3;
my $NumLinks = 4;
+my $NumSponsors = 2;
my $NumTasks = 5;
my @messages;
@@ -118,6 +119,16 @@ if ($Submit)
}
}
+ my @sponsors;
+ foreach my $Num (1..$NumSponsors)
+ {
+ my $sponsor = param("Sponsor$Num") || "";
+ push(@hidden, hidden("Sponsor$Num"));
+
+ next unless $sponsor;
+ push(@sponsors, xml(2, "sponsor", "", xmltext(3, $sponsor)));
+ }
+
my @tasks;
foreach my $Num (1..$NumTasks)
{
@@ -149,6 +160,8 @@ if ($Submit)
xml(1, "body",
xml(2, "p", "", xmltext(3, @info))),
"\n",
+ @sponsors,
+ "\n",
xml(1, "help", "", @tasks),
);
my $contents = join('', @contents);
@@ -180,6 +193,13 @@ foreach my $Num (1..$NumLinks)
td(textfield(-name => "Desc$Num", -size => 20))));
}
+my @SponsorTable;
+foreach my $Num (1..$NumSponsors)
+{
+ push(@SponsorTable,
+ TR(td(textarea(-name => "Sponsor$Num", -rows => 1, -cols => 60))));
+}
+
my @TaskTable;
foreach my $Num (1..$NumTasks)
{
@@ -227,6 +247,13 @@ print
-rows => 7,
-cols => 60)),
+ h3("Sponsors (optional):"),
+ blockquote(table({"BORDER" => 0,
+ "COLS" => 1,
+ "NOSAVE" => 1},
+ TR(td("Name")),
+ @SponsorTable)),
+
h3("Open tasks (optional):"),
blockquote(table({"BORDER" => 0,
"COLS" => 5,
More information about the svn-doc-head
mailing list