--- loncom/xml/style.pm	2001/01/09 14:10:14	1.7
+++ loncom/xml/style.pm	2001/03/27 16:57:54	1.12
@@ -31,7 +31,7 @@ sub styleparser {
 	m/<definetag\s+name\s*=\s*\"([^\"]*)\"/;
 	$current_key = $1;
 	push @keys,$current_key;
-#	print "$current_key\n";
+#	&Apache::lonxml::debug("$current_key\n");
 	my $b_position =  index($entry,'<'.$target.'>',0);
 	my $e_position =  index($entry,'</'.$target.'>',$b_position);
 	my $target_length = length($target) + 2;
@@ -61,8 +61,14 @@ sub styleparser {
 
 	    } 
 	}
+        $current_value =~ s/\n//g;
+###########
+#	$current_value =~ s/^\s*//g;
+#	$current_value =~ s/\s*$//g;
+#	$current_value =~ s/\( (\w)/($1/g;
+###########
 	push @values,$current_value;
-#	print "a:$current_value $#values \n";
+#	&Apache::lonxml::debug("a:$current_value $#values \n");
 	$current_key = '';
 	$current_value ='';
 	$b_pos = index($content_style_string,'<definetag',$b_pos+1);
@@ -71,12 +77,12 @@ sub styleparser {
     for (my $i=0; $i<=$#keys; $i++) {
 	push @style_array,$keys[$i],$values[$i]; 
     }
-    my %style_for_target = @style_array;
+    my %style_for_target =  @style_array;
 
 # check printing
-  while (($current_key,$current_value) = each %style_for_target) {
-      print "$current_key => $current_value\n";
-  }
+#    foreach $current_key (sort keys %style_for_target) {
+#	&Apache::lonxml::debug("$current_key => $style_for_target{$current_key}\n");
+#    }
 # return result
   return %style_for_target;