loncom/homework/edit.pm - diff

Return to edit.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.110, 2007/09/07 00:39:21	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 688 sub rebuild_tag {	Line 692 sub rebuild_tag {
$result = '<'.$token->[1];	$result = '<'.$token->[1];
foreach my $attribute (@{ $token->[3] }) {	foreach my $attribute (@{ $token->[3] }) {
my $value = $token->[2]{$attribute};	my $value = $token->[2]{$attribute};
	next if ($value eq '');
$value =~s/^\s+\|\s+$//g;	$value =~s/^\s+\|\s+$//g;
$value =~s/\"//g;	$value =~s/\"//g;
&Apache::lonxml::debug("setting :$attribute: to :$value:");	&Apache::lonxml::debug("setting :$attribute: to :$value:");