loncom/homework/edit.pm - diff

Return to edit.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.68, 2003/10/24 21:09:24	version 1.70, 2003/10/30 20:52:54
Line 273 sub handle_insertafter {	Line 273 sub handle_insertafter {
return $result;	return $result;
}	}

	sub insert_img {
	return '
	<img />';
	}

sub insert_responseparam {	sub insert_responseparam {
return '	return '
<responseparam />';	<responseparam />';
Line 477 sub editfield {	Line 482 sub editfield {
}	}

sub modifiedfield {	sub modifiedfield {
my ($token) = @_;	my ($endtag,$parser) = @_;
my $result;	my $result;
# foreach my $envkey (sort keys %ENV) {	# foreach my $envkey (sort keys %ENV) {
# &Apache::lonxml::debug("$envkey ---- $ENV{$envkey}");	# &Apache::lonxml::debug("$envkey ---- $ENV{$envkey}");
Line 485 sub modifiedfield {	Line 490 sub modifiedfield {
# &Apache::lonxml::debug("I want homework_edit_$Apache::lonxml::curdepth");	# &Apache::lonxml::debug("I want homework_edit_$Apache::lonxml::curdepth");
# &Apache::lonxml::debug($ENV{"form.homework_edit_$Apache::lonxml::curdepth"});	# &Apache::lonxml::debug($ENV{"form.homework_edit_$Apache::lonxml::curdepth"});
$result=$ENV{"form.homework_edit_$Apache::lonxml::curdepth"};	$result=$ENV{"form.homework_edit_$Apache::lonxml::curdepth"};
	my $bodytext=&Apache::lonxml::get_all_text($endtag,$parser);
	# textareas throw away intial \n
	if ($bodytext=~/^\n/) { $result="\n".$result; }
return $result;	return $result;
}	}