loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.91, 2004/02/16 20:09:51	version 1.93, 2004/03/08 22:59:12
Line 28	Line 28

package Apache::response;	package Apache::response;
use strict;	use strict;
	use Apache::lonlocal;

BEGIN {	BEGIN {
&Apache::lonxml::register('Apache::response',('responseparam','parameter','dataresponse'));	&Apache::lonxml::register('Apache::response',('responseparam','parameter','dataresponse'));
Line 45 sub start_response {	Line 46 sub start_response {
push (@Apache::inputtags::response,$id);	push (@Apache::inputtags::response,$id);
push (@Apache::inputtags::responselist,$id);	push (@Apache::inputtags::responselist,$id);
@Apache::inputtags::inputlist=();	@Apache::inputtags::inputlist=();
	if ($Apache::inputtags::part eq '') {
	&Apache::lonxml::error(&HTML::Entities::encode(&mt("Found a <*response> outside of a <part> in a <part>ed problem")));
	}
	if ($Apache::inputtags::response_with_no_part &&
	$Apache::inputtags::part ne '0') {
	&Apache::lonxml::error(&HTML::Entities::encode(&mt("<*response>s are both inside of <part> and outside of <part>, this is not a valid problem, errors in grading may occur.")).'<br />');
	}
	if ($Apache::inputtags::part eq '0') {
	$Apache::inputtags::response_with_no_part=1;
	}
return $id;	return $id;
}	}