version 1.116, 2013/12/04 16:26:54
|
version 1.117, 2014/12/15 17:13:25
|
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', |