loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.83, 2003/02/24 23:32:32
+version 1.84, 2003/02/25 21:49:45
  Line 1920  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;
+ }
 ;
  __END__;