loncom/interface/groupboards.pm - diff

Return to groupboards.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.8, 2006/07/20 15:51:10	version 1.9, 2006/08/19 01:18:25
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 = &mt('[_1] Discussion Boards',$crstype);	my $bodytitle = $crstype.' 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);