loncom/homework/radiobuttonresponse.pm - diff

Return to radiobuttonresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/radiobuttonresponse.pm between versions 1.156 and 1.158

version 1.156, 2013/04/25 17:58:32	version 1.158, 2015/01/19 15:35:53
Line 80 sub start_radiobuttonresponse {	Line 80 sub start_radiobuttonresponse {
$result=&Apache::response::meta_package_write('radiobuttonresponse');	$result=&Apache::response::meta_package_write('radiobuttonresponse');
} elsif ($target eq 'edit' ) {	} elsif ($target eq 'edit' ) {
$result.=&Apache::edit::start_table($token)	$result.=&Apache::edit::start_table($token)
.'<tr><td>'.&Apache::lonxml::description($token)	.'<tr><td>'.&Apache::loncommon::insert_folding_button()
	.&Apache::lonxml::description($token)
.&Apache::loncommon::help_open_topic('Radio_Response_Problems')	.&Apache::loncommon::help_open_topic('Radio_Response_Problems')
.'</td>'	.'</td>'
.'<td><span class="LC_nobreak">'.&mt('Delete?').' '	.'<td><span class="LC_nobreak">'.&mt('Delete?').' '
Line 376 sub get_last_survey_response {	Line 377 sub get_last_survey_response {
}	}
}	}
$showanswer = &Apache::response::show_answer();	$showanswer = &Apache::response::show_answer();
unless (	unless ($newvariation && !$showanswer) {
(	if ((($env{'form.grade_username'} eq '') && ($env{'form.grade_domain'} eq '')) \|\|
(	(($env{'form.grade_username'} eq $env{'user.name'}) &&
$Apache::lonhomework::history{"resource.$part.type"} eq	($env{'form.grade_domain'} eq $env{'user.domain'}))) {
'anonsurvey'	$lastresponse = $Apache::lonhomework::history{"resource.$part.$id.submission"};
)	} else {
\|\| ( $Apache::lonhomework::history{"resource.$part.type"} eq	unless (($Apache::lonhomework::history{"resource.$part.type"} eq 'anonsurvey') \|\|
'anonsurveycred' )	($Apache::lonhomework::history{"resource.$part.type"} eq 'anonsurveycred')) {
)	$lastresponse = $Apache::lonhomework::history{"resource.$part.$id.submission"};
&& ( defined( $env{'form.grade_symb'} ) )	}
\|\| ( $newvariation && !$showanswer )	}
)
{
$lastresponse =
$Apache::lonhomework::history{"resource.$part.$id.submission"};
}	}
my %lastresponse = &Apache::lonnet::str2hash($lastresponse);	my %lastresponse = &Apache::lonnet::str2hash($lastresponse);


return \%lastresponse;	return \%lastresponse;

Line 874 sub get_last_response {	Line 870 sub get_last_response {
}	}
}	}
unless ($newvariation) {	unless ($newvariation) {
$lastresponse =	if ((($env{'form.grade_username'} eq '') && ($env{'form.grade_domain'} eq '')) \|\|
$Apache::lonhomework::history{"resource.$part.$id.submission"};	(($env{'form.grade_username'} eq $env{'user.name'}) &&
	($env{'form.grade_domain'} eq $env{'user.domain'}))) {
	$lastresponse =
	$Apache::lonhomework::history{"resource.$part.$id.submission"};
	} else {
	unless (($Apache::lonhomework::history{"resource.$part.type"} eq 'anonsurvey') \|\|
	($Apache::lonhomework::history{"resource.$part.type"} eq 'anonsurveycred')) {
	$lastresponse =
	$Apache::lonhomework::history{"resource.$part.$id.submission"};

	}
	}
}	}

my %lastresponse = &Apache::lonnet::str2hash($lastresponse);	my %lastresponse = &Apache::lonnet::str2hash($lastresponse);

return \%lastresponse;	return \%lastresponse;

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.156
changed lines
	Added in v.1.158