loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.99, 2004/05/27 04:25:13	version 1.101, 2004/08/29 07:49:35
Line 46 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 '') {	if ($Apache::inputtags::part eq '' &&
	!$Apache::lonhomework::ignore_response_errors) {
&Apache::lonxml::error(&HTML::Entities::encode(&mt("Found a <*response> outside of a <part> in a <part>ed problem"),'<>&"'));	&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 &&	if ($Apache::inputtags::response_with_no_part &&
Line 220 sub meta_part_order {	Line 221 sub meta_part_order {
if (@Apache::inputtags::partlist) {	if (@Apache::inputtags::partlist) {
my @parts=@Apache::inputtags::partlist;	my @parts=@Apache::inputtags::partlist;
shift(@parts);	shift(@parts);
return '<partorder>'.join(',',@parts).'</partorder>';	return '<partorder>'.join(',',@parts).'</partorder>'."\n";
} else {	} else {
return '<partorder>0</partorder>';	return '<partorder>0</partorder>'."\n";
	}
	}

	sub meta_response_order {
	if (@Apache::inputtags::responselist) {
	return '<responseorder>'.join(',',@Apache::inputtags::responselist).
	'</responseorder>'."\n";
}	}
}	}