version 1.14, 2002/10/16 20:37:46
|
version 1.15, 2002/11/06 22:48:56
|
Line 105 sub styleparser {
|
Line 105 sub styleparser {
|
# $current_value =~ s/\s*$//g; |
# $current_value =~ s/\s*$//g; |
# $current_value =~ s/\( (\w)/($1/g; |
# $current_value =~ s/\( (\w)/($1/g; |
########### |
########### |
push @values,$current_value; |
if ($current_value) { |
# &Apache::lonxml::debug("a:$current_value $#values \n"); |
push(@values,$current_value); |
|
&Apache::lonxml::debug("a:$current_value: $#values \n"); |
|
} else { |
|
pop(@keys); |
|
} |
$current_key = ''; |
$current_key = ''; |
$current_value =''; |
$current_value =''; |
$b_pos = index($content_style_string,'<definetag',$b_pos+1); |
$b_pos = index($content_style_string,'<definetag',$b_pos+1); |