version 1.117, 2013/07/15 16:13:21
|
version 1.119, 2013/08/29 22:24:32
|
Line 2016 sub print_current_settings {
|
Line 2016 sub print_current_settings {
|
dfac => 'Default access dates', |
dfac => 'Default access dates', |
ygrs => "Your group selections - ", |
ygrs => "Your group selections - ", |
tfwa => "The following settings will apply to the group:", |
tfwa => "The following settings will apply to the group:", |
difn => 'Different collaborative tools<br />for different members:', |
|
stda => 'Start date:', |
stda => 'Start date:', |
enda => 'End date:', |
enda => 'End date:', |
); |
); |
|
$lt{'difn'} = &mt('Different collaborative tools[_1]for different members:','<br />'); |
my $showstart = &Apache::lonlocal::locallocaltime($startdate); |
my $showstart = &Apache::lonlocal::locallocaltime($startdate); |
my $showend; |
my $showend; |
if ($enddate == 0) { |
if ($enddate == 0) { |
Line 3534 sub process_membership {
|
Line 3534 sub process_membership {
|
if ($num_ok) { |
if ($num_ok) { |
my $msgall =''; |
my $msgall =''; |
foreach my $type (sort(keys(%added))) { |
foreach my $type (sort(keys(%added))) { |
my $message = &mt('The following users were successfully [_1]',$type); |
my $message = &mt('The following users were successfully $type"); |
if (!($type eq 'deleted' || $type eq 'expired')) { |
if (!($type eq 'deleted' || $type eq 'expired')) { |
$message .= &mt(' with the following privileges'); |
$message .= &mt(' with the following privileges'); |
} |
} |
Line 4209 sub validate_groupname {
|
Line 4209 sub validate_groupname {
|
} |
} |
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 [_1]',$gpterm). |
return $exitmsg.$lt{'cnnb'}.&mt("an existing $gpterm"). |
$lt{'inth'}.'.<br />'.$lt{'grna'}; |
$lt{'inth'}.'.<br />'.$lt{'grna'}; |
} elsif (exists($deleted_groups{$groupname})) { |
} elsif (exists($deleted_groups{$groupname})) { |
return $exitmsg.$lt{'cnnb'}.&mt('a [_1] which previously existed',$gpterm). |
return $exitmsg.$lt{'cnnb'}.&mt("a $gpterm which previously existed"). |
$lt{'inth'}.'.<br />'.$lt{'grna'}; |
$lt{'inth'}.'.<br />'.$lt{'grna'}; |
} |
} |
} elsif ($action eq 'modify') { |
} elsif ($action eq 'modify') { |
unless(exists($curr_groups{$groupname})) { |
unless(exists($curr_groups{$groupname})) { |
$earlyout = &mt('[_1] name:',$ucgpterm).' '.$groupname.$lt{'thgr'}. |
$earlyout = &mt("$ucgpterm name:").' '.$groupname.$lt{'thgr'}. |
$lt{'inth'}; |
$lt{'inth'}; |
return $earlyout; |
return $earlyout; |
} |
} |