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.14, 2009/02/13 17:20:29
Line 1	Line 1
# The LearningOnline Network	# The LearningOnline Network
# Group Bulletin Boards Manager	# Group Bulletin Boards Manager
#	#
	# $Id$
	#
# Copyright Michigan State University Board of Trustees	# Copyright Michigan State University Board of Trustees
#	#
# This file is part of the LearningOnline Network with CAPA (LON-CAPA).	# This file is part of the LearningOnline Network with CAPA (LON-CAPA).
Line 59 sub handler {	Line 61 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);