--- loncom/interface/loncoursegroups.pm 2006/06/30 08:14:31 1.32
+++ loncom/interface/loncoursegroups.pm 2006/06/30 18:27:19 1.33
@@ -1,6 +1,6 @@
# The LearningOnline Network with CAPA
#
-# $Id: loncoursegroups.pm,v 1.32 2006/06/30 08:14:31 raeburn Exp $
+# $Id: loncoursegroups.pm,v 1.33 2006/06/30 18:27:19 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -230,7 +230,10 @@ END
$grp_info{$group}{'diskuse'} = sprintf("%.0f",$pct_use);
} else {
$grp_info{$group}{'diskuse'} = 'N/A';
- }
+ }
+ my ($groupboards,$boardshash)=&Apache::longroup::get_group_bbinfo(
+ $cdom,$cnum,$group);
+ $grp_info{$group}{'boards'} = scalar(@{$groupboards});
if ($env{'form.sortby'} eq 'groupname') {
push(@{$Sortby{$group}},$group);
} elsif ($env{'form.sortby'} eq 'description') {
@@ -299,7 +302,7 @@ END
$group.'">'.$lt{'modify'}.'';
}
}
- $r->print('
'.$link.' | '.$group.' | '.$description.' | '.$creator.' | '. &Apache::lonnavmaps::timeToHumanString($creation).' | '. &Apache::lonnavmaps::timeToHumanString($modified).' | '.$functionality.' | '.$quota.' | '.$totalmembers.' | '.&mt('Files: ').$totalfiles.' '.&mt('Folders: ').$totaldirs.' | '.$boards.' | '.$diskuse.' |
');
+ $r->print(''.$link.' | '.$group.' | '.$description.' | '.$creator.' | '. &Apache::lonnavmaps::timeToHumanString($creation).' | '. &Apache::lonnavmaps::timeToHumanString($modified).' | '.$functionality.' | '.$quota.' | '.$totalmembers.' | '.&mt('Files: ').$totalfiles.' '.&mt('Folders: ').$totaldirs.' | '.$boards.' | '.$diskuse.' |
');
$rowNum ++;
}
}
@@ -3638,7 +3641,7 @@ sub add_group_folder {
#modify group folder if status of discussions tools is changed
}
my ($furl,$ferr)= &Apache::lonuserstate::readmap($cdom.'/'.$cnum);
- my $navmap = Apache::lonnavmaps::navmap->new();
+ $navmap = Apache::lonnavmaps::navmap->new();
# modify parameters
my $parm_result;
if ($action eq 'create') {