loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.78, 2003/05/16 20:16:18	version 1.79, 2003/05/23 19:37:33
Line 52 sub start_response {	Line 52 sub start_response {
}	}

sub end_response {	sub end_response {
pop @Apache::inputtags::response;	#pop @Apache::inputtags::response;
@Apache::inputtags::inputlist=();	@Apache::inputtags::inputlist=();
return '';	return '';
}	}
Line 62 sub start_hintresponse {	Line 62 sub start_hintresponse {
my $id= &Apache::lonxml::get_param('id',$parstack,$safeeval);	my $id= &Apache::lonxml::get_param('id',$parstack,$safeeval);
if ($id eq '') { $id = $Apache::lonxml::curdepth; }	if ($id eq '') { $id = $Apache::lonxml::curdepth; }
push (@Apache::inputtags::response,$id);	push (@Apache::inputtags::response,$id);
	push (@Apache::inputtags::responselist,$id);
push (@Apache::inputtags::paramstack,[%Apache::inputtags::params]);	push (@Apache::inputtags::paramstack,[%Apache::inputtags::params]);
return $id;	return $id;
}	}