loncom/homework/edit.pm - diff

Return to edit.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.19, 2001/07/18 20:27:22	version 1.20, 2001/07/23 22:40:59
Line 253 sub get_new_args {	Line 253 sub get_new_args {
my ($token,$parstack,$safeeval,@args)=@_;	my ($token,$parstack,$safeeval,@args)=@_;
my $rebuild=0;	my $rebuild=0;
foreach my $arg (@args) {	foreach my $arg (@args) {
my $value=&Apache::lonxml::get_param($arg,$parstack,$safeeval);	#just want the string that it was set to
	my $value=$token->[2]->{$arg};
my $newvalue=$ENV{"form.$Apache::lonxml::curdepth.$arg"};	my $newvalue=$ENV{"form.$Apache::lonxml::curdepth.$arg"};
&Apache::lonxml::debug(" for:$arg: cur is :$value: new is :$newvalue:");	&Apache::lonxml::debug(" for:$arg: cur is :$value: new is :$newvalue:");
if ($value ne $newvalue) {	if ($value ne $newvalue) {
Line 271 sub rebuild_tag {	Line 272 sub rebuild_tag {
if ($token->[0] eq 'S') {	if ($token->[0] eq 'S') {
$result = '<'.$token->[1];	$result = '<'.$token->[1];
while (my ($key,$val)= each(%{$token->[2]})) {	while (my ($key,$val)= each(%{$token->[2]})) {
$val=~s:^\s\|\s$::g;	$val=~s:^\s+\|\s+$::g;
$val=~s:"::g; #"	$val=~s:"::g; #"
&Apache::lonxml::debug("setting :$key: to :$val:");	&Apache::lonxml::debug("setting :$key: to :$val:");
$result.=' '.$key.'="'.$val.'"';	$result.=' '.$key.'="'.$val.'"';