loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.1415, 2023/11/03 01:31:57
+version 1.1417, 2023/11/11 23:09:23
  Line 6461  sub CSTR_pageheader {
      return $output;
  }
+ sub nocodemirror {
+     my $nocodem = $env{'environment.nocodemirror'};
+     unless ($nocodem) {
+         my %domdefs = &Apache::lonnet::get_domain_defaults($env{'user.domain'});
+         if ($domdefs{'nocodemirror'}) {
+             $nocodem = 'yes';
+         }
+     }
+     if ($nocodem eq 'yes') {
+         return 1;
+     }
+     return;
+ }
  ###############################################
  ###############################################