--- loncom/LONCAPA.pm	2011/07/04 09:25:53	1.32
+++ loncom/LONCAPA.pm	2011/11/07 20:05:52	1.33
@@ -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.33 2011/11/07 20:05:52 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -175,6 +175,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 {