--- loncom/interface/lonchatfetch.pm 2006/03/29 21:16:18 1.22
+++ 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.22 2006/03/29 21:16:18 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,12 +49,10 @@ sub handler {
$group) ) {
return HTTP_NOT_ACCEPTABLE;
}
- my %curr_groups;
- my $numgroups = &Apache::loncommon::coursegroups(\%curr_groups,$cdom,
- $cnum,$group);
- if ($numgroups) {
+ 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}).
'
';