loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

-version 1.1411, 2019/07/18 18:28:58
+version 1.1412, 2019/07/23 01:30:44
  Line 2721  sub get_domain_defaults {
      return %domdefaults;
  }
+ sub get_dom_cats {
+     my ($dom) = @_;
+     return unless (&domain($dom));
+     my ($cats,$cached)=&is_cached_new('cats',$dom);
+     unless (defined($cached)) {
+         my %domconfig = &get_dom('configuration',['coursecategories'],$dom);
+         if (ref($domconfig{'coursecategories'}) eq 'HASH') {
+             if (ref($domconfig{'coursecategories'}{'cats'}) eq 'HASH') {
+                 %{$cats} = %{$domconfig{'coursecategories'}{'cats'}};
+             } else {
+                 $cats = {};
+             }
+         } else {
+             $cats = {};
+         }
+         &Apache::lonnet::do_cache_new('cats',$dom,$cats,3600);
+     }
+     return $cats;
+ }
  sub course_portal_url {
      my ($cnum,$cdom) = @_;
      my $chome = &homeserver($cnum,$cdom);