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

[albertel]

albertel		Wed Nov  6 17:48:56 2002 EDT

  Modified files:              
    /loncom/xml	style.pm 
  Log:
  - Start fixing BUG#793 (allow use of style file to overwrite <problem>
  - this fix stops creating blank style definitions
  
  
Index: loncom/xml/style.pm
diff -u loncom/xml/style.pm:1.14 loncom/xml/style.pm:1.15
--- loncom/xml/style.pm:1.14	Wed Oct 16 16:37:46 2002
+++ loncom/xml/style.pm	Wed Nov  6 17:48:56 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Style Parser Module (new version)
 #
-# $Id: style.pm,v 1.14 2002/10/16 20:37:46 albertel Exp $
+# $Id: style.pm,v 1.15 2002/11/06 22:48:56 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -105,8 +105,12 @@
 #	$current_value =~ s/\s*$//g;
 #	$current_value =~ s/\( (\w)/($1/g;
 ###########
-	push @values,$current_value;
-#	&Apache::lonxml::debug("a:$current_value $#values \n");
+	if ($current_value) {
+	    push(@values,$current_value);
+	    &Apache::lonxml::debug("a:$current_value: $#values \n");
+	} else {
+	    pop(@keys);
+	}
 	$current_key = '';
 	$current_value ='';
 	$b_pos = index($content_style_string,'<definetag',$b_pos+1);