loncom/xml/style.pm - diff

Return to style.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.14, 2002/10/16 20:37:46	version 1.17, 2003/06/09 21:46:11
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);
Line 116 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");