loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.51, 2001/08/03 22:12:07	version 1.53, 2001/08/16 21:06:22
Line 71 sub start_problem {	Line 71 sub start_problem {
$Apache::lonhomework::type=&Apache::lonnet::EXT('resource.0.type');	$Apache::lonhomework::type=&Apache::lonnet::EXT('resource.0.type');
&Apache::lonxml::debug("Found this to be of type :$Apache::lonhomework::type:");	&Apache::lonxml::debug("Found this to be of type :$Apache::lonhomework::type:");
if ($Apache::lonhomework::type eq '') {	if ($Apache::lonhomework::type eq '') {
$Apache::lonhomework::type='homework';	my $uri=$ENV{'request.uri'};
	if ($uri=~/\.(\w+)$/) {
	$Apache::lonhomework::type=$1;
	&Apache::lonxml::debug("Using type of $1");
	} else {
	$Apache::lonhomework::type='problem';
	&Apache::lonxml::debug("Using default type, problem, :$uri:");
	}
}	}
#adeed vars to the scripting enviroment	#adeed vars to the scripting enviroment
my $expression='$external::part='.$Apache::inputtags::part.';';	my $expression='$external::part='.$Apache::inputtags::part.';';
Line 305 sub start_randomlist {	Line 312 sub start_randomlist {
sub shuffle {	sub shuffle {
my $a=shift;	my $a=shift;
my $i;	my $i;
	&Apache::response::setrandomnumber();
for($i=@$a;--$i;) {	for($i=@$a;--$i;) {
my $j=int rand($i+1);	my $j=int rand($i+1);
next if $i == $j;	next if $i == $j;