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.111, 2007/09/10 23:00:05
Line 672 sub get_new_args {	Line 672 sub get_new_args {
$token->[2]->{$arg}=$newvalue;	$token->[2]->{$arg}=$newvalue;
}	}
$rebuild=1;	$rebuild=1;
	# add new attributes to the of the attribute seq
	if (!grep { $arg eq $_ } (@{ $token->[3] })) {
	push(@{ $token->[3] },$arg);
	}
} elsif (!defined($newvalue) && defined($value)) {	} elsif (!defined($newvalue) && defined($value)) {
delete($token->[2]->{$arg});	delete($token->[2]->{$arg});
$rebuild=1;	$rebuild=1;
Line 686 sub rebuild_tag {	Line 690 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]})) {	foreach my $attribute (@{ $token->[3] }) {
$val=~s:^\s+\|\s+$::g;	my $value = $token->[2]{$attribute};
$val=~s:"::g; #"	next if ($value eq '');
&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.=' />';