--- loncom/interface/loncommon.pm	2003/02/24 23:32:32	1.83
+++ loncom/interface/loncommon.pm	2003/02/25 21:49:45	1.84
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.83 2003/02/24 23:32:32 albertel Exp $
+# $Id: loncommon.pm,v 1.84 2003/02/25 21:49:45 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1920,6 +1920,21 @@ sub csv_samples_select_table {
     $i--;
     return($i);
 }
+
+
+sub check_if_partid_hidden {
+    my ($id,$symb,$udom,$uname) = @_;
+    my $hiddenparts=&Apache::lonnet::EXT('resource.0.parameter_hiddenparts',
+					 $symb,$udom,$uname);
+    my @hiddenlist=split(/,/,$hiddenparts);
+    foreach my $checkid (@hiddenlist) {
+	if ($checkid =~ /^\s*\Q$id\E\s*$/) { return 1; }
+    }
+    return undef;
+}
+
+
+
 1;
 __END__;