--- loncom/xml/style.pm	2001/01/12 01:38:02	1.8
+++ loncom/xml/style.pm	2001/03/26 17:32:30	1.10
@@ -61,6 +61,7 @@ sub styleparser {
 
 	    } 
 	}
+        $current_value =~ s/\n//g;
 	push @values,$current_value;
 #	&Apache::lonxml::debug("a:$current_value $#values \n");
 	$current_key = '';
@@ -69,14 +70,14 @@ sub styleparser {
     }
 
     for (my $i=0; $i<=$#keys; $i++) {
-	push @style_array,$keys[$i],$values[$i]; 
+	push @style_array,lc $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) {
-      &Apache::lonxml::debug("$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;