version 1.7, 2001/01/09 14:10:14
|
version 1.8, 2001/01/12 01:38:02
|
Line 31 sub styleparser {
|
Line 31 sub styleparser {
|
m/<definetag\s+name\s*=\s*\"([^\"]*)\"/; |
m/<definetag\s+name\s*=\s*\"([^\"]*)\"/; |
$current_key = $1; |
$current_key = $1; |
push @keys,$current_key; |
push @keys,$current_key; |
# print "$current_key\n"; |
# &Apache::lonxml::debug("$current_key\n"); |
my $b_position = index($entry,'<'.$target.'>',0); |
my $b_position = index($entry,'<'.$target.'>',0); |
my $e_position = index($entry,'</'.$target.'>',$b_position); |
my $e_position = index($entry,'</'.$target.'>',$b_position); |
my $target_length = length($target) + 2; |
my $target_length = length($target) + 2; |
Line 62 sub styleparser {
|
Line 62 sub styleparser {
|
} |
} |
} |
} |
push @values,$current_value; |
push @values,$current_value; |
# print "a:$current_value $#values \n"; |
# &Apache::lonxml::debug("a:$current_value $#values \n"); |
$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); |
Line 75 sub styleparser {
|
Line 75 sub styleparser {
|
|
|
# check printing |
# check printing |
while (($current_key,$current_value) = each %style_for_target) { |
while (($current_key,$current_value) = each %style_for_target) { |
print "$current_key => $current_value\n"; |
&Apache::lonxml::debug("$current_key => $current_value\n"); |
} |
} |
# return result |
# return result |
return %style_for_target; |
return %style_for_target; |