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

Diff for /loncom/interface/longroup.pm between versions 1.30 and 1.32

version 1.30, 2016/02/26 21:44:39 version 1.32, 2023/06/20 14:03:52
Line 237  or expire group membership(s) for a user Line 237  or expire group membership(s) for a user
 =cut  =cut
   
 sub group_changes {  sub group_changes {
     my ($udom,$uname,$url,$role,$origend,$origstart,$selfenroll,$context) = @_;      my ($udom,$uname,$url,$role,$origend,$origstart,$selfenroll,$context,
           $othdomby,$requester) = @_;
     my $now = time;      my $now = time;
     my $chgtype;      my $chgtype;
     if ($origend > 0 && $origend <= $now) {      if ($origend > 0 && $origend <= $now) {
Line 343  sub group_changes { Line 344  sub group_changes {
                                                   $add,$uname.':'.$udom,                                                    $add,$uname.':'.$udom,
                                                   $settings{$add}{'enddate'},                                                    $settings{$add}{'enddate'},
                                                   $settings{$add}{'startdate'},                                                    $settings{$add}{'startdate'},
                                                   $group_privs,$selfenroll,$context) eq 'ok') {                                                    $group_privs,$selfenroll,$context,
                                                     $othdomby,$requester) eq 'ok') {
                             my %usersettings;                              my %usersettings;
                             $usersettings{$add.':'.$uname.':'.$udom} =                              $usersettings{$add.':'.$uname.':'.$udom} =
                                                                $addgroup{$add};                                                                 $addgroup{$add};
Line 413  sub group_changes { Line 415  sub group_changes {
                                                          $uname.':'.$udom,$now,                                                           $uname.':'.$udom,$now,
                                                          $dropstart{$drop},                                                           $dropstart{$drop},
                                                          $currpriv{$drop},                                                           $currpriv{$drop},
                                                          $selfenroll,$context)                                                            $selfenroll,$context,
                                                            $othdomby,$requester) 
                                                                      eq 'ok') {                                                                       eq 'ok') {
                                 my %usersettings;                                  my %usersettings;
                                 $usersettings{$drop.':'.$uname.':'.$udom} =                                  $usersettings{$drop.':'.$uname.':'.$udom} =
Line 689  sub get_group_link { Line 692  sub get_group_link {
         my $mapres = $navmap->getResourceByUrl("/$map");          my $mapres = $navmap->getResourceByUrl("/$map");
         my $hidden;          my $hidden;
         if (ref($mapres)) {          if (ref($mapres)) {
             if ((!$viewpermission) && ($mapres->randomout())) {              if ((!$view_permission) && ($mapres->randomout())) {
                 $hidden = 1;                  $hidden = 1;
             }              }
         }          }
Removed from v.1.30  
changed lines
  Added in v.1.32

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