version 1.98, 2009/11/24 02:43:45
|
version 1.99, 2010/01/27 13:08:01
|
Line 1130 sub process_reset {
|
Line 1130 sub process_reset {
|
|
|
sub process_update { |
sub process_update { |
my ($uname,$udom,$threshold_titles) = @_; |
my ($uname,$udom,$threshold_titles) = @_; |
my $setoutput = '<b>'.&mt('Changes to threshold(s) for problem tracking:').'</b><br />'; |
my $setoutput = '<b>'.&mt('Changes to threshold(s) for problem tracking:').'</b><br/><br />'; |
foreach (keys %env) { |
foreach (keys %env) { |
next if ($_!~/^form\.(.+)\_setparmval$/); |
next if ($_!~/^form\.(.+)\_setparmval$/); |
my $name = $1; |
my $name = $1; |
Line 1141 sub process_update {
|
Line 1141 sub process_update {
|
|
|
my ($shortname) = ($name =~ /^\Q$env{'request.course.id'}\E:threshold_(.+)$/); |
my ($shortname) = ($name =~ /^\Q$env{'request.course.id'}\E:threshold_(.+)$/); |
if ($put_result eq 'ok') { |
if ($put_result eq 'ok') { |
$setoutput.=&mt('Set threshold for [_1] to [_2]', |
$setoutput.= &Apache::lonhtmlcommon::confirm_success(&mt('Set threshold for [_1] to [_2]', |
'<b>'.$$threshold_titles{$shortname}.'</b>', |
'<b>'.$$threshold_titles{$shortname}.'</b>', |
'<b>'.$value.'</b>').'<br />'; |
'<b>'.$value.'</b>').'<br />'); |
} else { |
} else { |
$setoutput.=&mt('Unable to set threshold for [_1] to [_2] due to [_3].', |
$setoutput.= &Apache::lonhtmlcommon::confirm_success(&mt('Unable to set threshold for [_1] to [_2] due to [_3].', |
'<b>'.$name.'</b>','<b>'.$value.'</b>', |
'<b>'.$name.'</b>','<b>'.$value.'</b>', |
'<tt>'.$put_result.'</tt>').'<br />'; |
'<tt>'.$put_result.'</tt>').'<br />',1); |
} |
} |
} |
} |
} |
} |
return $setoutput; |
return &Apache::loncommon::confirmwrapper($setoutput); |
} |
} |
|
|
sub getnormalmail { |
sub getnormalmail { |
Line 1841 sub store_interval_setting {
|
Line 1841 sub store_interval_setting {
|
\%interval_settings,$udom,$uname); |
\%interval_settings,$udom,$uname); |
if ($outcome eq 'ok') { |
if ($outcome eq 'ok') { |
if (ref($interval_titles->{$context}) eq 'HASH') { |
if (ref($interval_titles->{$context}) eq 'HASH') { |
$result = &mt('New filter setting: [_1].','<b>'. |
$result = &Apache::lonhtmlcommon::confirm_success(&mt('New filter setting: [_1].','<b>'. |
$interval_titles->{$context}->{$env{'form.interval'}}.'</b>').'<br />'; |
$interval_titles->{$context}->{$env{'form.interval'}}.'</b>').'<br />'); |
} |
} |
} else { |
} else { |
my $lctype = lc(&Apache::loncommon::course_type()); |
my $lctype = lc(&Apache::loncommon::course_type()); |
&Apache::lonnet::logthis('Error saving whatsnew '.$context.' interval setting'. |
&Apache::lonnet::logthis('Error saving whatsnew '.$context.' interval setting'. |
' '.$outcome.' for '.$uname.':'.$udom.' in '.$lctype.' '.$cid); |
' '.$outcome.' for '.$uname.':'.$udom.' in '.$lctype.' '.$cid); |
$result = &mt('Unable to set interval to [_1] due to [_2].', |
$result = &Apache::lonhtmlcommon::confirm_success(&mt('Unable to set interval to [_1] due to [_2].', |
'<b>'.$interval_titles->{$context}->{$env{'form.interval'}}.'</b>', |
'<b>'.$interval_titles->{$context}->{$env{'form.interval'}}.'</b>', |
'<tt>'.$outcome.'</tt>.<br />'); |
'<tt>'.$outcome.'</tt>'),1); |
} |
} |
} |
} |
return $result; |
return &Apache::loncommon::confirmwrapper($result); |
} |
} |
|
|
sub store_discussion_setting { |
sub store_discussion_setting { |
Line 1865 sub store_discussion_setting {
|
Line 1865 sub store_discussion_setting {
|
my $outcome = &Apache::lonnet::put('nohist_whatsnew', |
my $outcome = &Apache::lonnet::put('nohist_whatsnew', |
\%discussion_settings,$udom,$uname); |
\%discussion_settings,$udom,$uname); |
if ($outcome eq 'ok') { |
if ($outcome eq 'ok') { |
$result = &mt('Count unread posts in discussions display set to [_1]', |
$result = &Apache::lonhtmlcommon::confirm_success(&mt('Count unread posts in discussions display set to [_1]', |
'<b>'.&mt($env{'form.countunread'}).'</b>').'<br />'; |
'<b>'.&mt($env{'form.countunread'}).'</b>').'<br />'); |
|
|
} else { |
} else { |
my $lctype = lc(&Apache::loncommon::course_type()); |
my $lctype = lc(&Apache::loncommon::course_type()); |
&Apache::lonnet::logthis('Error saving whatsnew countunread setting'. |
&Apache::lonnet::logthis('Error saving whatsnew countunread setting'. |
' '.$outcome.' for '.$uname.':'.$udom.' in '.$lctype.' '.$cid); |
' '.$outcome.' for '.$uname.':'.$udom.' in '.$lctype.' '.$cid); |
$result = &mt('Unable to set "number unread posts display" to [_1]'. |
$result = &Apache::lonhtmlcommon::confirm_success(&mt('Unable to set "number unread posts display" to [_1]'. |
' due to [_2].', |
' due to [_2].', |
'<b>'.&mt($env{'form.countunread'}).'</b>', |
'<b>'.&mt($env{'form.countunread'}).'</b>', |
'<tt>'.$outcome.'</tt>.<br />'); |
'<tt>'.$outcome.'</tt>'),1); |
} |
} |
} |
} |
return $result; |
return &Apache::loncommon::confirmwrapper($result); |
} |
} |
|
|
sub store_courseinit_setting { |
sub store_courseinit_setting { |
Line 1903 sub store_courseinit_setting {
|
Line 1903 sub store_courseinit_setting {
|
\%courseinit_settings,$udom,$uname); |
\%courseinit_settings,$udom,$uname); |
if ($outcome eq 'ok') { |
if ($outcome eq 'ok') { |
if ($page_control eq 'global preferences') { |
if ($page_control eq 'global preferences') { |
$result = &mt("Page displayed after role selection in $lctype now set by [_1]user's global preferences[_2].",'<b>','</b>'); |
$result = &Apache::lonhtmlcommon::confirm_success(&mt("Page displayed after role selection in $lctype now set by [_1]user's global preferences[_2].",'<b>','</b>')); |
} else { |
} else { |
$result = &mt('Page displayed after role selection in this '.$lctype.' set to [_1].' |
$result = &Apache::lonhtmlcommon::confirm_success(&mt('Page displayed after role selection in this '.$lctype.' set to [_1].' |
,'<b>'.$$initpage{$env{'form.courseinit_page'}}.'</b>'); |
,'<b>'.$$initpage{$env{'form.courseinit_page'}}.'</b>')); |
} |
} |
} else { |
} else { |
&Apache::lonnet::logthis('Error saving whatsnew courseinit '. |
&Apache::lonnet::logthis('Error saving whatsnew courseinit '. |
'setting: '.$outcome.' for '.$uname. |
'setting: '.$outcome.' for '.$uname. |
':'.$udom.' in '.$lctype.' '.$cid); |
':'.$udom.' in '.$lctype.' '.$cid); |
if ($page_control eq 'global preferences') { |
if ($page_control eq 'global preferences') { |
$result = &mt('Unable to set control of page display to [_1]'. |
$result = &Apache::lonhtmlcommon::confirm_success(&mt('Unable to set control of page display to [_1]'. |
' due to [_2].', |
' due to [_2].', |
'<b>'.$page_control.'</b>', |
'<b>'.$page_control.'</b>', |
'<tt>'.$outcome.'</tt>.<br />'); |
'<tt>'.$outcome.'</tt>'),1); |
} else { |
} else { |
$result = &mt('Unable to set page display, after role selection, for this '.$lctype.' to [_1] due to [_2].' |
$result = &Apache::lonhtmlcommon::confirm_success(&mt('Unable to set page display, after role selection, for this '.$lctype.' to [_1] due to [_2].' |
,'<b>'.$$initpage{$env{'form.courseinit_page'}}.'</b>' |
,'<b>'.$$initpage{$env{'form.courseinit_page'}}.'</b>' |
,'<tt>'.$outcome.'</tt>') |
,'<tt>'.$outcome.'</tt>'),1); |
.'<br />'; |
|
} |
} |
} |
} |
} |
} |
} |
} |
return $result; |
return &Apache::loncommon::confirmwrapper($result); |
} |
} |
|
|
sub start_box { |
sub start_box { |