version 1.10, 2001/03/26 17:32:30
|
version 1.11, 2001/03/26 20:41:55
|
Line 70 sub styleparser {
|
Line 70 sub styleparser {
|
} |
} |
|
|
for (my $i=0; $i<=$#keys; $i++) { |
for (my $i=0; $i<=$#keys; $i++) { |
push @style_array,lc $keys[$i],$values[$i]; |
push @style_array,$keys[$i],$values[$i]; |
} |
} |
my %style_for_target = @style_array; |
my %style_for_target = @style_array; |
|
|
# check printing |
# check printing |
foreach $current_key (sort keys %style_for_target) { |
# foreach $current_key (sort keys %style_for_target) { |
&Apache::lonxml::debug("$current_key => $style_for_target{$current_key}\n"); |
# &Apache::lonxml::debug("$current_key => $style_for_target{$current_key}\n"); |
} |
# } |
# return result |
# return result |
return %style_for_target; |
return %style_for_target; |
|
|