loncom/homework/essayresponse.pm - diff

Return to essayresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.103, 2010/04/19 04:02:37	version 1.104, 2010/04/19 04:20:25
Line 41 BEGIN {	Line 41 BEGIN {
sub start_essayresponse {	sub start_essayresponse {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
my $result;	my $result;
	print STDERR "target is $target AND status is ".$Apache::inputtags::status[-1]." AND ".
	" type is ".$Apache::lonhomework::type."\n";
my $id = &Apache::response::start_response($parstack,$safeeval);	my $id = &Apache::response::start_response($parstack,$safeeval);
if ($target eq 'meta') {	if ($target eq 'meta') {
$result=&Apache::response::meta_package_write('essayresponse');	$result=&Apache::response::meta_package_write('essayresponse');
Line 64 sub start_essayresponse {	Line 66 sub start_essayresponse {
$result.='<br /><table border="1">';	$result.='<br /><table border="1">';
if (($Apache::lonhomework::type ne 'survey') &&	if (($Apache::lonhomework::type ne 'survey') &&
($Apache::lonhomework::type ne 'surveycred') &&	($Apache::lonhomework::type ne 'surveycred') &&
($Apache::lonhomework::type eq 'anonsurvey') &&	($Apache::lonhomework::type ne 'anonsurvey') &&
($Apache::lonhomework::type ne 'anonsurveycred')) {	($Apache::lonhomework::type ne 'anonsurveycred')) {
$result.= '<tr><td>'.	$result.= '<tr><td>'.
'<label>'.	'<label>'.