--- loncom/interface/longroup.pm 2009/01/27 15:59:30 1.18 +++ loncom/interface/longroup.pm 2009/02/25 16:39:54 1.22 @@ -1,6 +1,8 @@ # The LearningOnline Network with CAPA # accessor routines used to provide information about course groups # +# $Id: longroup.pm,v 1.22 2009/02/25 16:39:54 hauer Exp $ +# # Copyright Michigan State University Board of Trustees # # This file is part of the LearningOnline Network with CAPA (LON-CAPA). @@ -28,6 +30,7 @@ package Apache::longroup; use strict; use Apache::lonnet; +use Apache::lonlocal; ############################################### =pod @@ -437,12 +440,12 @@ sub group_changes { sub get_fixed_privs { my $fixedprivs = { - email => {sgm => 1}, - discussion => {vgb => 1}, - chat => {pgc => 1}, - files => {rgf => 1}, - roster => {vgm => 1}, - homepage => {vgh => 1}, + email => {sgm => 1}, + discussion => {vgb => 1}, + chat => {pgc => 1}, + files => {rgf => 1}, + roster => {vgm => 1}, + homepage => {vgh => 1}, }; return $fixedprivs; } @@ -452,7 +455,7 @@ sub get_fixed_privs { sub get_tool_privs { my ($gpterm) = @_; my $toolprivs = { - email => { + email => { sgm => 'Send '.$gpterm.' message', sgb => 'Broadcast message', }, @@ -464,7 +467,7 @@ sub get_tool_privs { vgb => 'View boards', }, chat => { - pgc => 'Chat', + pgc => 'Chat Room', }, files => { rgf => 'Retrieve',