loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.135, 2006/01/21 08:17:51	version 1.136, 2006/03/08 22:16:28
Line 37 BEGIN {	Line 37 BEGIN {

sub start_response {	sub start_response {
my ($parstack,$safeeval)=@_;	my ($parstack,$safeeval)=@_;
my $id= &Apache::lonxml::get_param('id',$parstack,$safeeval);	my $id = &Apache::lonxml::get_id($parstack,$safeeval);
if ($id eq '') { $id = $Apache::lonxml::curdepth; }
if ($#Apache::inputtags::import > -1) {	if ($#Apache::inputtags::import > -1) {
&Apache::lonxml::debug("Turning :$id: into");	&Apache::lonxml::debug("Turning :$id: into");
$id = join('_',@Apache::inputtags::import).'_'.$id;	$id = join('_',@Apache::inputtags::import).'_'.$id;
Line 69 sub end_response {	Line 68 sub end_response {

sub start_hintresponse {	sub start_hintresponse {
my ($parstack,$safeeval)=@_;	my ($parstack,$safeeval)=@_;
my $id= &Apache::lonxml::get_param('id',$parstack,$safeeval);	my $id = &Apache::lonxml::get_id($parstack,$safeeval);
if ($id eq '') { $id = $Apache::lonxml::curdepth; }
push (@Apache::inputtags::hint,$id);	push (@Apache::inputtags::hint,$id);
push (@Apache::inputtags::hintlist,$id);	push (@Apache::inputtags::hintlist,$id);
push (@Apache::inputtags::paramstack,[%Apache::inputtags::params]);	push (@Apache::inputtags::paramstack,[%Apache::inputtags::params]);