loncom/homework/edit.pm - diff

Return to edit.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.108, 2007/06/19 20:24:42	version 1.109, 2007/09/07 00:21:05
Line 686 sub rebuild_tag {	Line 686 sub rebuild_tag {
my $result;	my $result;
if ($token->[0] eq 'S') {	if ($token->[0] eq 'S') {
$result = '<'.$token->[1];	$result = '<'.$token->[1];
while (my ($key,$val)= each(%{$token->[2]})) {	#FIXME do this in non random order
$val=~s:^\s+\|\s+$::g;	foreach my $attribute (@{ $token->[3] }) {
$val=~s:"::g; #"	my $value = $token->[2]{$attribute};
&Apache::lonxml::debug("setting :$key: to :$val:");	$value =~s/^\s+\|\s+$//g;
$result.=' '.$key.'="'.$val.'"';	$value =~s/\"//g;
	&Apache::lonxml::debug("setting :$attribute: to :$value:");
	$result.=' '.$attribute.'="'.$value.'"';
}	}
if ($token->[4] =~ m:/>$:) {	if ($token->[4] =~ m:/>$:) {
$result.=' />';	$result.=' />';