loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.52, 2001/08/06 18:33:58	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.';';