loncom/interface/longroup.pm - diff

Return to longroup.pm CVS log

Up to [LON-CAPA] / loncom / interface

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;
}	}