--- loncom/xml/lonxml.pm	2007/09/11 20:36:18	1.458
+++ loncom/xml/lonxml.pm	2007/09/11 23:53:13	1.459
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # XML Parser Module 
 #
-# $Id: lonxml.pm,v 1.458 2007/09/11 20:36:18 albertel Exp $
+# $Id: lonxml.pm,v 1.459 2007/09/11 23:53:13 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -909,6 +909,9 @@ sub endredirection {
     }
     pop @Apache::lonxml::outputstack;
 }
+sub in_redirection {
+    return ($Apache::lonxml::redirection > 0)
+}
 
 sub end_tag {
   my ($tagstack,$parstack,$token)=@_;