[LON-CAPA-cvs] cvs: loncom /xml lonxml.pm

[albertel]

albertel		Thu May 22 16:19:18 2003 EDT

  Modified files:              
    /loncom/xml	lonxml.pm 
  Log:
  - trying to figure out why the normal mechanism for doing this isn't working
  
  
Index: loncom/xml/lonxml.pm
diff -u loncom/xml/lonxml.pm:1.255 loncom/xml/lonxml.pm:1.256
--- loncom/xml/lonxml.pm:1.255	Wed May 21 16:41:55 2003
+++ loncom/xml/lonxml.pm	Thu May 22 16:19:18 2003
@@ -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 @@
 	    $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 @@
 	    $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,