loncom/homework/edit.pm - diff

Return to edit.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.69, 2003/10/24 21:45:32	version 1.70, 2003/10/30 20:52:54
Line 482 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 490 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;
}	}