[LON-CAPA-cvs] cvs: loncom /homework outputtags.pm
albertel
lon-capa-cvs@mail.lon-capa.org
Mon, 12 Dec 2005 22:10:34 -0000
albertel Mon Dec 12 17:10:34 2005 EDT
Modified files:
/loncom/homework outputtags.pm
Log:
multipart should not return hidden parts
- BUG#4042
Index: loncom/homework/outputtags.pm
diff -u loncom/homework/outputtags.pm:1.44 loncom/homework/outputtags.pm:1.45
--- loncom/homework/outputtags.pm:1.44 Wed Nov 9 07:05:56 2005
+++ loncom/homework/outputtags.pm Mon Dec 12 17:10:32 2005
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# tags that create controlled output
#
-# $Id: outputtags.pm,v 1.44 2005/11/09 12:05:56 foxr Exp $
+# $Id: outputtags.pm,v 1.45 2005/12/12 22:10:32 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -169,12 +169,18 @@
sub multipart {
my ($uri)=@_;
if (!defined($uri)) { $uri=$env{'request.uri'}; }
+ my ($symb)=&Apache::lonxml::whichuser();
+
my @parts;
my $metadata = &Apache::lonnet::metadata($uri,'packages');
foreach (split(/\,/,$metadata)) {
if ($_ =~ /^part_(.*)$/) {
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;