version 1.12, 2009/01/28 14:09:54
|
version 1.13, 2009/02/02 14:31:58
|
Line 59 sub handler {
|
Line 59 sub handler {
|
my $gpterm = &Apache::loncommon::group_term(); |
my $gpterm = &Apache::loncommon::group_term(); |
my $ucgpterm = $gpterm; |
my $ucgpterm = $gpterm; |
$ucgpterm =~ s/^(\w)/uc($1)/e; |
$ucgpterm =~ s/^(\w)/uc($1)/e; |
my $bodytitle = $crstype.' Discussion Boards'; |
my $bodytitle = $ucgpterm.' Discussion Boards'; |
my $group = $env{'form.group'}; |
my $group = $env{'form.group'}; |
$group =~ s/\W//g; |
$group =~ s/\W//g; |
my ($description,$earlyout,$refarg); |
my ($description,$earlyout,$refarg); |