--- loncom/xml/lonxml.pm	2001/01/06 15:31:27	1.45
+++ loncom/xml/lonxml.pm	2001/01/12 20:38:05	1.48
@@ -13,7 +13,7 @@ use HTML::TokeParser;
 use Safe;
 use Safe::Hole;
 use Opcode;
-use Apache::Constants(:common);
+use Apache::Constants qw(:common);
 
 sub register {
   my $space;
@@ -24,6 +24,13 @@ sub register {
     $Apache::lonxml::alltags{$temptag}=$space;
   }
 }
+
+sub printalltags {
+  my $temp;
+  foreach $temp (sort keys %Apache::lonxml::alltags) {
+    &Apache::lonxml::debug("$temp -- $Apache::lonxml::alltags{$temp}");
+  }
+}
                                      
 use Apache::style;
 use Apache::lontexconvert;
@@ -44,10 +51,14 @@ sub xmlparse {
  if ($target eq 'meta') {
    $Apache::lonxml::textredirection = 0;
    $Apache::lonxml::on_offimport = 1;
+ } elsif ($target eq 'grade') {
+   $Apache::lonxml::textredirection = 0;
+   $Apache::lonxml::on_offimport = 0;
  } else {
    $Apache::lonxml::textredirection = 1;
    $Apache::lonxml::on_offimport = 0;
  }
+ #&printalltags();
  my @pars = ();
  @Apache::lonxml::pwd=();
  my $pwd=$ENV{'request.filename'};
@@ -343,7 +354,7 @@ sub handler {
   my $request=shift;
   
   my $target='web';
-#  $Apache::lonxml::debug=1;
+  $Apache::lonxml::debug=0;
   if ($ENV{'browser.mathml'}) {
     $request->content_type('text/xml');
   } else {