loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.140, 2003/10/30 13:57:06	version 1.141, 2003/11/03 21:29:23
Line 2672 sub check_if_partid_hidden {	Line 2672 sub check_if_partid_hidden {
my ($id,$symb,$udom,$uname) = @_;	my ($id,$symb,$udom,$uname) = @_;
my $hiddenparts=&Apache::lonnet::EXT('resource.0.hiddenparts',	my $hiddenparts=&Apache::lonnet::EXT('resource.0.hiddenparts',
$symb,$udom,$uname);	$symb,$udom,$uname);
	my $truth=1;
	#if the string starts with !, then the list is the list to show not hide
	if ($hiddenparts=~s/^\s*!//) { $truth=undef; }
my @hiddenlist=split(/,/,$hiddenparts);	my @hiddenlist=split(/,/,$hiddenparts);
foreach my $checkid (@hiddenlist) {	foreach my $checkid (@hiddenlist) {
if ($checkid =~ /^\s\Q$id\E\s$/) { return 1; }	if ($checkid =~ /^\s\Q$id\E\s$/) { return $truth; }
}	}
return undef;	return !$truth;
}	}