version 1.24, 2010/02/23 14:18:12
|
version 1.26, 2010/09/26 01:57:21
|
Line 291 sub group_changes {
|
Line 291 sub group_changes {
|
} |
} |
if (@changegroups > 0) { |
if (@changegroups > 0) { |
my %currpriv; |
my %currpriv; |
my %roleshash = &Apache::lonnet::dump('roles',$udom,$uname,$cid); |
my $extra = &Apache::lonnet::freeze_escape({'skipcheck' => 1}); |
|
my %roleshash = &Apache::lonnet::dump('roles',$udom,$uname,$cid,'.',undef,$extra); |
if (my $tmp = &Apache::lonnet::error(%roleshash)) { |
if (my $tmp = &Apache::lonnet::error(%roleshash)) { |
&Apache::lonnet::logthis('Error retrieving roles: '.$tmp. |
&Apache::lonnet::logthis('Error retrieving roles: '.$tmp. |
' for '.$uname.':'.$udom); |
' for '.$uname.':'.$udom); |
Line 693 sub get_group_link {
|
Line 694 sub get_group_link {
|
if (ref($navmap)) { |
if (ref($navmap)) { |
my $symb = 'uploaded/'.$cdom.'/'.$cnum.'/group_folder_'.$group.'.sequence___1___adm/'.$cdom.'/'.$cnum.'/'.$group.'/smppg'; |
my $symb = 'uploaded/'.$cdom.'/'.$cnum.'/group_folder_'.$group.'.sequence___1___adm/'.$cdom.'/'.$cnum.'/'.$group.'/smppg'; |
my $res = $navmap->getBySymb($symb); |
my $res = $navmap->getBySymb($symb); |
my $link = $res->link(); |
my $link; |
$link .= (($link=~/\?/)?'&':'?').'symb='.$res->shown_symb(); |
if (ref($res)) { |
return $link; |
$link = $res->link(); |
|
$link .= (($link=~/\?/)?'&':'?').'symb='.$res->shown_symb(); |
|
} else { |
|
$link = '/adm/'.$cdom.'/'.$cnum.'/'.$group.'/smppg'; |
|
} |
|
return $link; |
} |
} |
return; |
return; |
} |
} |