version 1.8, 2001/01/12 01:38:02
|
version 1.9, 2001/01/16 20:52:31
|
Line 61 sub styleparser {
|
Line 61 sub styleparser {
|
|
|
} |
} |
} |
} |
|
$current_value =~ s/\n//g; |
push @values,$current_value; |
push @values,$current_value; |
# &Apache::lonxml::debug("a:$current_value $#values \n"); |
# &Apache::lonxml::debug("a:$current_value $#values \n"); |
$current_key = ''; |
$current_key = ''; |
Line 69 sub styleparser {
|
Line 70 sub styleparser {
|
} |
} |
|
|
for (my $i=0; $i<=$#keys; $i++) { |
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 |
# check printing |
while (($current_key,$current_value) = each %style_for_target) { |
while (($current_key,$current_value) = each %style_for_target) { |