[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.7 and 1.105.2.10

version 1.105.2.7, 2013/10/21 23:31:24 version 1.105.2.10, 2015/03/12 03:28:51
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>')
              .'&nbsp;&nbsp;'               .'&nbsp;&nbsp;'
              .&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');
                             }                              }
Removed from v.1.105.2.7  
changed lines
  Added in v.1.105.2.10

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