loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.184, 2007/11/13 11:06:54	version 1.187, 2008/02/01 22:05:45
Line 454 sub end_customresponse {	Line 454 sub end_customresponse {
&Apache::lonxml::increment_counter(&Apache::response::repetition(),	&Apache::lonxml::increment_counter(&Apache::response::repetition(),
"$part.$id");	"$part.$id");
if ($target eq 'analyze') {	if ($target eq 'analyze') {
	$Apache::lonhomework::analyze{"$part.$id.type"} = 'customresponse';
&Apache::lonhomework::set_bubble_lines();	&Apache::lonhomework::set_bubble_lines();
}	}
}	}
Line 675 sub start_responseparam {	Line 676 sub start_responseparam {
$Apache::lonnet::packagetab{"$tag&$name&display"};	$Apache::lonnet::packagetab{"$tag&$name&display"};
$token->[2]->{'default'}=	$token->[2]->{'default'}=
$Apache::lonnet::packagetab{"$tag&$name&default"};	$Apache::lonnet::packagetab{"$tag&$name&default"};
	$token->[3] = ['name','type','description','default'];
$constructtag=1;	$constructtag=1;
}	}
if ($constructtag) {	if ($constructtag) {
Line 825 sub answer_footer {	Line 827 sub answer_footer {
$result .= join(' & ',@answer_bits);	$result .= join(' & ',@answer_bits);
$result .= ' \\\\ \\hline \end{tabular} \vskip 0 mm ';	$result .= ' \\\\ \\hline \end{tabular} \vskip 0 mm ';
} else {	} else {
$result = '</tr></table>';	if (!$need_row_start) {
	$result .= '</tr>';
	}
	$result .= '</table>';
}	}
return $result;	return $result;
}	}