[BACK]Return to longroup.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/longroup.pm between versions 1.18 and 1.23

version 1.18, 2009/01/27 15:59:30 version 1.23, 2010/01/30 18:19:16
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;
   use LONCAPA;
   
 ###############################################  ###############################################
 =pod  =pod
Line 437  sub group_changes { Line 441  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 456  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 468  sub get_tool_privs {
             vgb => 'View boards',              vgb => 'View boards',
         },          },
         chat       => {          chat       => {
             pgc => 'Chat',              pgc => 'Chat Room',
         },          },
         files      => {          files      => {
             rgf => 'Retrieve',              rgf => 'Retrieve',
Removed from v.1.18  
changed lines
  Added in v.1.23

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>