loncom/homework/inputtags.pm - diff

Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.209, 2006/10/17 15:11:11	version 1.210, 2006/11/01 23:24:52
Line 283 sub needs_exam_box {	Line 283 sub needs_exam_box {
sub start_textline {	sub start_textline {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
my $result = "";	my $result = "";
my $id = &start_input($parstack,$safeeval);	my $input_id = &start_input($parstack,$safeeval);
if ($target eq 'web') {	if ($target eq 'web') {
$Apache::lonxml::evaluate--;	$Apache::lonxml::evaluate--;
my $partid=$Apache::inputtags::part;	my $partid=$Apache::inputtags::part;
Line 294 sub start_textline {	Line 294 sub start_textline {
if ($size eq '') { $size=20; } else {	if ($size eq '') { $size=20; } else {
if ($size < 20) { $maxlength=$size; }	if ($size < 20) { $maxlength=$size; }
}	}
my $oldresponse = &HTML::Entities::encode($Apache::lonhomework::history{"resource.$partid.$id.submission"},'<>&"');	my $oldresponse = $Apache::lonhomework::history{"resource.$partid.$id.submission"};
	&Apache::lonxml::debug("oldresponse $oldresponse is ".ref($oldresponse));

	if (ref($oldresponse) eq 'ARRAY') {
	$oldresponse = $oldresponse->[$#Apache::inputtags::inputlist];
	}
	$oldresponse = &HTML::Entities::encode($oldresponse,'<>&"');

if ($Apache::lonhomework::type ne 'exam') {	if ($Apache::lonhomework::type ne 'exam') {
my $addchars=&Apache::lonxml::get_param('addchars',$parstack,$safeeval);	my $addchars=&Apache::lonxml::get_param('addchars',$parstack,$safeeval);
$result='';	$result='';