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

Diff for /loncom/cgi/lonauthcgi.pm between versions 1.9 and 1.12

version 1.9, 2011/10/21 20:00:30 version 1.12, 2014/01/01 17:41:51
Line 280  sub can_view { Line 280  sub can_view {
             }              }
         }          }
         unless ($allowed) {          unless ($allowed) {
               my %alloweddoms;   
             foreach my $dom (@poss_domains) {              foreach my $dom (@poss_domains) {
                 my %domconfig = &Apache::lonnet::get_dom('configuration',['serverstatuses'],                  my %domconfig = &Apache::lonnet::get_dom('configuration',['serverstatuses'],
                                                          $dom);                                                           $dom);
                 if ($Apache::lonnet::env{'request.role'} eq "dc./$dom/") {                  if ($Apache::lonnet::env{'request.role'} eq "dc./$dom/") {
                     if ($page eq 'domconf') {                      if ($page eq 'domconf') {
                         $allowed .= $dom.'&';                          $alloweddoms{$dom} = 1;
                     } else {                      } else {
                         $allowed = 1;                           $allowed = 1; 
                     }                      }
Line 295  sub can_view { Line 296  sub can_view {
                             my @okusers = split(/,/,$domconfig{'serverstatuses'}{$page}{'namedusers'});                              my @okusers = split(/,/,$domconfig{'serverstatuses'}{$page}{'namedusers'});
                             if (grep(/^\Q$Apache::lonnet::env{'user.name'}:$Apache::lonnet::env{'user.domain'}\E$/,@okusers)) {                              if (grep(/^\Q$Apache::lonnet::env{'user.name'}:$Apache::lonnet::env{'user.domain'}\E$/,@okusers)) {
                                 if ($page eq 'domconf') {                                  if ($page eq 'domconf') {
                                     $allowed .= $dom.'&';                                      $alloweddoms{$dom} = 1;
                                 } else {                                  } else {
                                     $allowed = 1;                                      $allowed = 1;
                                 }                                  }
Line 307  sub can_view { Line 308  sub can_view {
                     }                      }
                 }                  }
             }              }
             $allowed =~ s/\&$//;              if (($page eq 'domconf') && (!$allowed))  {
                   $allowed = join('&',sort(keys(%alloweddoms)));
               }
         }          }
     }      }
     return $allowed;      return $allowed;
Line 377  sub serverstatus_titles { Line 380  sub serverstatus_titles {
                    'loncron'           => 'Generate Detailed Report',                     'loncron'           => 'Generate Detailed Report',
                    'server-status'     => 'Apache Status Page',                     'server-status'     => 'Apache Status Page',
                    'codeversions'      => 'LON-CAPA Module Versions',                     'codeversions'      => 'LON-CAPA Module Versions',
                      'checksums'         => 'LON-CAPA Module Checking',
                    'clusterstatus'     => 'Domain status',                     'clusterstatus'     => 'Domain status',
                    'metadata_keywords' => 'Display Metadata Keywords',                     'metadata_keywords' => 'Display Metadata Keywords',
                    'metadata_harvest'  => 'Harvest Metadata Searches',                     'metadata_harvest'  => 'Harvest Metadata Searches',
Line 386  sub serverstatus_titles { Line 390  sub serverstatus_titles {
                    'toggledebug'       => 'Toggle debug messages',                     'toggledebug'       => 'Toggle debug messages',
                    'ping'              => 'Cause server to ping another server',                        'ping'              => 'Cause server to ping another server',   
                    'domconf'           => 'Text Display of Domain Configuration',                     'domconf'           => 'Text Display of Domain Configuration',
                      'uniquecodes'       => 'Six-character Course Codes',
                  );                   );
     return \%titles;      return \%titles;
 }  }
Removed from v.1.9  
changed lines
  Added in v.1.12

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