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(); |