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

[sakharuk]

sakharuk		Tue Jan 20 21:33:05 2004 EDT

  Modified files:              
    /loncom/xml	lonxml.pm 
  Log:
  - Hey lets actually use those silly parameters to the styled tag for something, like I don't know, maybe evaulating variables inside the style? Nah. that be what they'd be expecting. (Err, this is a guy commit)
  
  
  
Index: loncom/xml/lonxml.pm
diff -u loncom/xml/lonxml.pm:1.296 loncom/xml/lonxml.pm:1.297
--- loncom/xml/lonxml.pm:1.296	Tue Dec  9 11:52:13 2003
+++ loncom/xml/lonxml.pm	Tue Jan 20 21:33:05 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # XML Parser Module 
 #
-# $Id: lonxml.pm,v 1.296 2003/12/09 16:52:13 albertel Exp $
+# $Id: lonxml.pm,v 1.297 2004/01/21 02:33:05 sakharuk Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1345,6 +1345,9 @@
     if ( ! $context ) { $context = -1; }
     my $args ='';
     if ( $#$parstack > (-2-$context) ) { $args=$$parstack[$context]; }
+    if ( ! $Apache::lonxml::usestyle ) {
+	$args=$Apache::lonxml::style_values.$args;
+    }
     if ( ! $args ) { return undef; }
     if ( $case_insensitive ) {
 	if ($args =~ s/(my \$)(\Q$param\E)(=\")/$1.lc($2).$3/ei) {
@@ -1368,6 +1371,9 @@
   if ( ! $context ) { $context = -1; }
   my $args ='';
   if ( $#$parstack > (-2-$context) ) { $args=$$parstack[$context]; }
+  if ( ! $Apache::lonxml::usestyle ) {
+      $args=$Apache::lonxml::style_values.$args;
+  }
   &Apache::lonxml::debug("Args are $args param is $param");
   if ($case_insensitive) {
       if (! ($args=~s/(my \$)(\Q$param\E)(=\")/$1.lc($2).$3/ei)) {