version 1.114, 2013/10/21 22:34:33
|
version 1.117, 2014/12/15 17:13:25
|
Line 600 sub display_actions_box {
|
Line 600 sub display_actions_box {
|
} |
} |
my $classlist; |
my $classlist; |
if ($show{'oldroles'} || $show{'newroles'} || $show{'crslogin'}) { |
if ($show{'oldroles'} || $show{'newroles'} || $show{'crslogin'}) { |
$classlist = &Apache::loncoursedata::get_classlist(); |
$classlist = &Apache::loncoursedata::get_classlist(); |
} |
} |
if ($show{'coursenormalmail'}) { |
if ($show{'coursenormalmail'}) { |
$msgcount = &getnormalmail(\@newmsgs); |
$msgcount = &getnormalmail(\@newmsgs); |
Line 799 function toggle_countunread(choice) {
|
Line 799 function toggle_countunread(choice) {
|
.'<br />' |
.'<br />' |
.&mt("This can increase the time taken to gather data for the [_1]What's New Page[_2] by a few seconds.",'<i>','</i>') |
.&mt("This can increase the time taken to gather data for the [_1]What's New Page[_2] by a few seconds.",'<i>','</i>') |
.' ' |
.' ' |
.&mt('Currently set to [_1].','<b>'.$current.'</b>.') |
.&mt('Currently set to [_1].','<b>'.$current.'</b>') |
); |
); |
$r->print('<br /><br /> |
$r->print('<br /><br /> |
<form method="post" name="discussionswitch" action="/adm/whatsnew"> |
<form method="post" name="discussionswitch" action="/adm/whatsnew"> |
Line 1164 sub get_curr_thresholds {
|
Line 1164 sub get_curr_thresholds {
|
my $thresholdcount = 0; |
my $thresholdcount = 0; |
my ($tmp) = %thresholdsettings; |
my ($tmp) = %thresholdsettings; |
unless ($tmp =~ /^(con_lost|error|no_such_host)/i) { |
unless ($tmp =~ /^(con_lost|error|no_such_host)/i) { |
foreach my $item (keys %{$threshold}) { |
foreach my $item (keys(%{$threshold})) { |
if (exists($thresholdsettings{$cid.':threshold_'.$item})) { |
if (exists($thresholdsettings{$cid.':threshold_'.$item})) { |
$$threshold{$item} = |
$$threshold{$item} = |
$thresholdsettings{$cid.':threshold_'.$item}; |
$thresholdsettings{$cid.':threshold_'.$item}; |
Line 1179 sub get_curr_thresholds {
|
Line 1179 sub get_curr_thresholds {
|
$cdom,$crs,'internal.threshold'); |
$cdom,$crs,'internal.threshold'); |
my ($temp) = %coursesettings; |
my ($temp) = %coursesettings; |
unless ($temp =~ /^(con_lost|error|no_such_host)/i) { |
unless ($temp =~ /^(con_lost|error|no_such_host)/i) { |
foreach my $item (keys %{$threshold}) { |
foreach my $item (keys(%{$threshold})) { |
unless (exists($thresholdsettings{$cid.':threshold_'.$item})) { |
unless (exists($thresholdsettings{$cid.':threshold_'.$item})) { |
if (exists($coursesettings{'internal.threshold_'.$item})) { |
if (exists($coursesettings{'internal.threshold_'.$item})) { |
$$threshold{$item} = |
$$threshold{$item} = |
Line 1246 sub process_reset {
|
Line 1246 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/><br />'; |
my $setoutput = '<b>'.&mt('Changes to threshold(s) for problem tracking:').'</b><br/><br />'; |
foreach (keys %env) { |
foreach my $key (keys(%env)) { |
next if ($_!~/^form\.(.+)\_setparmval$/); |
my $name; |
my $name = $1; |
if ($key =~/^form\.(.+)\_setparmval$/) { |
|
$name = $1; |
|
} else { |
|
next; |
|
} |
my $value = $env{'form.'.$name.'_value'}; |
my $value = $env{'form.'.$name.'_value'}; |
if ($name && defined($value) && ($value ne '')) { |
if ($name && defined($value) && ($value ne '')) { |
my $put_result = &Apache::lonnet::put('nohist_whatsnew', |
my $put_result = &Apache::lonnet::put('nohist_whatsnew', |
Line 1866 sub display_crslogins {
|
Line 1870 sub display_crslogins {
|
my $udom = $user->{'udom'}; |
my $udom = $user->{'udom'}; |
my $fullname; |
my $fullname; |
if (ref($classlist->{$uname.':'.$udom}) eq 'ARRAY') { |
if (ref($classlist->{$uname.':'.$udom}) eq 'ARRAY') { |
$fullname = $classlist->{$user}->[$fullnameidx]; |
$fullname = $classlist->{$uname.':'.$udom}->[$fullnameidx]; |
} else { |
} else { |
$fullname = &Apache::loncommon::plainname($uname,$udom,'lastname'); |
$fullname = &Apache::loncommon::plainname($uname,$udom,'lastname'); |
} |
} |