loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.273, 2007/08/31 19:32:57	version 1.276, 2007/10/08 09:22:50
Line 63 BEGIN {	Line 63 BEGIN {
}	}


	=pod

	=item set_bubble_lines()

	Called at analysis time to set the bubble lines
	hash for the problem.. This should be called in the
	end_problemtype tag in analysis mode.

	We fetch the hash of part id counters from lonxml
	and push them into analyze:{part_id.bubble_lines}.

	=cut

	sub set_bubble_lines {
	my %bubble_counters = &Apache::lonxml::get_bubble_line_hash();

	foreach my $key (keys(%bubble_counters)) {
	$Apache::lonhomework::analyze{"$key.bubble_lines"} =
	$bubble_counters{"$key"};
	}
	}

#	#
# Decides what targets to render for.	# Decides what targets to render for.
# Implicit inputs:	# Implicit inputs:
Line 436 sub check_access {	Line 458 sub check_access {
$date = &mt("an indeterminate date"); $passed = 0;	$date = &mt("an indeterminate date"); $passed = 0;
} else {	} else {
if (time < $date) { $passed = 0; } else { $passed = 1; }	if (time < $date) { $passed = 0; } else { $passed = 1; }
$date = localtime $date;	$date = &Apache::lonlocal::locallocaltime($date);
}	}
if (!$passed) { $type=$temp; last; }	if (!$passed) { $type=$temp; last; }
}	}
Line 788 sub analyze {	Line 810 sub analyze {
$i++;	$i++;
}	}
}	}
	if (!keys(%{ $analyze{$part.'.answer'} })) {
	my $answer_part =
	['<span class="LC_error">'.&mt('Error').'</span>'];
	$seedexample{join("\0",$part,0,@{$answer_part})}=
	$thisseed;
	push( @{ $overall{$part.'.answer'}[0] },
	$answer_part);
	}
}	}
}	}
}	}