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

Diff for /loncom/interface/domainstatus.pm between versions 1.5 and 1.6

version 1.5, 2013/02/02 00:22:51 version 1.6, 2014/01/01 17:41:47
Line 78  sub handler { Line 78  sub handler {
   
     if (keys(%candisplay) > 0) {      if (keys(%candisplay) > 0) {
         $r->print('<h2>'.&mt('Server Utilities for Domain: [_1]','<i>'.$domdesc.'</i>').          $r->print('<h2>'.&mt('Server Utilities for Domain: [_1]','<i>'.$domdesc.'</i>').
                   '</h2>'.&print_status_menu(\%candisplay));                    '</h2>'.&print_status_menu(\%candisplay,$dom));
     } else {      } else {
         $r->print(          $r->print(
             '<h2>'.&mt('No information available').'</h2>'              '<h2>'.&mt('No information available').'</h2>'
Line 93  sub handler { Line 93  sub handler {
 }  }
   
 sub print_status_menu {  sub print_status_menu {
     my ($candisplay) = @_;      my ($candisplay,$dom) = @_;
     return '' if (ref($candisplay) ne 'HASH');      return '' if (ref($candisplay) ne 'HASH');
     return &Apache::lonhtmlcommon::generate_menu(      return &Apache::lonhtmlcommon::generate_menu(
                &servermenu_items($candisplay));                 &servermenu_items($candisplay,$dom));
 }  }
   
 sub servermenu_items {  sub servermenu_items {
     my ($candisplay) = @_;      my ($candisplay,$dom) = @_;
     my $titles = &LONCAPA::lonauthcgi::serverstatus_titles();      my $titles = &LONCAPA::lonauthcgi::serverstatus_titles();
     my $linknames = &serverstatus_links();      my $linknames = &serverstatus_links();
     my @menu;      my @menu;
Line 163  sub servermenu_items { Line 163  sub servermenu_items {
                  linktitle => $titles->{'checksums'},                   linktitle => $titles->{'checksums'},
              },               },
              {               {
                    linktext => $linknames->{'uniquecodes'},
                    icon => '',
                    alttext => '',
                    #help => 'Domain_Coordination_Uniquecodes',
                    url => '/cgi-bin/listcodes.pl?domain='.$dom.'&amp;format=html',
                    permission => $candisplay->{'uniquecodes'},
                    linktitle => $titles->{'uniquecodes'},
                },
                {
                  linktext => $linknames->{'showenv'},                   linktext => $linknames->{'showenv'},
                  icon => '',                   icon => '',
                  alttext => '',                   alttext => '',
Line 235  sub serverstatus_links { Line 244  sub serverstatus_links {
                     'checksums'    => 'Check for LON-CAPA Module changes',                         'checksums'    => 'Check for LON-CAPA Module changes',   
                     'showenv' => 'User Environment for current log-in',                      'showenv' => 'User Environment for current log-in',
                     'loncron' => 'Update Connections and Refresh Status Information',                      'loncron' => 'Update Connections and Refresh Status Information',
                       'uniquecodes' => "List Domain's Courses with Assigned Six Character codes",
                     'takeoffline' => 'Replace log-in page with offline notice',                      'takeoffline' => 'Replace log-in page with offline notice',
                     'takeonline' => 'Replace offline notice with log-in page',                      'takeonline' => 'Replace offline notice with log-in page',
                     'metadata_keywords' => 'Display Metadata Keywords',                      'metadata_keywords' => 'Display Metadata Keywords',
Removed from v.1.5  
changed lines
  Added in v.1.6

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