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 {
|
Line 1920 sub csv_samples_select_table {
|
$i--; |
$i--; |
return($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; |
1; |
__END__; |
__END__; |
|
|