- Attempt to implement support for the sponsor tag in the quarterly status

report generator

Assisted by:	gjb
This commit is contained in:
Gabor Pali 2014-03-04 19:52:52 +00:00
parent 8c37ab8a33
commit ce8e9956a4
Notes: svn2git 2020-12-08 03:00:23 +00:00
svn path=/head/; revision=44119

View file

@ -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,