loncom/xml/style.pm - diff

Return to style.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.10, 2001/03/26 17:32:30	version 1.12, 2001/03/27 16:57:54
Line 62 sub styleparser {	Line 62 sub styleparser {
}	}
}	}
$current_value =~ s/\n//g;	$current_value =~ s/\n//g;
	###########
	# $current_value =~ s/^\s*//g;
	# $current_value =~ s/\s*$//g;
	# $current_value =~ s/\( (\w)/($1/g;
	###########
push @values,$current_value;	push @values,$current_value;
# &Apache::lonxml::debug("a:$current_value $#values \n");	# &Apache::lonxml::debug("a:$current_value $#values \n");
$current_key = '';	$current_key = '';
Line 70 sub styleparser {	Line 75 sub styleparser {
}	}

for (my $i=0; $i<=$#keys; $i++) {	for (my $i=0; $i<=$#keys; $i++) {
push @style_array,lc $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");
}	# }
# return result	# return result
return %style_for_target;	return %style_for_target;