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; |