--- loncom/interface/loncommon.pm	2023/11/03 01:31:57	1.1415
+++ loncom/interface/loncommon.pm	2023/11/11 18:50:51	1.1416
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.1415 2023/11/03 01:31:57 raeburn Exp $
+# $Id: loncommon.pm,v 1.1416 2023/11/11 18:50:51 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -6461,6 +6461,17 @@ 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';
+        }
+    }
+    return $nocodem;
+}
+
 ###############################################
 ###############################################