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

Diff for /loncom/interface/loncoursegroups.pm between versions 1.21 and 1.22

version 1.21, 2006/05/22 22:35:46 version 1.22, 2006/05/25 22:39:59
Line 397  sub group_administration { Line 397  sub group_administration {
         }          }
     }      }
   
     my %toolprivs = ();      my %toolprivs =
     %{$toolprivs{'email'}} = (   (
                                  sgm => 'Send group mail',   email      => {
                                  sgb => 'Broadcast mail',       sgm => 'Send group mail',
                              );       sgb => 'Broadcast mail',
     %{$toolprivs{'discussion'}} =  (   },
                                      cgb => 'Create boards',   discussion => {
                                      pgd => 'Post',       cgb => 'Create boards',
                                      pag => 'Anon. posts',       pgd => 'Post',
                                      rgi => 'Get identities',        pag => 'Anon. posts',
                                      vgb => 'View boards',       rgi => 'Get identities', 
                                    );       vgb => 'View boards',
     %{$toolprivs{'chat'}} =  (   },
                                 pgc => 'Chat',   chat       => {
                              );       pgc => 'Chat',
     %{$toolprivs{'files'}} =  (   },
                                  rgf => 'Retrieve',   files      => {
                                  ugf => 'Upload',       rgf => 'Retrieve',
                                  dgf => 'Delete',       ugf => 'Upload',
                               );       dgf => 'Delete',
     %{$toolprivs{'roster'}} = (   },
                                  vgm => 'View',   roster     => {
                               );       vgm => 'View',
     %{$toolprivs{'homepage'}} = (   },
                                 vgh => 'View page',   homepage   => {
                                 mgh => 'Modify page',       vgh => 'View page',
                               );       mgh => 'Modify page',
     my %fixedprivs = ();   },
     %{$fixedprivs{'email'}} = ('sgm' => 1);   );
     %{$fixedprivs{'discussion'}} = ('vgb' => 1);  
     %{$fixedprivs{'chat'}} = ('pgc' => 1);      my %fixedprivs = 
     %{$fixedprivs{'files'}} = ('rgf' => 1);   (
     %{$fixedprivs{'roster'}} = ('vgm' => 1);   email      => {sgm => 1},
     %{$fixedprivs{'homepage'}} = ('vgh' => 1);   discussion => {vgb => 1},
    chat       => {pgc => 1},
     my %elements = ();   files      => {rgf => 1},
     %{$elements{'create'}} = ();   roster     => {vgm => 1},
     %{$elements{'modify'}} = ();   homepage   => {vgh => 1},
     %{$elements{'create'}{'pick_name'}} = (   );
         startdate_month => 'selectbox',  
         startdate_hour => 'selectbox',      my %elements = 
         enddate_month => 'selectbox',   (
         enddate_hour => 'selectbox',   create => {
         startdate_day => 'text',       pick_name => {
         startdate_year => 'text',   startdate_month  => 'selectbox',
         startdate_minute => 'text',   startdate_hour   => 'selectbox',
         startdate_second => 'text',   enddate_month    => 'selectbox',
         enddate_day => 'text',   enddate_hour     => 'selectbox',
         enddate_year => 'text',   startdate_day    => 'text',
         enddate_minute => 'text',   startdate_year   => 'text',
         enddate_second => 'text',   startdate_minute => 'text',
         groupname => 'text',   startdate_second => 'text',
         description => 'text',   enddate_day      => 'text',
         tool => 'checkbox',   enddate_year     => 'text',
         granularity => 'radio',   enddate_minute   => 'text',
         no_end_date => 'checkbox',   enddate_second   => 'text',
     );   groupname        => 'text',
     %{$elements{'modify'}{'change_settings'}} = (   description      => 'text',
                                    %{$elements{'create'}{'pick_name'}},   tool             => 'checkbox',
                                                 specificity => 'radio',   granularity      => 'radio',
                                                 defpriv => 'checkbox',   no_end_date      => 'checkbox',
                                                 autorole => 'checkbox',       },
                                                 autoadd => 'radio',       pick_members => {
                                                 autodrop => 'radio',   member          => 'checkbox',
                                    );   defpriv         => 'checkbox',
        },
    },
    );
       
       $elements{'modify'} = {
    change_settings => {
       %{$elements{'create'}{'pick_name'}},
       specificity => 'radio',
       defpriv     => 'checkbox',
       autorole    => 'checkbox',
       autoadd     => 'radio',
       autodrop    => 'radio',
    },
    add_members => {
       types       => 'selectbox',
       roles       => 'selectbox',
    },
       };
   
     if (ref($stored{'autorole'}) eq 'ARRAY') {      if (ref($stored{'autorole'}) eq 'ARRAY') {
         foreach my $role (@{$stored{'autorole'}}) {          foreach my $role (@{$stored{'autorole'}}) {
             unless ($role eq 'cc') {              unless ($role eq 'cc') {
Line 470  sub group_administration { Line 489  sub group_administration {
             }              }
         }          }
     }      }
     %{$elements{'create'}{'pick_members'}} = (  
         member => 'checkbox',  
         defpriv => 'checkbox',  
     );  
   
     %{$elements{'modify'}{'add_members'}} = (  
         types => 'selectbox',  
         roles => 'selectbox',  
     );  
   
     if (($action eq 'create') && ($state eq 'pick_name')) {      if (($action eq 'create') && ($state eq 'pick_name')) {
         $elements{'create'}{'pick_name'}{'types'} = 'selectbox';          $elements{'create'}{'pick_name'}{'types'} = 'selectbox';
Line 2114  sub current_membership { Line 2124  sub current_membership {
                 my($end,$start,@userprivs) = split(/:/,$membership{$key});                  my($end,$start,@userprivs) = split(/:/,$membership{$key});
                 unless ($start == -1) {                  unless ($start == -1) {
                     $allnames{$udom}{$uname} = 1;                      $allnames{$udom}{$uname} = 1;
                     %{$current{$user}} = ();                      $current{$user} = {
                     $current{$user}{uname} = $uname;   uname     => $uname,
                     $current{$user}{udom} = $udom;   udom      => $udom,
                     $current{$user}{start} =    start     => &Apache::lonlocal::locallocaltime($start),
                                      &Apache::lonlocal::locallocaltime($start);   currtools => [];
    newtools  => [];
       };
   
                     if ($end == 0) {                      if ($end == 0) {
                         $current{$user}{end} =  'No end date';                          $current{$user}{end} =  'No end date';
                     } else {                      } else {
Line 2136  sub current_membership { Line 2149  sub current_membership {
                         $current{$user}{changestate} = 'expire';                          $current{$user}{changestate} = 'expire';
                         $num_expire ++;                          $num_expire ++;
                     }                      }
                     @{$current{$user}{currtools}} = ();  
                     @{$current{$user}{newtools}} = ();  
                     if (@userprivs > 0) {                      if (@userprivs > 0) {
                         foreach my $tool (sort(keys(%{$fixedprivs}))) {                          foreach my $tool (sort(keys(%{$fixedprivs}))) {
                             foreach my $priv (keys(%{$$fixedprivs{$tool}})) {                              foreach my $priv (keys(%{$$fixedprivs{$tool}})) {
Removed from v.1.21  
changed lines
  Added in v.1.22

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