loncom/homework/imageresponse.pm - diff

Return to imageresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.86, 2007/09/25 23:45:33	version 1.87, 2007/09/25 23:47:59
Line 237 sub displayfoils {	Line 237 sub displayfoils {
} else {	} else {
my $respid=$Apache::inputtags::response['-1'];	my $respid=$Apache::inputtags::response['-1'];
my $token=&prep_image($image,'submission',$name);	my $token=&prep_image($image,'submission',$name);
my $id = "HWVAL_$respid:$temp";	my $input_id = "HWVAL_$respid:$temp";
	my $id = $env{'form.request.prefix'}.$input_id;
$result.='<img onclick="image_response_click(\''.$id.'\',event);"	$result.='<img onclick="image_response_click(\''.$id.'\',event);"
src="/adm/randomlabel.png?token='.$token.'"	src="/adm/randomlabel.png?token='.$token.'"
id="imageresponse_'.$id.'"	id="'.$id.'_imageresponse"
/>'.	/>'.
'<br />'.	'<br />'.
'<input type="hidden" name="token_'.$id.'" value="'.$token.'" />'.	'<input type="hidden" name="'.$input_id.'_token" value="'.$token.'" />'.
'<input type="hidden" name="'.$id.'" value="'.	'<input type="hidden" name="'.$input_id.'" value="'.
join(':',&get_submission($name)).'" />';	join(':',&get_submission($name)).'" />';
}	}
}	}