- Attempt to implement support for the sponsor tag in the quarterly status
report generator Assisted by: gjb
This commit is contained in:
parent
8c37ab8a33
commit
ce8e9956a4
Notes:
svn2git
2020-12-08 03:00:23 +00:00
svn path=/head/; revision=44119
1 changed files with 27 additions and 0 deletions
|
@ -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,
|
||||
|
|
Loading…
Reference in a new issue