--- loncom/interface/grouproster.pm 2006/08/17 23:36:05 1.4
+++ loncom/interface/grouproster.pm 2019/08/05 18:02:17 1.10.2.1
@@ -1,5 +1,7 @@
# The LearningOnline Network with CAPA
#
+# $Id: grouproster.pm,v 1.10.2.1 2019/08/05 18:02:17 raeburn Exp $
+#
# Copyright Michigan State University Board of Trustees
#
# This file is part of the LearningOnline Network with CAPA (LON-CAPA).
@@ -31,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/';
@@ -65,14 +68,14 @@ sub handler {
# Validating group input.
my $badinput;
if ((!defined($env{'form.group'})) || ($env{'form.group'} eq '')) {
- $r->print(&mt('No group name provided.
'));
+ $r->print(&mt('No group name provided.').'
');
$badinput = 1;
} else {
$group = $env{'form.group'};
$group =~ s/\W//g;
}
if (!$badinput && $group eq '') {
- $r->print(&mt('Invalid group name provided.
'));
+ $r->print(&mt('Invalid group name provided.').'
');
$badinput = 1;
}
@@ -80,7 +83,7 @@ sub handler {
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
if ($cdom eq '' || $cnum eq '') {
- $r->print(&mt('Invalid [_1]
',$crstype));
+ $r->print(&mt('Invalid [_1]',$crstype).'
');
$badinput = 1;
}
@@ -106,7 +109,7 @@ sub handler {
my $editgrps = &Apache::lonnet::allowed('mdg',$env{'request.course.id'});
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;
}
my %content = &Apache::longroup::get_group_settings($curr_groups{$group});
@@ -158,14 +161,24 @@ function changeSort(caller) {
$output .= '