--- loncom/interface/courseprefs.pm 2010/01/08 21:07:49 1.20
+++ loncom/interface/courseprefs.pm 2010/01/27 13:08:01 1.22
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to set configuration settings for a course
#
-# $Id: courseprefs.pm,v 1.20 2010/01/08 21:07:49 faziophi Exp $
+# $Id: courseprefs.pm,v 1.22 2010/01/27 13:08:01 wenzelju Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -862,16 +862,16 @@ sub store_changes {
$output .= '
'.&mt($prefs->{$item}{'text'}).'
';
if (ref($changes->{$item}) eq 'HASH') {
if (keys(%{$changes->{$item}}) > 0) {
- $output .= &mt('Changes made:').'';
+ $output .= &mt('Changes made:').'';
if ($item eq 'other') {
foreach my $key (sort(keys(%{$changes->{$item}}))) {
$storehash{$key} = $changes->{$item}{$key};
if ($changes->{$item}{$key} eq '') {
push(@delkeys,$key);
- $output .= '- '.&mt('Deleted setting for [_1]',''.$key.'').'
';
+ $output .= '- '.&Apache::lonhtmlcommon::confirm_success(&mt('Deleted setting for [_1]',''.$key.'')).'
';
} else {
- $output .= '- '.&mt('[_1] set to [_2]',''.$key.'',
- "'$storehash{$key}'").'
';
+ $output .= '- '.&Apache::lonhtmlcommon::confirm_success(&mt('[_1] set to [_2]',''.$key.'',
+ "'$storehash{$key}'")).'
';
}
}
} else {
@@ -903,7 +903,7 @@ sub store_changes {
"'".$newname."'").'';
}
if ($msg ne '') {
- $output .= '- '.&mt($displayname).'
';
+ $output .= '- '.&Apache::lonhtmlcommon::confirm_success(&mt($displayname)).'
';
}
} else {
next if (!exists($changes->{$item}{$key}));
@@ -978,12 +978,12 @@ sub store_changes {
}
if ($changes->{$item}{$key} eq '') {
push(@delkeys,$key);
- $output .= '- '.&mt('Deleted setting for [_1]',
- ''.$displayname.'').'
';
+ $output .= '- '.&Apache::lonhtmlcommon::confirm_success(&mt('Deleted setting for [_1]',
+ ''.$displayname.'')).'
';
} else {
- $output .= '- '.&mt('[_1] set to [_2]',
+ $output .= '
- '.&Apache::lonhtmlcommon::confirm_success(&mt('[_1] set to [_2]',
''.$displayname.'',
- "'$displayval'");
+ "'$displayval'"));
if ($key eq 'url') {
my $bkuptime=time;
$output .= (' 'x2).&mt('(Previous URL backed up)').': '.
@@ -1751,11 +1751,11 @@ sub print_feedback {
my %sections = &Apache::loncommon::get_sections($cdom,$cnum);
my @sections = sort( { $a <=> $b } keys(%sections));
my %lt = &Apache::lonlocal::texthash (
- currone => 'Current recipient:',
- curmult => 'Current recipients:',
- add => 'Additional recipient:',
- del => 'Delete?',
- sec => 'Sections:',
+ currone => 'Current recipient:',
+ currmult => 'Current recipients:',
+ add => 'Additional recipient:',
+ del => 'Delete?',
+ sec => 'Sections:',
);
foreach my $item (@{$ordered}) {
@@ -1823,7 +1823,7 @@ sub user_table {
if ($num == 1) {
$output .= $lt->{'currone'};
} else {
- $output .= $lt->{'curmult'};
+ $output .= $lt->{'currmult'};
}
$output .= '
'.
''.
@@ -1940,11 +1940,11 @@ sub print_discussion {
my %sections = &Apache::loncommon::get_sections($cdom,$cnum);
my @sections = sort( { $a <=> $b } keys(%sections));
my %lt = &Apache::lonlocal::texthash (
- currone => 'Disallowed:',
- curmult => 'Disallowed:',
- add => 'Disallow more:',
- del => 'Delete?',
- sec => 'Sections:',
+ currone => 'Disallowed:',
+ currmult => 'Disallowed:',
+ add => 'Disallow more:',
+ del => 'Delete?',
+ sec => 'Sections:',
);
foreach my $item (@{$ordered}) {