loncom/xml/style.pm - diff

Return to style.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.5, 2000/07/20 15:37:54	version 1.6, 2000/10/26 14:01:40
Line 33 sub styleparser {	Line 33 sub styleparser {
while ($stoken = $pstyle->get_token and $stoken->[1] ne 'definetag') {	while ($stoken = $pstyle->get_token and $stoken->[1] ne 'definetag') {
if ($stoken->[0] eq 'S' and $stoken->[1] eq 'meta') {	if ($stoken->[0] eq 'S' and $stoken->[1] eq 'meta') {
while ($stoken = $pstyle->get_token and $stoken->[1] ne 'meta') {	while ($stoken = $pstyle->get_token and $stoken->[1] ne 'meta') {
$current_value .= $stoken->[1];	if ($stoken->[0] eq 'T') {
	$current_value .= $stoken->[1];
	} elsif ($stoken->[0] eq 'S') {
	$current_value .= $stoken->[4];
	} else {
	$current_value .= $stoken->[2];
	}
}	}
}	}
}	}