[LON-CAPA-cvs] cvs: loncom /homework outputtags.pm

[albertel]

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;