loncom/homework/outputtags.pm - diff

Return to outputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.44, 2005/11/09 12:05:56	version 1.45, 2005/12/12 22:10:32
Line 169 sub end_displaytitle {	Line 169 sub end_displaytitle {
sub multipart {	sub multipart {
my ($uri)=@_;	my ($uri)=@_;
if (!defined($uri)) { $uri=$env{'request.uri'}; }	if (!defined($uri)) { $uri=$env{'request.uri'}; }
	my ($symb)=&Apache::lonxml::whichuser();

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