--- loncom/interface/domainstatus.pm 2010/05/26 16:24:41 1.4
+++ loncom/interface/domainstatus.pm 2014/03/17 02:36:56 1.7
@@ -2,7 +2,7 @@
# Generate a menu page containing links to server status pages accessible
# to user.
#
-# $Id: domainstatus.pm,v 1.4 2010/05/26 16:24:41 bisitz Exp $
+# $Id: domainstatus.pm,v 1.7 2014/03/17 02:36:56 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -78,7 +78,7 @@ sub handler {
if (keys(%candisplay) > 0) {
$r->print('
'.&mt('Server Utilities for Domain: [_1]',''.$domdesc.'').
- '
'.&print_status_menu(\%candisplay));
+ ''.&print_status_menu(\%candisplay,$dom));
} else {
$r->print(
''.&mt('No information available').'
'
@@ -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;
@@ -154,6 +154,33 @@ sub servermenu_items {
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.'&format=html',
+ permission => $candisplay->{'uniquecodes'},
+ linktitle => $titles->{'uniquecodes'},
+ },
+ {
linktext => $linknames->{'showenv'},
icon => '',
alttext => '',
@@ -223,8 +250,11 @@ sub serverstatus_links {
'server-status' => 'Apache Server Status',
'clusterstatus' => 'Domain 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',