--- loncom/xml/lonxml.pm	2000/07/18 21:27:10	1.11
+++ loncom/xml/lonxml.pm	2000/07/20 15:37:54	1.12
@@ -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));
@@ -156,7 +159,7 @@ sub callsub {
       $sub="$space\:\:$sub";
       $currentstring = &$sub($target,$token,\@$parstack,$parser,$safeeval);
     } else {
-      print "NOT Calling sub $sub\n";
+      #print "NOT Calling sub $sub\n";
       if (defined($token->[4])) {
 	$currentstring = $token->[4];
       } else {