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

Diff for /loncom/cgi/quotacheck.pl between versions 1.2 and 1.3

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;
Removed from v.1.2  
changed lines
  Added in v.1.3

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