version 1.2, 2014/06/13 18:50:07
|
version 1.3, 2014/07/31 15:02:26
|
Line 51 if (ref($perlvar) eq 'HASH') {
|
Line 51 if (ref($perlvar) eq 'HASH') {
|
} |
} |
undef($perlvar); |
undef($perlvar); |
|
|
|
my $script = "/cgi-bin/quotacheck.pl"; |
|
|
print &LONCAPA::loncgi::cgi_header('text/html',1); |
print &LONCAPA::loncgi::cgi_header('text/html',1); |
&main($lonhost); |
&main($lonhost); |
|
|
Line 59 sub main {
|
Line 61 sub main {
|
if ($lonhost eq '') { |
if ($lonhost eq '') { |
&Apache::lonlocal::get_language_handle(); |
&Apache::lonlocal::get_language_handle(); |
&Apache::lonhtmlcommon::add_breadcrumb |
&Apache::lonhtmlcommon::add_breadcrumb |
({href=>"/cgi-bin/quotacheck.pl", |
({href=>$script, |
text=>"Content disk usage"}); |
text=>"Content disk usage"}); |
print(&Apache::loncommon::start_page('Course/Community disk usage and quotas'). |
print(&Apache::loncommon::start_page('Course/Community disk usage and quotas'). |
&Apache::lonhtmlcommon::breadcrumbs('Course/Community status'). |
&Apache::lonhtmlcommon::breadcrumbs('Course/Community status'). |
Line 121 sub main {
|
Line 123 sub main {
|
|
|
&Apache::lonlocal::get_language_handle(); |
&Apache::lonlocal::get_language_handle(); |
&Apache::lonhtmlcommon::add_breadcrumb |
&Apache::lonhtmlcommon::add_breadcrumb |
({href=>"/cgi-bin/quotacheck.pl?domain=$reqdom", |
({href=>$script."?domain=$reqdom", |
text=>"Content disk usage"}); |
text=>"Content disk usage"}); |
if ($params{'gosearch'}) { |
if ($params{'gosearch'}) { |
&Apache::lonhtmlcommon::add_breadcrumb |
&Apache::lonhtmlcommon::add_breadcrumb |
({href=>"/cgi-bin/quotacheck.pl?domain=$reqdom", |
({href=>$script."?domain=$reqdom", |
text=>"Result"}); |
text=>"Result"}); |
} |
} |
my $domdesc = &Apache::lonnet::domain($reqdom,'description'); |
my $domdesc = &Apache::lonnet::domain($reqdom,'description'); |
Line 158 sub main {
|
Line 160 sub main {
|
$Apache::lonnet::env{'form.state'} = $params{'state'}; |
$Apache::lonnet::env{'form.state'} = $params{'state'}; |
} |
} |
print(&Apache::loncommon::build_filters($filterlist,$crstype,undef,undef,$filter, |
print(&Apache::loncommon::build_filters($filterlist,$crstype,undef,undef,$filter, |
'/cgi-bin/quotacheck.pl',\$numtitles, |
$script,\$numtitles, |
'quotacheck',undef,undef,undef, |
'quotacheck',undef,undef,undef, |
\@codetitles,$reqdom,'quotacheck',$reqdom)); |
\@codetitles,$reqdom,'quotacheck',$reqdom)); |
if ($params{'gosearch'}) { |
if ($params{'gosearch'}) { |
Line 197 sub print_usage {
|
Line 199 sub print_usage {
|
'</p>'."\n". |
'</p>'."\n". |
'<p class="LC_info">'. |
'<p class="LC_info">'. |
&Apache::lonlocal::mt('Show quotas for the domain being coordinated: [_1]', |
&Apache::lonlocal::mt('Show quotas for the domain being coordinated: [_1]', |
'<a href="/cgi-bin/quotacheck.pl?domain='.$domain.'">'. |
'<a href="'.$script.'?domain='.$domain.'">'. |
$otherdomdesc.'</a>'). |
$otherdomdesc.'</a>'). |
'</p>'); |
'</p>'); |
return; |
return; |