--- loncom/interface/domainstatus.pm	2010/05/18 16:13:31	1.3
+++ loncom/interface/domainstatus.pm	2016/07/25 19:50:30	1.8
@@ -2,7 +2,7 @@
 # Generate a menu page containing links to server status pages accessible
 # to user. 
 #
-# $Id: domainstatus.pm,v 1.3 2010/05/18 16:13:31 bisitz Exp $
+# $Id: domainstatus.pm,v 1.8 2016/07/25 19:50:30 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -78,7 +78,7 @@ sub handler {
 
     if (keys(%candisplay) > 0) {
         $r->print('<h2>'.&mt('Server Utilities for Domain: [_1]','<i>'.$domdesc.'</i>').
-                  '</h2>'.&print_status_menu(\%candisplay));
+                  '</h2>'.&print_status_menu(\%candisplay,$dom));
     } else {
         $r->print(
             '<h2>'.&mt('No information available').'</h2>'
@@ -93,14 +93,14 @@ sub handler {
 }
 
 sub print_status_menu {
-    my ($candisplay) = @_;
+    my ($candisplay,$dom) = @_;
     return '' if (ref($candisplay) ne 'HASH');
     return &Apache::lonhtmlcommon::generate_menu(
-               &servermenu_items($candisplay));
+               &servermenu_items($candisplay,$dom));
 }
 
 sub servermenu_items {
-    my ($candisplay) = @_;
+    my ($candisplay,$dom) = @_;
     my $titles = &LONCAPA::lonauthcgi::serverstatus_titles();
     my $linknames = &serverstatus_links();
     my @menu;
@@ -110,7 +110,8 @@ sub servermenu_items {
                   items =>
                  [{
                  linktext => $linknames->{'userstatus'},
-                 icon => 'srvr.png',
+                 icon => '',
+                 alttext => '',
                  #help => 'Domain_Coordination_Userstatus',
                  url => '/cgi-bin/userstatus.pl',
                  permission => $candisplay->{'userstatus'},
@@ -118,7 +119,8 @@ sub servermenu_items {
              },
              {
                  linktext => $linknames->{'lonstatus'},
-                 icon => 'srvr.png',
+                 icon => '',
+                 alttext => '',
                  #help => 'Domain_Coordination_Connection_Status',
                  url => '/lon-status/',
                  permission => $candisplay->{'lonstatus'},
@@ -126,7 +128,8 @@ sub servermenu_items {
              },
              {
                  linktext => $linknames->{'server-status'},
-                 icon => 'srvr.png',
+                 icon => '',
+                 alttext => '',
                  #help => 'Domain_Coordination_Apache_Status',
                  url => '/server-status',
                  permission => $candisplay->{'server-status'},
@@ -134,23 +137,62 @@ sub servermenu_items {
              },
              {
                  linktext => $linknames->{'clusterstatus'},
-                 icon => 'srvr.png',
+                 icon => '',
+                 alttext => '',
                  #help => 'Domain_Coordination_Apache_Status',
                  url => '/cgi-bin/clusterstatus.pl',
                  permission => $candisplay->{'clusterstatus'},
                  linktitle => $titles->{'clusterstatus'},
              },
              {
+                 linktext => $linknames->{'certstatus'},
+                 icon => '',
+                 alttext => '',
+                 #help => 'Domain_Coordination_Apache_Status',
+                 url => '/cgi-bin/loncertstatus.pl',
+                 permission => $candisplay->{'certstatus'},
+                 linktitle => $titles->{'certstatus'},
+             },
+             {
                  linktext => $linknames->{'codeversions'},
-                 icon => 'srvr.png',
+                 icon => '',
+                 alttext => '',
                  #help => 'Domain_Coordination_Code_Versions',
                  url => '/cgi-bin/lonversions.pl',
                  permission => $candisplay->{'codeversions'},
                  linktitle => $titles->{'codeversions'},
              },
              {
+                 linktext => $linknames->{'checksums'},
+                 icon => '',
+                 alttext => '',
+                 #help => 'Domain_Coordination_Code_Checksums',
+                 url => '/cgi-bin/lonmodulecheck.pl',
+                 permission => $candisplay->{'checksums'},
+                 linktitle => $titles->{'checksums'},
+             },
+             {
+                 linktext => $linknames->{'diskusage'},
+                 icon => '',
+                 alttext => '',
+                 #help => 'Domain_Coordination_Disk_Usage',
+                 url => '/cgi-bin/quotacheck.pl?domain='.$dom,
+                 permission => $candisplay->{'diskusage'},
+                 linktitle => $titles->{'diskusage'},
+             },
+             {
+                 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'},
-                 icon => 'srvr.png',
+                 icon => '',
+                 alttext => '',
                  #help => 'Domain_Coordination_User_Environment',
                  url => '/adm/test',
                  permission => $candisplay->{'showenv'},
@@ -160,7 +202,8 @@ sub servermenu_items {
              items =>
              [{
                  linktext => $linknames->{'loncron'},
-                 icon => 'srvr.png',
+                 icon => '',
+                 alttext => '',
                  #help => 'Domain_Coordination_Connection_Reload',
                  url => '/cgi-bin/loncron.pl',
                  permission => $candisplay->{'loncron'},
@@ -168,7 +211,8 @@ sub servermenu_items {
              },
              {
                  linktext => $linknames->{'takeoffline'},
-                 icon => 'srvr.png',
+                 icon => '',
+                 alttext => '',
                  #help => 'Domain_Coordination_Server_Offline',
                  url => '/cgi-bin/takeoffline.pl',
                  permission => $candisplay->{'takeoffline'},
@@ -176,7 +220,8 @@ sub servermenu_items {
              },
              {
                  linktext => $linknames->{'takeonline'},
-                 icon => 'srvr.png',
+                 icon => '',
+                 alttext => '',
                  #help => 'Domain_Coordination_Server_Online',
                  url => '/cgi-bin/takeonline.pl',
                  permission => $candisplay->{'takeonline'},
@@ -186,7 +231,8 @@ sub servermenu_items {
              items =>
              [{
                  linktext => $linknames->{'metadata_keywords'},
-                 icon => 'srvr.png',
+                 icon => '',
+                 alttext => '',
                  #help => 'Domain_Coordination_Metadata_Keywords',
                  url => '/cgi-bin/metadata_keywords.pl',
                  permission => $candisplay->{'metadata_keywords'},
@@ -194,7 +240,8 @@ sub servermenu_items {
              },
              {
                  linktext => $linknames->{'metadata_harvest'},
-                 icon => 'srvr.png',
+                 icon => '',
+                 alttext => '',
                  #help => 'Domain_Coordination_Metadata_Harvest',
                  url => '/cgi-bin/metadata_harvest.pl',
                  permission => $candisplay->{'metadata_harvest'},
@@ -211,9 +258,13 @@ sub serverstatus_links {
                     'lonstatus' => 'Connection Status',
                     'server-status' => 'Apache Server Status',
                     'clusterstatus' => 'Domain Status',
+                    'certstatus' => 'LON-CAPA SSL Certificates Status',   
                     'codeversions' => 'LON-CAPA Modules',
+                    'checksums'    => 'Check for LON-CAPA Module changes',   
+                    'diskusage'    => 'Display quotas and usage for Course/Community Content',
                     'showenv' => 'User Environment for current log-in',
                     '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',
                     'takeonline' => 'Replace offline notice with log-in page',
                     'metadata_keywords' => 'Display Metadata Keywords',