version 1.4, 2006/08/17 23:36:05
|
version 1.6, 2008/12/06 20:31:14
|
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 65 sub handler {
|
Line 67 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 82 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 108 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 163 function changeSort(caller) {
|
Line 165 function changeSort(caller) {
|
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, |
{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('[_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 214 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 241 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; |
} |
} |
} |
} |