version 1.4, 2006/08/17 23:36:05
|
version 1.10, 2016/02/26 21:44:39
|
Line 1
|
Line 1
|
# The LearningOnline Network with CAPA |
# The LearningOnline Network with CAPA |
# |
# |
|
# $Id$ |
|
# |
# Copyright Michigan State University Board of Trustees |
# Copyright Michigan State University Board of Trustees |
# |
# |
# This file is part of the LearningOnline Network with CAPA (LON-CAPA). |
# This file is part of the LearningOnline Network with CAPA (LON-CAPA). |
Line 31 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 65 sub handler {
|
Line 68 sub handler {
|
# Validating group input. |
# Validating group input. |
my $badinput; |
my $badinput; |
if ((!defined($env{'form.group'})) || ($env{'form.group'} eq '')) { |
if ((!defined($env{'form.group'})) || ($env{'form.group'} eq '')) { |
$r->print(&mt('No group name provided.<br />')); |
$r->print(&mt('No group name provided.').'<br />'); |
$badinput = 1; |
$badinput = 1; |
} else { |
} else { |
$group = $env{'form.group'}; |
$group = $env{'form.group'}; |
$group =~ s/\W//g; |
$group =~ s/\W//g; |
} |
} |
if (!$badinput && $group eq '') { |
if (!$badinput && $group eq '') { |
$r->print(&mt('Invalid group name provided.<br />')); |
$r->print(&mt('Invalid group name provided.').'<br />'); |
$badinput = 1; |
$badinput = 1; |
} |
} |
|
|
Line 80 sub handler {
|
Line 83 sub handler {
|
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
|
|
if ($cdom eq '' || $cnum eq '') { |
if ($cdom eq '' || $cnum eq '') { |
$r->print(&mt('Invalid [_1]<br />',$crstype)); |
$r->print(&mt('Invalid [_1]',$crstype).'<br />'); |
$badinput = 1; |
$badinput = 1; |
} |
} |
|
|
Line 106 sub handler {
|
Line 109 sub handler {
|
my $editgrps = &Apache::lonnet::allowed('mdg',$env{'request.course.id'}); |
my $editgrps = &Apache::lonnet::allowed('mdg',$env{'request.course.id'}); |
|
|
if ((!$can_view) && (!$view_details) && (!$viewgrps) && (!$editgrps)) { |
if ((!$can_view) && (!$view_details) && (!$viewgrps) && (!$editgrps)) { |
$r->print(&mt('You do not have privileges to view the membership roster in this [_1]',$gpterm)); |
$r->print(&mt('You do not have privileges to view the membership roster in this '.$gpterm.'.')); |
return OK; |
return OK; |
} |
} |
my %content = &Apache::longroup::get_group_settings($curr_groups{$group}); |
my %content = &Apache::longroup::get_group_settings($curr_groups{$group}); |
Line 139 sub roster_header {
|
Line 142 sub roster_header {
|
} |
} |
my $args; |
my $args; |
if ($env{'form.ref'} eq 'popup') { |
if ($env{'form.ref'} eq 'popup') { |
$args = { |
$args = { 'no_nav_bar' => 1, }; |
'no_nav_bar' => 1, |
|
'no_inline_link' => 1, |
|
}; |
|
} |
} |
my $jscript = qq| |
my $jscript = qq| |
function changeSort(caller) { |
function changeSort(caller) { |
Line 158 function changeSort(caller) {
|
Line 158 function changeSort(caller) {
|
$output .= '<h3>'.&mt('Group membership status - [_1]',$description). |
$output .= '<h3>'.&mt('Group membership status - [_1]',$description). |
'</h3>'; |
'</h3>'; |
} else { |
} else { |
&Apache::lonhtmlcommon::add_breadcrumb |
my $view_permission = |
({href=>"/adm/$cdom/$cnum/$group/smppg?$refarg", |
&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", |
text=>"$ucgpterm: $description", |
title=>"Go to group's home page"}, |
title=>"Go to group's home page"},); |
{href=>'/adm/grouproster?group='.$group.'&'.$refarg, |
} else { |
text=>"Membership roster", |
&Apache::lonhtmlcommon::add_breadcrumb |
|
({text=>"$ucgpterm: $description",}); |
|
} |
|
&Apache::lonhtmlcommon::add_breadcrumb |
|
({href=>'/adm/grouproster?group='.$group.'&'.$refarg, |
|
text=>"Membership Roster", |
title=>"Display group membership"},); |
title=>"Display group membership"},); |
$output .= &Apache::lonhtmlcommon::breadcrumbs(&mt('[_1] membership status - [_2]',$gpterm,$description)); |
$output .= &Apache::lonhtmlcommon::breadcrumbs(&mt($gpterm.' membership status - [_1]',$description)); |
} |
} |
return $output; |
return $output; |
} |
} |
Line 212 sub roster_table {
|
Line 222 sub roster_table {
|
if (($viewgrps) || ($editgrps) || |
if (($viewgrps) || ($editgrps) || |
(&Apache::lonnet::allowed('vmd',$env{'request.course.id'}.'/'.$group))) { |
(&Apache::lonnet::allowed('vmd',$env{'request.course.id'}.'/'.$group))) { |
if (keys(%{$memberinfo}) == 0) { |
if (keys(%{$memberinfo}) == 0) { |
$r->print(&mt('There are no membership data to display for this [_1]', |
$r->print(&mt('There are no membership data to display for this '.$gpterm.'.')); |
$gpterm)); |
|
return; |
return; |
} |
} |
$r->print('<br /><form name="rosterstatus" method="post" action="/adm/grouproster">'.&mt('Membership status: ').'<select name="status">'); |
$r->print('<br /><form name="rosterstatus" method="post" action="/adm/grouproster">'.&mt('Membership status: ').'<select name="status">'); |
Line 240 sub roster_table {
|
Line 249 sub roster_table {
|
if (ref($numitems) eq 'HASH') { |
if (ref($numitems) eq 'HASH') { |
foreach my $key (keys(%{$numitems})) { |
foreach my $key (keys(%{$numitems})) { |
if ($status eq $key && !$$numitems{$key}) { |
if ($status eq $key && !$$numitems{$key}) { |
$r->print(&mt('There are no [_1]s to display in this [_2].', |
$r->print(&mt('There are no '.$gpterm.'s to display in this [_1].', |
lc($lt{$key}),$gpterm)); |
lc($lt{$key}))); |
return; |
return; |
} |
} |
} |
} |
Line 349 sub members_table_row {
|
Line 358 sub members_table_row {
|
$privlist =~ s/, $//; |
$privlist =~ s/, $//; |
$output .= '<td>'.$privlist.'</td>'; |
$output .= '<td>'.$privlist.'</td>'; |
} elsif ($view_details) { |
} elsif ($view_details) { |
$output .= '<td><nobr>'.join(' ', |
$output .= '<td><span class="LC_nobreak">'.join(' ', |
@{$$userinfo{'currtools'}}).'</nobr></td>'; |
@{$$userinfo{'currtools'}}).'</span></td>'; |
} |
} |
} |
} |
$output .= &Apache::loncommon::end_data_table_row(); |
$output .= &Apache::loncommon::end_data_table_row(); |