version 1.204, 2003/08/13 18:19:59
|
version 1.205, 2003/08/13 18:49:41
|
Line 140 sub get_resource_name {
|
Line 140 sub get_resource_name {
|
} |
} |
if ($name!~/\S+/) { |
if ($name!~/\S+/) { |
$name=$ENV{'request.uri'}; |
$name=$ENV{'request.uri'}; |
$name=~s-/([^/]+)$-$1-; |
$name=~s-.*/([^/]+)$-$1-; |
} |
} |
$Apache::lonhomework::name=$name; |
$Apache::lonhomework::name=$name; |
return $name; |
return $name; |
Line 443 sub start_problem {
|
Line 443 sub start_problem {
|
if (not $ENV{'form.problem_split'}=~/yes/) { |
if (not $ENV{'form.problem_split'}=~/yes/) { |
$startminipage = '\begin{minipage}{\textwidth}'; |
$startminipage = '\begin{minipage}{\textwidth}'; |
} |
} |
my $name= &Apache::lonxml::get_param('name',$parstack,$safeeval); |
|
if ($name eq '') { |
|
$name=&Apache::lonnet::EXT('resource.title'); |
|
if ($name eq 'con_lost') { $name = ''; } |
|
} |
|
$Apache::lonhomework::name=$name; |
|
my $id = $Apache::inputtags::part; |
my $id = $Apache::inputtags::part; |
my $weight = &Apache::lonnet::EXT("resource.$id.weight"); |
my $weight = &Apache::lonnet::EXT("resource.$id.weight"); |
my $allkeys=&Apache::lonnet::metadata($ENV{'request.uri'},'keys'); |
my $allkeys=&Apache::lonnet::metadata($ENV{'request.uri'},'keys'); |