loncom/interface/lonchatfetch.pm - diff

Return to lonchatfetch.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.23, 2006/05/09 14:38:09	version 1.24, 2006/05/18 01:08:50
Line 33 use Apache::Constants qw(:common :http);	Line 33 use Apache::Constants qw(:common :http);
use Apache::lontexconvert;	use Apache::lontexconvert;
use Apache::loncommon;	use Apache::loncommon;
use Apache::lonnet;	use Apache::lonnet;
	use Apache::longroup;

sub handler {	sub handler {
my $r = shift;	my $r = shift;
Line 48 sub handler {	Line 49 sub handler {
$group) ) {	$group) ) {
return HTTP_NOT_ACCEPTABLE;	return HTTP_NOT_ACCEPTABLE;
}	}
my %curr_groups = &Apache::loncommon::coursegroups($cdom,$cnum,$group);	my %curr_groups = &Apache::longroup::coursegroups($cdom,$cnum,$group);
if (%curr_groups) {	if (%curr_groups) {
my %group_info =	my %group_info =
&Apache::loncommon::get_group_settings($curr_groups{$group});	&Apache::longroup::get_group_settings($curr_groups{$group});
$grouptitle =	$grouptitle =
'<b>'.&Apache::lonnet::unescape($group_info{description}).	'<b>'.&Apache::lonnet::unescape($group_info{description}).
'</b><br />';	'</b><br />';