--- loncom/xml/lonxml.pm	2003/05/21 20:41:55	1.255
+++ loncom/xml/lonxml.pm	2003/05/22 20:19:18	1.256
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # XML Parser Module 
 #
-# $Id: lonxml.pm,v 1.255 2003/05/21 20:41:55 sakharuk Exp $
+# $Id: lonxml.pm,v 1.256 2003/05/22 20:19:18 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -520,12 +520,6 @@ sub inner_xmlparse {
 	    $Apache::lonxml::usestyle=0;
 	    my $string=$$style_for_target{$token->[1]}.
 	      '<LONCAPA_INTERNAL_TURN_STYLE_ON />';
-##### LETS TRY VARIABLE INTERPOLATION (it may be stupid but at least it works)
-	    my %localhash=%{$token->[2]};
-	    foreach my $localkey (keys %localhash) {
-		$string=~s/\$$localkey/$localhash{$localkey}/g;
-	    }
-#####
 	    &Apache::lonxml::newparser($pars,\$string);
 	} else {
 	  $result = &callsub("start_$token->[1]", $target, $token, $stack,
@@ -549,14 +543,6 @@ sub inner_xmlparse {
 	    $Apache::lonxml::usestyle=0;
 	    my $string=$$style_for_target{'/'.$token->[1]}.
 	      '<LONCAPA_INTERNAL_TURN_STYLE_ON />';
-##### LETS TRY VARIABLE INTERPOLATION (it may be stupid but at least it works)
-	    my @localarray = split /;/, $$parstack[-1];
-	    foreach my $localelement (@localarray) {
-		$localelement=~/my\s+\$([^=]+)=\"(.*)\"$/;
-		my ($whatchange,$tochange) = ($1,$2);
-		$string=~s/\$$whatchange/$tochange/g;
-	    }
-#####
 	    &Apache::lonxml::newparser($pars,\$string);
 	} else {
 	  $result = &callsub("end_$token->[1]", $target, $token, $stack,