loncom/interface/longroup.pm - diff

Return to longroup.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.18, 2009/01/27 15:59:30	version 1.19, 2009/01/30 16:13:04
Line 28 package Apache::longroup;	Line 28 package Apache::longroup;

use strict;	use strict;
use Apache::lonnet;	use Apache::lonnet;
	use Apache::lonlocal;

###############################################	###############################################
=pod	=pod
Line 437 sub group_changes {	Line 438 sub group_changes {

sub get_fixed_privs {	sub get_fixed_privs {
my $fixedprivs = {	my $fixedprivs = {
email => {sgm => 1},	communication => {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 453 sub get_fixed_privs {
sub get_tool_privs {	sub get_tool_privs {
my ($gpterm) = @_;	my ($gpterm) = @_;
my $toolprivs = {	my $toolprivs = {
email => {	communication => {
sgm => 'Send '.$gpterm.' message',	sgm => 'Send '.$gpterm.' message',
sgb => 'Broadcast message',	sgb => 'Broadcast message',
},	},