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