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

Diff for /loncom/interface/coursecatalog.pm between versions 1.92 and 1.93

version 1.92, 2017/02/20 18:29:22 version 1.93, 2017/08/07 20:22:12
Line 57  sub handler { Line 57  sub handler {
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},      &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
                                             ['sortby','showdom']);                                              ['sortby','showdom']);
   
     my $codedom = &Apache::lonnet::default_login_domain();      my $serverdefdom = &Apache::lonnet::default_login_domain();
       my $codedom = $serverdefdom;
   
     if (($env{'user.domain'} ne '') && ($env{'user.domain'} ne 'public')) {       if (($env{'user.domain'} ne '') && ($env{'user.domain'} ne 'public')) { 
         $codedom = $env{'user.domain'};          $codedom = $env{'user.domain'};
Line 74  sub handler { Line 75  sub handler {
             $env{'form.showdom'} = '';              $env{'form.showdom'} = '';
         }          }
     }      }
     my $domdesc = &Apache::lonnet::domain($codedom,'description');      my $domdesc = &Apache::lonnet::domain($serverdefdom,'description');
     &Apache::lonhtmlcommon::clear_breadcrumbs();      &Apache::lonhtmlcommon::clear_breadcrumbs();
       if (&Apache::lonnet::notcallable('catalog',$codedom)) {
           my $serverdomdesc = &Apache::lonnet::domain($serverdefdom,'description');
           $r->print(&Apache::loncommon::start_page('Course/Community Catalog'));
           &Apache::lonhtmlcommon::add_breadcrumb
               ({href=>"/adm/coursecatalog",
                 text=>"Course/Community Catalog"});
           $r->print(&Apache::lonhtmlcommon::breadcrumbs('Course/Community Catalog'));
           $r->print('<div>'.&mt('Access to catalog LON-CAPA courses/communities unavailable for: "[_1]" on servers run by: "[_2]".',
                     $domdesc,$serverdomdesc).'</div>');
           $r->print(&Apache::loncommon::end_page());
           return OK;
       }
     my %domconfig =      my %domconfig =
         &Apache::lonnet::get_dom('configuration',['coursecategories'],$codedom);          &Apache::lonnet::get_dom('configuration',['coursecategories'],$codedom);
     my $knownuser = &user_is_known();      my $knownuser = &user_is_known();
Removed from v.1.92  
changed lines
  Added in v.1.93

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