loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

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