[BACK]Return to lonwhatsnew.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonwhatsnew.pm between versions 1.105.2.9 and 1.105.2.10

version 1.105.2.9, 2013/12/14 02:08:30 version 1.105.2.10, 2015/03/12 03:28:51
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',
Removed from v.1.105.2.9  
changed lines
  Added in v.1.105.2.10

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>