--- loncom/LONCAPA.pm 2011/07/04 09:25:53 1.32 +++ loncom/LONCAPA.pm 2019/08/25 02:43:33 1.36 @@ -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.36 2019/08/25 02:43:33 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -138,6 +138,30 @@ 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; +} + +# Return the default password length. Can be overridden in a domain +# by specifying a larger value (integer) in the domain configuration. + +sub passwd_min { + return 7; +} #---------------------------------------------------------------------- # @@ -175,6 +199,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 {