version 1.244, 2005/04/07 06:59:55
|
version 1.246, 2005/06/27 22:01:46
|
Line 860 ENDHEADER
|
Line 860 ENDHEADER
|
'abstract' => 1, |
'abstract' => 1, |
'standards'=> 1, |
'standards'=> 1, |
'mime' => 1, |
'mime' => 1, |
|
'subject' => 1, |
); |
); |
# |
# |
foreach my $field ('title','author','owner','authorspace','modifyinguser', |
foreach my $field ('title','author','subject','owner','authorspace', |
'keywords','notes','abstract','standards','mime') { |
'modifyinguser','keywords','notes','abstract', |
|
'standards','mime') { |
$scrout.='<tr><td align="right">'.&titlefield($fields{$field}).'</td><td>'. |
$scrout.='<tr><td align="right">'.&titlefield($fields{$field}).'</td><td>'. |
&Apache::lonmeta::prettyinput($field, |
&Apache::lonmeta::prettyinput($field, |
$env{'form.'.$field}, |
$env{'form.'.$field}, |
Line 1557 sub parse_domain_restrictions {
|
Line 1559 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; |