version 1.8, 2009/02/13 17:20:29
|
version 1.10.2.2, 2020/09/09 00:18:04
|
Line 33 use Apache::loncommon;
|
Line 33 use Apache::loncommon;
|
use Apache::lonhtmlcommon; |
use Apache::lonhtmlcommon; |
use Apache::lonlocal; |
use Apache::lonlocal; |
use Apache::longroup; |
use Apache::longroup; |
|
use Apache::lonnavmaps; |
use LONCAPA; |
use LONCAPA; |
use Apache::Constants qw(:common :http); |
use Apache::Constants qw(:common :http); |
use lib '/home/httpd/lib/perl/'; |
use lib '/home/httpd/lib/perl/'; |
Line 160 function changeSort(caller) {
|
Line 161 function changeSort(caller) {
|
$output .= '<h3>'.&mt('Group membership status - [_1]',$description). |
$output .= '<h3>'.&mt('Group membership status - [_1]',$description). |
'</h3>'; |
'</h3>'; |
} else { |
} else { |
|
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=>&mt('Group').": $description", |
|
title=>&mt("Go to group's home page"), |
|
no_mt=>1},); |
|
} else { |
|
&Apache::lonhtmlcommon::add_breadcrumb |
|
({text=>&mt('Group').": $description", |
|
no_mt=>1}); |
|
} |
&Apache::lonhtmlcommon::add_breadcrumb |
&Apache::lonhtmlcommon::add_breadcrumb |
({href=>"/adm/$cdom/$cnum/$group/smppg?$refarg", |
({href=>'/adm/grouproster?group='.$group.'&'.$refarg, |
text=>"$ucgpterm: $description", |
|
title=>"Go to group's home page"}, |
|
{href=>'/adm/grouproster?group='.$group.'&'.$refarg, |
|
text=>"Membership Roster", |
text=>"Membership Roster", |
title=>"Display group membership"},); |
title=>"Display group membership"},); |
$output .= &Apache::lonhtmlcommon::breadcrumbs(&mt($gpterm.' membership status - [_1]',$description)); |
$output .= &Apache::lonhtmlcommon::breadcrumbs(&mt('Group membership status - [_1]',$description), |
|
undef,undef,undef,undef,1); |
} |
} |
return $output; |
return $output; |
} |
} |