--- loncom/interface/longroup.pm 2010/02/23 14:18:12 1.24 +++ loncom/interface/longroup.pm 2010/08/29 22:59:49 1.25 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # accessor routines used to provide information about course groups # -# $Id: longroup.pm,v 1.24 2010/02/23 14:18:12 raeburn Exp $ +# $Id: longroup.pm,v 1.25 2010/08/29 22:59:49 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -693,9 +693,14 @@ sub get_group_link { if (ref($navmap)) { my $symb = 'uploaded/'.$cdom.'/'.$cnum.'/group_folder_'.$group.'.sequence___1___adm/'.$cdom.'/'.$cnum.'/'.$group.'/smppg'; my $res = $navmap->getBySymb($symb); - my $link = $res->link(); - $link .= (($link=~/\?/)?'&':'?').'symb='.$res->shown_symb(); - return $link; + my $link; + if (ref($res)) { + $link = $res->link(); + $link .= (($link=~/\?/)?'&':'?').'symb='.$res->shown_symb(); + } else { + $link = '/adm/'.$cdom.'/'.$cnum.'/'.$group.'/smppg'; + } + return $link; } return; }