--- loncom/xml/lonxml.pm	2000/10/26 14:01:40	1.29
+++ loncom/xml/lonxml.pm	2000/10/30 20:34:25	1.30
@@ -29,10 +29,12 @@ use Apache::scripttag;
 @Apache::lonxml::pwd=();
 $Apache::lonxml::outputstack = '';
 $Apache::lonxml::redirection = 1;
+$Apache::lonxml::textredirection = 1;
 
 sub xmlparse {
 
  my ($target,$content_file_string,$safeinit,%style_for_target) = @_;
+ if ($target eq 'meta') {$Apache::lonxml::textredirection = 0;}
  my @pars = ();
  @Apache::lonxml::pwd=();
  my $pwd=$ENV{'request.filename'};
@@ -63,9 +65,10 @@ sub xmlparse {
  while ( $#pars > -1 ) {
    while ($token = $pars[$#pars]->get_token) {
      if ($token->[0] eq 'T') {
-       $result=$token->[1];
+	 if ($Apache::lonxml::textredirection == 1) {$result=$token->[1];}
 #       $finaloutput .= &Apache::run::evaluate($token->[1],$safeeval,'');
      } elsif ($token->[0] eq 'S') {
+            if ($target eq 'meta' and $token->[2]->{metaout} eq 'ON') {$Apache::lonxml::textredirection = 1;}
        # add tag to stack 	    
        push (@stack,$token->[1]);
        # add parameters list to another stack
@@ -88,6 +91,7 @@ sub xmlparse {
 			       \@pars, $safeeval, \%style_for_target);
        }              
      } elsif ($token->[0] eq 'E')  {
+	 if ($target eq 'meta') {$Apache::lonxml::textredirection = 0;}
        #clear out any tags that didn't end
        while ($token->[1] ne $stack[$#stack] 
 	      && ($#stack > -1)) {pop @stack;pop @parstack;&decreasedepth($token);}
@@ -150,7 +154,7 @@ sub recurse {
   while ( $#pat > -1 ) {
     while  ($tokenpat = $pat[$#pat]->get_token) {
       if ($tokenpat->[0] eq 'T') {
-	$partstring = $tokenpat->[1];
+	  if ($Apache::lonxml::textredirection == 1) {$partstring = $tokenpat->[1];}
       } elsif ($tokenpat->[0] eq 'S') {
 	push (@innerstack,$tokenpat->[1]);
 	push (@innerparstack,&parstring($tokenpat));
@@ -295,7 +299,7 @@ sub parstring {
 sub handler {
   my $request=shift;
 
-  my $target='web';
+  my $target='meta';
   $Apache::lonxml::debug=1;
   if ($ENV{'browser.mathml'}) {
     $request->content_type('text/xml');