loncom/xml/style.pm - diff

Return to style.pm CVS log

Up to [LON-CAPA] / loncom / xml

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;