--- loncom/interface/grouproster.pm 2008/12/06 20:31:14 1.6 +++ loncom/interface/grouproster.pm 2019/08/05 18:02:17 1.10.2.1 @@ -1,6 +1,6 @@ # The LearningOnline Network with CAPA # -# $Id +# $Id: grouproster.pm,v 1.10.2.1 2019/08/05 18:02:17 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -33,6 +33,7 @@ use Apache::loncommon; use Apache::lonhtmlcommon; use Apache::lonlocal; use Apache::longroup; +use Apache::lonnavmaps; use LONCAPA; use Apache::Constants qw(:common :http); use lib '/home/httpd/lib/perl/'; @@ -160,11 +161,21 @@ function changeSort(caller) { $output .= '

'.&mt('Group membership status - [_1]',$description). '

'; } else { - &Apache::lonhtmlcommon::add_breadcrumb - ({href=>"/adm/$cdom/$cnum/$group/smppg?$refarg", + my $view_permission = + &Apache::lonnet::allowed('vcg',$env{'request.course.id'}.($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:'')); + my $navmap=Apache::lonnavmaps::navmap->new(); + my $grouppagelink = &Apache::longroup::get_group_link($cdom,$cnum,$group,$navmap,$view_permission,$refarg); + if ($grouppagelink) { + &Apache::lonhtmlcommon::add_breadcrumb + ({href=>$grouppagelink, text=>"$ucgpterm: $description", - title=>"Go to group's home page"}, - {href=>'/adm/grouproster?group='.$group.'&'.$refarg, + title=>"Go to group's home page"},); + } else { + &Apache::lonhtmlcommon::add_breadcrumb + ({text=>"$ucgpterm: $description",}); + } + &Apache::lonhtmlcommon::add_breadcrumb + ({href=>'/adm/grouproster?group='.$group.'&'.$refarg, text=>"Membership Roster", title=>"Display group membership"},); $output .= &Apache::lonhtmlcommon::breadcrumbs(&mt($gpterm.' membership status - [_1]',$description)); @@ -350,8 +361,8 @@ sub members_table_row { $privlist =~ s/, $//; $output .= ''.$privlist.''; } elsif ($view_details) { - $output .= ''.join('   ', - @{$$userinfo{'currtools'}}).''; + $output .= ''.join('   ', + @{$$userinfo{'currtools'}}).''; } } $output .= &Apache::loncommon::end_data_table_row();