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.25, 2010/08/29 22:59:49
Line 693 sub get_group_link {	Line 693 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;
}	}