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

Diff for /loncom/lonnet/perl/lonnet.pm between versions 1.678 and 1.679

version 1.678, 2005/11/15 21:35:02 version 1.679, 2005/11/15 22:02:58
Line 3702  sub auto_instcode_format { Line 3702  sub auto_instcode_format {
     return $response;      return $response;
 }  }
   
   # ------------------------------------------------------- Course Group routines
   
   sub get_coursegroups {
       my ($cdom,$cnum,$curr_groups,$group) = @_;
       my $numgroups = 0;
       %{$curr_groups} = &dump('coursegroups',$cdom,$cnum,$group);
       my ($tmp)=keys(%{$curr_groups});
       if ($tmp eq 'error: 2 tie(GDBM) Failed while attempting dump') {
           my %emptyhash = ();
           if (&put('coursegroups',\%emptyhash,$cdom,$cnum) eq 'ok') {
               %{$curr_groups} = &dump('coursegroups',$cdom,$cnum,$group);
               $tmp=keys(%{$curr_groups});
           }
       }
       if ($tmp=~/^error:/) {
           &logthis('Error retrieving groups: '.$tmp.' in '.$cnum.':'.$cdom);
       } else {
           my @groups = keys(%{$curr_groups});
           $numgroups = @groups;
       }
       return $numgroups;
   }
   
   sub modify_coursegroup {
       my ($cdom,$cnum,$groupsettings) = @_;
       return(&put('coursegroups',$groupsettings,$cdom,$cnum));
   }
   
   sub modify_group_roles {
       my ($cdom,$cnum,$group_id,$user,$end,$start,$userprivs) = @_;
       my $url = '/'.$cdom.'/'.$cnum.'/'.$group_id;
       my $role = 'gr/'.&escape($userprivs);
       my ($uname,$udom) = split(/:/,$user);
       my $result = &assignrole($udom,$uname,$url,$role,$end,$start);
       return $result;
   }
   
   sub modify_coursegroup_membership {
       my ($cdom,$cnum,$membership) = @_;
       my $result = &put('groupmembership',$membership,$cdom,$cnum);
       return $result;
   }
   
 # ------------------------------------------------------------------ Plain Text  # ------------------------------------------------------------------ Plain Text
   
 sub plaintext {  sub plaintext {
Removed from v.1.678  
changed lines
  Added in v.1.679

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