loncom/homework/outputtags.pm - diff

Return to outputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/outputtags.pm between versions 1.27 and 1.30

version 1.27, 2003/05/02 19:10:43	version 1.30, 2003/07/01 21:10:43
Line 109 sub end_displaytitle {	Line 109 sub end_displaytitle {
return @result;	return @result;
}	}

	sub multipart {
	my ($uri)=@_;
	if (!defined($uri)) { $uri=$ENV{'request.uri'}; }
	my @parts;
	my $metadata = &Apache::lonnet::metadata($uri,'packages');
	foreach (split(/\,/,$metadata)) {
	if ($_ =~ /^part_(.*)$/) {
	my $part = $1;
	if ($part ne '0') { push(@parts,$part); }
	}
	}
	return @parts;
	}

sub start_displayweight {	sub start_displayweight {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
my $result;	my $result;
Line 128 sub start_displayweight {	Line 142 sub start_displayweight {
if (!defined($weight) \|\| ($weight eq '')) { $weight=1; }	if (!defined($weight) \|\| ($weight eq '')) { $weight=1; }
$result.=$weight;	$result.=$weight;
} else {	} else {
my $metadata = &Apache::lonnet::metadata($ENV{'request.uri'},	my @parts=&multipart($ENV{'request.uri'});
'packages');
&Apache::lonxml::debug("metadata for $ENV{'request.uri'} is $metadata");
my $weight;	my $weight;
foreach (split(/\,/,$metadata)) {	if (@parts) {
if ($_ =~ /^part_(.*)$/) {	foreach my $part (@parts) {
my $part = $1;
my $pweight=&Apache::lonnet::EXT("resource.$part.weight");	my $pweight=&Apache::lonnet::EXT("resource.$part.weight");
if (!defined($pweight) \|\| ($pweight eq '')) { $pweight=1; }	if (!defined($pweight) \|\| ($pweight eq '')) { $pweight=1; }
$weight+=$pweight;	$weight+=$pweight;
}	}
	} else {
	$weight = &Apache::lonnet::EXT("resource.$id.weight");
	if (!defined($weight) \|\| ($weight eq '')) { $weight=1; }
}	}
$result=$weight;	$result=$weight;
}	}

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.27
changed lines
	Added in v.1.30