loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.543, 2015/12/10 16:26:43	version 1.545, 2016/04/02 04:16:19
Line 1286 sub store_aggregates {	Line 1286 sub store_aggregates {
} else {	} else {
$anoncounter{$symb."\0".$part} = 1;	$anoncounter{$symb."\0".$part} = 1;
}	}
my $needsrelease = $Apache::lonnet::needsrelease{'parameter:type:'.$Apache::lonhomework::results{'resource.'.$part.'.type'}.':'};	my $needsrelease = $Apache::lonnet::needsrelease{'parameter:type:'.$Apache::lonhomework::results{'resource.'.$part.'.type'}.'::'};
if ($needsrelease) {	if ($needsrelease) {
my $curr_required = $env{'course.'.$env{'request.course.id'}.'.internal.releaserequired'};	my $curr_required = $env{'course.'.$env{'request.course.id'}.'.internal.releaserequired'};
if ($curr_required eq '') {	if ($curr_required eq '') {
Line 1731 sub start_problem {	Line 1731 sub start_problem {
'<input type="hidden" name="submitted" value="yes" />';	'<input type="hidden" name="submitted" value="yes" />';
# create a page header and exit	# create a page header and exit
if ($env{'request.state'} eq "construct") {	if ($env{'request.state'} eq "construct") {
unless ($env{'form.inhibitmenu'} eq 'yes') {	if ($env{'form.inhibitmenu'} eq 'yes') {
	# error messages can be useful in any case
	$result.= &Apache::lonxml::message_location();
	} else {
$result.= &problem_web_to_edit_header($env{'form.rndseed'});	$result.= &problem_web_to_edit_header($env{'form.rndseed'});
}	}
if ($Apache::lonhomework::type eq 'practice') {	if ($Apache::lonhomework::type eq 'practice') {