--- loncom/interface/lonchatfetch.pm 2006/05/09 14:38:09 1.23
+++ loncom/interface/lonchatfetch.pm 2006/05/18 01:08:50 1.24
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Chat Fetching
#
-# $Id: lonchatfetch.pm,v 1.23 2006/05/09 14:38:09 albertel Exp $
+# $Id: lonchatfetch.pm,v 1.24 2006/05/18 01:08:50 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -33,6 +33,7 @@ use Apache::Constants qw(:common :http);
use Apache::lontexconvert;
use Apache::loncommon;
use Apache::lonnet;
+use Apache::longroup;
sub handler {
my $r = shift;
@@ -48,10 +49,10 @@ sub handler {
$group) ) {
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) {
my %group_info =
- &Apache::loncommon::get_group_settings($curr_groups{$group});
+ &Apache::longroup::get_group_settings($curr_groups{$group});
$grouptitle =
''.&Apache::lonnet::unescape($group_info{description}).
'
';