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.';'; |