--- loncom/xml/lonxml.pm	2000/07/14 19:11:03	1.10
+++ loncom/xml/lonxml.pm	2000/07/20 15:37:54	1.12
@@ -18,7 +18,7 @@ sub register {
     $Apache::lonxml::alltags{$temptag}=$space;
   }
 }
-
+                                     
 use Apache::style;
 use Apache::lontexconvert;
 use Apache::run;
@@ -106,13 +106,16 @@ sub xmlparse {
        my @innerstack = (); 
        my @innerparstack = ();
        $newarg = $style_for_target{'/'."$token->[1]"};
+
+#       print "qqq: $token->[1],$newarg\n";
+
        my $pat = HTML::TokeParser->new(\$newarg);
        my $tokenpat;
        my $partstring = '';
        
        while  ($tokenpat = $pat->get_token) {
 	 if ($tokenpat->[0] eq 'T') {
-	   $partstring .= $tokenpat->[1];
+	   $partstring = $tokenpat->[1];
 	 } elsif ($tokenpat->[0] eq 'S') {
 	   push (@innerstack,$tokenpat->[1]);
 	   push (@innerparstack,&parstring($tokenpat));
@@ -176,3 +179,8 @@ sub parstring {
 }
 1;
 __END__
+
+
+
+
+