loncom/interface/groupboards.pm - diff

Return to groupboards.pm CVS log

Up to [LON-CAPA] / loncom / interface

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);