version 1.13, 2001/11/29 19:03:58
|
version 1.17, 2003/06/09 21:46:11
|
Line 77 sub styleparser {
|
Line 77 sub styleparser {
|
if ($stoken->[0] eq 'T') { |
if ($stoken->[0] eq 'T') { |
$current_value .= $stoken->[1]; |
$current_value .= $stoken->[1]; |
} elsif ($stoken->[0] eq 'S') { |
} elsif ($stoken->[0] eq 'S') { |
my $number = &testkey($stoken->[0],$stoken->[1],@keys); |
my $number=-1; |
|
if ($stoken->[1] ne "$current_key") { |
|
$number = &testkey($stoken->[0],$stoken->[1],@keys); |
|
} |
if ($number != -1) { |
if ($number != -1) { |
$current_value .= &testvalue($number,$stoken->[0],$stoken->[2],@values); |
$current_value .= &testvalue($number,$stoken->[0],$stoken->[2],@values); |
} else { |
} else { |
$current_value .= $stoken->[4]; |
$current_value .= $stoken->[4]; |
} |
} |
} else { |
} else { |
my $number = &testkey($stoken->[0],$stoken->[1],@keys); |
my $number=-1; |
|
if (('/'.$stoken->[1]) ne "$current_key") { |
|
$number = &testkey($stoken->[0],$stoken->[1],@keys); |
|
} |
if ($number != -1) { |
if ($number != -1) { |
$current_value .= &testvalue($number,$stoken->[0],$stoken->[2],@values); |
$current_value .= &testvalue($number,$stoken->[0],$stoken->[2],@values); |
} else { |
} else { |
$current_value .= $stoken->[2]; |
$current_value .= $stoken->[2]; |
} |
} |
} |
} |
|
} |
|
|
|
|
} |
|
} |
} |
$current_value =~ s/\n//g; |
$current_value =~ s/\n//g; |
########### |
########### |
Line 102 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); |
Line 113 sub styleparser {
|
Line 120 sub styleparser {
|
push @style_array,$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"); |
Line 150 sub testvalue {
|
Line 156 sub testvalue {
|
my ($number,$zeroth,$second,@values) = @_; |
my ($number,$zeroth,$second,@values) = @_; |
my $current_content = $values[$number]; |
my $current_content = $values[$number]; |
if ($zeroth eq 'S') { |
if ($zeroth eq 'S') { |
my %tempo_hash = %$second; |
my %tempo_hash = %$second; |
while ((my $current_k,my $current_v) = each %tempo_hash) { |
while ((my $current_k,my $current_v) = each %tempo_hash) { |
$current_content =~ s/\$$current_k/$current_v/g; |
$current_content =~ s/\$$current_k/$current_v/g; |
} |
} |
} elsif ($zeroth eq 'E') { |
} elsif ($zeroth eq 'E') { |
$current_content = $values[$number]; |
$current_content = $values[$number]; |
} |
} |
return $current_content; |
return $current_content; |
} |
} |