loncom/interface/lonsearchcat.pm - diff

Return to lonsearchcat.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.244, 2005/04/07 06:59:55	version 1.245, 2005/04/07 07:34:52
Line 1557 sub parse_domain_restrictions {	Line 1557 sub parse_domain_restrictions {
if (! exists($env{'form.domains'}) \|\| $env{'form.domains'} eq '') {	if (! exists($env{'form.domains'}) \|\| $env{'form.domains'} eq '') {
return (undef,'',undef);	return (undef,'',undef);
}	}
my @allowed_domains;	my @allowed_domains = &Apache::loncommon::get_env_multiple('form.domains');
if (ref($env{'form.domains'})) {
@allowed_domains = @{$env{'form.domains'}};
} else {
@allowed_domains = ($env{'form.domains'});
}
#	#
my %domain_hash = ();	my %domain_hash = ();
my $pretty_domains_string;	my $pretty_domains_string;