loncom/homework/outputtags.pm - diff

Return to outputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.29, 2003/05/03 21:09:03	version 1.30, 2003/07/01 21:10:43
Line 144 sub start_displayweight {	Line 144 sub start_displayweight {
} else {	} else {
my @parts=&multipart($ENV{'request.uri'});	my @parts=&multipart($ENV{'request.uri'});
my $weight;	my $weight;
foreach my $part (@parts) {	if (@parts) {
my $pweight=&Apache::lonnet::EXT("resource.$part.weight");	foreach my $part (@parts) {
if (!defined($pweight) \|\| ($pweight eq '')) { $pweight=1; }	my $pweight=&Apache::lonnet::EXT("resource.$part.weight");
$weight+=$pweight;	if (!defined($pweight) \|\| ($pweight eq '')) { $pweight=1; }
	$weight+=$pweight;
	}
	} else {
	$weight = &Apache::lonnet::EXT("resource.$id.weight");
	if (!defined($weight) \|\| ($weight eq '')) { $weight=1; }
}	}
$result=$weight;	$result=$weight;
}	}