version 1.125, 2014/02/28 19:20:06
|
version 1.127, 2014/12/11 01:19:07
|
Line 1587 sub group_members {
|
Line 1587 sub group_members {
|
future => 0, |
future => 0, |
); |
); |
my $totalmembers = 0; |
my $totalmembers = 0; |
foreach my $member (keys %memberhash) { |
foreach my $member (keys(%memberhash)) { |
$totalmembers ++; |
$totalmembers ++; |
my ($end,$start) = split(/:/,$memberhash{$member}); |
my ($end,$start) = split(/:/,$memberhash{$member}); |
unless ($start == -1) { |
unless ($start == -1) { |
Line 1702 sub groupsettings_options {
|
Line 1702 sub groupsettings_options {
|
if ($remnum) { |
if ($remnum) { |
$halfnum ++; |
$halfnum ++; |
} |
} |
my @allfunctions = sort(keys (%{$functions})); |
my @allfunctions = sort(keys(%{$functions})); |
|
|
$r->print(&Apache::lonhtmlcommon::row_title($lt{'func'}) |
$r->print(&Apache::lonhtmlcommon::row_title($lt{'func'}) |
.'<div>' |
.'<div>' |
Line 4188 sub validate_groupname {
|
Line 4188 sub validate_groupname {
|
} |
} |
my %lt = &Apache::lonlocal::texthash ( |
my %lt = &Apache::lonlocal::texthash ( |
igna => "Invalid $gpterm name", |
igna => "Invalid $gpterm name", |
tgne => "The $gpterm name entered ", |
|
grna => "$ucgpterm names and section names used in a ". |
grna => "$ucgpterm names and section names used in a ". |
"$crstype must be unique.", |
"$crstype must be unique.", |
isno => "is not a valid name.", |
|
gnmo => "$ucgpterm names may only contain letters, ". |
gnmo => "$ucgpterm names may only contain letters, ". |
"numbers or underscores.", |
"numbers or underscores.", |
cnnb => "can not be used as it is the name of ", |
|
inth => " in this $crstype", |
|
thgr => "- does not correspond to the name of an ". |
|
"existing $gpterm", |
|
); |
); |
|
|
my $exitmsg = '<span class="LC_error">'.$lt{'igna'}.'</span><br /><br />'. |
my $exitmsg = '<span class="LC_error">'.$lt{'igna'}.'</span><br /><br />'; |
$lt{'tgne'}.' "'.$groupname.'" '; |
my $nameshown = &Apache::loncommon::cleanup_html($groupname); |
my $dupmsg = $lt{'grna'}; |
|
my $earlyout; |
|
if (($groupname eq '') || ($groupname =~ /\W/)) { |
if (($groupname eq '') || ($groupname =~ /\W/)) { |
$earlyout = $exitmsg.$lt{'isno'}.'<br />'.$lt{'gnmo'}; |
return $exitmsg. |
return $earlyout; |
&mt("The $gpterm name entered '[_1]' is not a valid name.",$nameshown). |
|
'<br />'.$lt{'gnmo'}; |
|
} elsif ($groupname eq 'syllabus') { |
|
return $exitmsg. |
|
&mt("The $gpterm name entered '[_1]' is reserved for use by LON-CAPA.",$nameshown); |
} |
} |
if (exists($sectioncount{$groupname})) { |
if (exists($sectioncount{$groupname})) { |
return $exitmsg.$lt{'cnnb'}.&mt('a section').$lt{'inth'}. |
return $exitmsg. |
'<br />'.$lt{'grna'}; |
&mt("The $gpterm name entered '[_1]' can not be used as it is the name of a section in this $crstype.",$nameshown). |
|
'<br />'.$lt{'grna'}; |
} |
} |
if ($action eq 'create') { |
if ($action eq 'create') { |
if (exists($curr_groups{$groupname})) { |
if (exists($curr_groups{$groupname})) { |
return $exitmsg.$lt{'cnnb'}.&mt("an existing $gpterm"). |
return $exitmsg. |
$lt{'inth'}.'.<br />'.$lt{'grna'}; |
&mt("The $gpterm name entered '[_1]' can not be used as it is the name of an existing $gpterm in this $crstype.",$nameshown). |
|
'<br />'.$lt{'grna'}; |
} elsif (exists($deleted_groups{$groupname})) { |
} elsif (exists($deleted_groups{$groupname})) { |
return $exitmsg.$lt{'cnnb'}.&mt("a $gpterm which previously existed"). |
return $exitmsg. |
$lt{'inth'}.'.<br />'.$lt{'grna'}; |
&mt("The $gpterm name entered '[_1]' can not be used as it is the name of a $gpterm which previously existed in this $crstype.",$nameshown). |
|
'<br />'.$lt{'grna'}; |
} |
} |
} elsif ($action eq 'modify') { |
} elsif ($action eq 'modify') { |
unless(exists($curr_groups{$groupname})) { |
unless(exists($curr_groups{$groupname})) { |
$earlyout = &mt("$ucgpterm name:").' '.$groupname.$lt{'thgr'}. |
return &mt("$ucgpterm name: [_1] does not correspond to the name of an existing $gpterm in this $crstype.",$nameshown); |
$lt{'inth'}; |
|
return $earlyout; |
|
} |
} |
} |
} |
return; |
return; |