--- loncom/xml/style.pm 2001/01/12 01:38:02 1.8 +++ loncom/xml/style.pm 2001/03/26 20:41:55 1.11 @@ -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 = ''; @@ -71,12 +72,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) { - &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;