--- loncom/LONCAPA.pm 2011/07/04 09:25:53 1.32
+++ loncom/LONCAPA.pm 2019/02/15 20:56:10 1.35
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Base routines
#
-# $Id: LONCAPA.pm,v 1.32 2011/07/04 09:25:53 foxr Exp $
+# $Id: LONCAPA.pm,v 1.35 2019/02/15 20:56:10 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -138,6 +138,23 @@ sub tempdir {
return $result;
}
+# Return the default engine to use to render content of tags unless
+# a domain, course, or user specific value exists.
+
+sub texengine {
+ return 'MathJax';
+}
+
+# Return the Linux distro where this LON-CAPA instance is running
+
+sub distro {
+ my $distro;
+ if (open(PIPE,"/home/httpd/perl/distprobe |")) {
+ $distro = ;
+ close(PIPE);
+ }
+ return $distro;
+}
#----------------------------------------------------------------------
#
@@ -175,6 +192,14 @@ sub unescape {
return $str;
}
+$LONCAPA::assess_re = qr{\.(problem|exam|quiz|assess|survey|form|library|task)$};
+$LONCAPA::assess_page_re = qr{\.(problem|exam|quiz|assess|survey|form|library|task|page)$};
+$LONCAPA::assess_page_seq_re = qr{\.(problem|exam|quiz|assess|survey|form|library|task|sequence|page)$};
+$LONCAPA::parse_re = qr{\.(problem|exam|quiz|assess|survey|form|library|page|xml|html|htm|xhtml|xhtm)$};
+$LONCAPA::parse_page_re = qr{\.(problem|exam|quiz|assess|survey|form|library|page|xml|html|htm|xhtml|xhtm|page)$};
+$LONCAPA::parse_page_sty_re = qr{\.(problem|exam|quiz|assess|survey|form|library|page|xml|html|htm|xhtml|xhtm|page|sty)$};
+
+
$match_domain = $LONCAPA::domain_re = qr{[[:alnum:]\-.]+};
$match_not_domain = $LONCAPA::not_domain_re = qr{[^[:alnum:]\-.]+};
sub clean_domain {