loncom/interface/londocs.pm - diff

Return to londocs.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.709, 2024/01/10 20:07:37
+version 1.710, 2024/06/07 14:37:55
  Line 6694  SEDFFORM
              $checkcrsres = 1;
          } elsif ($env{'course.'.$coursedom.'_'.$coursenum.'.internal.crsauthor'} ne '0') {
              my %domdefs=&Apache::lonnet::get_domain_defaults($coursedom);
-             if ($domdefs{'crsauthor'}) {
+             my $type = lc($env{'course.'.$env{'request.course.id'}.'.type'});
+             unless (($type eq 'community') || ($type eq 'placement')) {
+                 $type = 'unofficial';
+                 if ($env{'course.'.$env{'request.course.id'}.'internal.coursecode'} ne '') {
+                     $type = 'official';
+                 } elsif ($env{'course.'.$env{'request.course.id'}.'internal.textbook'} ne '') {
+                     $type = 'textbook';
+                 } else {
+                     $type = 'unofficial';
+                 }
+             }
+             if ($domdefs{$type.'crsauthor'}) {
                  $checkcrsres = 1;
              }
          }