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

Diff for /loncom/interface/longroup.pm between versions 1.6 and 1.14

version 1.6, 2006/06/28 23:38:10 version 1.14, 2006/12/04 14:59:56
Line 40  Input: Line 40  Input:
 1. Optional course domain  1. Optional course domain
 2. Optional course number  2. Optional course number
 3. Optional group name  3. Optional group name
   4. Optional namespace
   
 Course domain and number will be taken from user's  Course domain and number will be taken from user's
 environment if not supplied. Optional group name will   environment if not supplied. Optional group name will 
 be passed to lonnet::get_coursegroups() as a regexp to  be passed to lonnet function as a regexp to
 use in the call to the dump function.  use in the call to the dump function.  Optional namespace
   will determine whether information is retrieved about current 
   groups (default) or deleted groups (namespace = deleted_groups). 
   
 Output  Output
 Returns hash of groups in the course (subject to the  Returns hash of groups in a course (subject to the
 optional group name filter). In the hash, the keys are  optional group name filter). In the hash, the keys are
 group names, and their corresponding values  group names, and their corresponding values
 are scalars containing group information in XML. This  are scalars containing group information in XML. This
Line 60  None. Line 63  None.
 ###############################################  ###############################################
   
 sub coursegroups {  sub coursegroups {
     my ($cdom,$cnum,$group) = @_;      my ($cdom,$cnum,$group,$namespace) = @_;
     if (!defined($cdom) || !defined($cnum)) {      if (!defined($cdom) || !defined($cnum)) {
         my $cid =  $env{'request.course.id'};          my $cid =  $env{'request.course.id'};
   
Line 69  sub coursegroups { Line 72  sub coursegroups {
         $cdom = $env{'course.'.$cid.'.domain'};          $cdom = $env{'course.'.$cid.'.domain'};
         $cnum = $env{'course.'.$cid.'.num'};          $cnum = $env{'course.'.$cid.'.num'};
     }      }
     my %curr_groups = &Apache::lonnet::get_coursegroups($cdom,$cnum,$group);      if (!defined($namespace)) {
     if (my $tmp = &Apache::lonnet::error(%curr_groups)) {          $namespace = 'coursegroups';
  undef(%curr_groups);      } 
         &Apache::lonnet::logthis('Error retrieving groups: '.$tmp.' in '.$cnum.':'.$cdom);      my %groups =  &Apache::lonnet::get_coursegroups($cdom,$cnum,$group,
                                                       $namespace);
       if (my $tmp = &Apache::lonnet::error(%groups)) {
    undef(%groups);
           &Apache::lonnet::logthis('Error retrieving groups: '.$tmp.' in '.$cnum.':'.$cdom.' - '.$namespace);
       }
       if (defined($groups{'group_allfolders'."\0".'locked_folder'})) {
           delete($groups{'group_allfolders'."\0".'locked_folder'}); 
     }      }
     return %curr_groups;      return %groups;
 }  }
   
 ###############################################  ###############################################
Line 415  sub group_changes { Line 425  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},
                        };
       return $fixedprivs;
   }
   
   ###############################################
   
   sub get_tool_privs {
       my ($gpterm) = @_;
       my $toolprivs = {
           email      => {
               sgm => 'Send '.$gpterm.' mail',
               sgb => 'Broadcast mail',
           },
           discussion => {
               cgb => 'Create boards',
               pgd => 'Post',
               egp => 'Edit own posts',
               dgp => 'Hide/Delete any post',
               vgb => 'View boards',
           },
           chat       => {
               pgc => 'Chat',
           },
           files      => {
               rgf => 'Retrieve',
               ugf => 'Upload',
               mgf => 'Modify',
               dgf => 'Delete',
               agf => 'Control Access',
           },
           roster     => {
               vgm => 'Basic Display',
               vmd => 'Detailed Display',
           },
           homepage   => {
               vgh => 'View page',
               mgh => 'Modify page',
           },
       };
       return $toolprivs;
   }
   
   ###############################################
   
   
   sub group_memberlist {
       my ($cdom,$cnum,$groupname,$fixedprivs,$available) = @_;
       my %membership = &Apache::lonnet::get_group_membership($cdom,$cnum,
                                                              $groupname);
       my %current = ();
       my $hastools = 0;
       my $addtools = 0;
       my %member_nums = (
                           'previous' => 0,
                           'future' => 0,
                           'active' => 0,
                         );
       my $now = time;
       if (keys(%membership) > 0) {
           my %allnames = ();
           foreach my $key (sort(keys(%membership))) {
               if ($key =~ /^\Q$groupname\E:([^:]+):([^:]+)$/) {
                   my $uname = $1;
                   my $udom = $2;
                   my $user = $uname.':'.$udom;
                   my($end,$start,@userprivs) = split(/:/,$membership{$key});
                   unless ($start == -1) {
                       $allnames{$udom}{$uname} = 1;
                       $current{$user} = {
                           uname     => $uname,
                           udom      => $udom,
                           start     => &Apache::lonlocal::locallocaltime($start),
                           currtools => [],
                           newtools  => [],
                           privs     => \@userprivs,
                       };
   
                       if ($end == 0) {
                           $current{$user}{end} =  'No end date';
                       } else {
                           $current{$user}{end} =
                                        &Apache::lonlocal::locallocaltime($end);
                       }
                       my $now = time;
                       if (($end > 0) && ($end < $now)) {
                           $current{$user}{changestate} = 'reenable';
                           $current{$user}{'status'} = 'previous';
                           $member_nums{'previous'} ++;
                       } elsif (($start > $now)) {
                           $current{$user}{changestate} = 'activate';
                           $current{$user}{'status'} = 'future';
                           $member_nums{'future'} ++;
                       } else {
                           $current{$user}{changestate} = 'expire';
                           $current{$user}{'status'} = 'active';
                           $member_nums{'active'} ++;
                       }
                       if ((@userprivs > 0) && (ref($fixedprivs) eq 'HASH')) {
                           foreach my $tool (sort(keys(%{$fixedprivs}))) {
                               foreach my $priv (keys(%{$$fixedprivs{$tool}})) {
                                   if (grep/^$priv$/,@userprivs) {
                                       push(@{$current{$user}{currtools}},$tool);
                                       last;
                                   }
                               }
                           }
                           $hastools = 1;
                       }
                       if ((ref($available) eq 'ARRAY') && (@{$available} > 0)) {
                           if (@{$current{$user}{currtools}} > 0) {
                               if ("@{$available}" ne "@{$current{$user}{currtools}}") {
                                   foreach my $tool (@{$available}) {
                                       unless (grep/^$tool$/,@{$current{$user}{currtools}}) {
                                           push(@{$current{$user}{newtools}},$tool);                                    }
                                   }
                               }
                           } else {
                               @{$current{$user}{newtools}} = @{$available};
   
                           }
                           if (@{$current{$user}{newtools}} > 0) {
                               $addtools = 1;
                           }
                       }
                   }
               }
           }
           if (keys(%current) > 0) {
               my %idhash;
               foreach my $udom (keys(%allnames)) {
                   %{$idhash{$udom}} = &Apache::lonnet::idrget($udom,
                                                   keys(%{$allnames{$udom}}));
                   foreach my $uname (keys(%{$idhash{$udom}})) {
                       $current{$uname.':'.$udom}{'id'} = $idhash{$udom}{$uname};
                   }
                   foreach my $uname (keys(%{$allnames{$udom}})) {
                       $current{$uname.':'.$udom}{'fullname'} =
                                   &Apache::loncommon::plainname($uname,$udom,
                                                                     'lastname');
                   }
               }
           }
       }
       return (\%current,\%member_nums,$hastools,$addtools);
   }
   
   ###############################################
   
 sub sum_quotas {  sub sum_quotas {
     my ($courseid) = @_;      my ($courseid) = @_;
     my $totalquotas = 0;      my $totalquotas = 0;
Line 451  sub sum_quotas { Line 617  sub sum_quotas {
 }  }
   
 ###############################################  ###############################################
   
   sub get_bbfolder_url {
       my ($cdom,$cnum,$group) = @_;
       my %curr_groups = &coursegroups($cdom,$cnum,$group);
       my $grpbbmap;
       if (%curr_groups) {
           my $crspath = '/uploaded/'.$cdom.'/'.$cnum.'/';
           $grpbbmap = $crspath.'group_boards_'.$group.'.sequence';
       }
       return $grpbbmap;
   }
   
   ###############################################
   
   sub get_group_bbinfo {
       my ($cdom,$cnum,$group,$boardurl) = @_;
       my $navmap = Apache::lonnavmaps::navmap->new();
       my @groupboards;
       my %boardshash;
       my $grpbbmap = &get_bbfolder_url($cdom,$cnum,$group);
       if ($grpbbmap) {
           my $bbfolderres = $navmap->getResourceByUrl($grpbbmap);
           if ($bbfolderres) {
               my @boards = $navmap->retrieveResources($bbfolderres,undef,0,0);
               foreach my $res (@boards) {
                   my $url = $res->src();
                   if ($url =~ m|^(/adm/\Q$cdom\E/\Q$cnum\E/\d+/bulletinboard)|) {
                       if ($boardurl) {
                           if ($boardurl =~ /^\Q$1\E/) {
                               push(@groupboards,$res->symb());
                               $boardshash{$res->symb()} = {
                                                           title => $res->title(),
                                                           url   => $res->src(),
                                                           };
                               last;
                           }
                       } else {
                           push(@groupboards,$res->symb());
                           $boardshash{$res->symb()} = {
                                                         title => $res->title(),
                                                         url   => $res->src(),
                                                       };
                       }
                   }
               }
           }
       }
       undef($navmap);
       return (\@groupboards,\%boardshash);
   }
   
   ###############################################
   
 1;  1;
   
Removed from v.1.6  
changed lines
  Added in v.1.14

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