version 1.180, 2006/09/29 18:11:49
|
version 1.181, 2006/10/06 19:04:29
|
Line 1246 ENDEDIT
|
Line 1246 ENDEDIT
|
} |
} |
} |
} |
foreach my $field_name(keys (%$added_metadata_fields)) { |
foreach my $field_name(keys (%$added_metadata_fields)) { |
|
|
push (@fields,$field_name); |
push (@fields,$field_name); |
$lt{$field_name} = $$added_metadata_fields{$field_name}; |
$lt{$field_name} = $$added_metadata_fields{$field_name}; |
} |
} |
Line 1257 ENDEDIT
|
Line 1258 ENDEDIT
|
if ($Apache::lonpublisher::metadatafields{'courserestricted'} ne 'none' |
if ($Apache::lonpublisher::metadatafields{'courserestricted'} ne 'none' |
&& exists($env{$Apache::lonpublisher::metadatafields{'courserestricted'}.'.metadata.'.$field_name.'.options'})) { |
&& exists($env{$Apache::lonpublisher::metadatafields{'courserestricted'}.'.metadata.'.$field_name.'.options'})) { |
# handle restrictions here |
# handle restrictions here |
if (($env{$Apache::lonpublisher::metadatafields{'courserestricted'}.'.metadata.'.$field_name.'.options'} =~ m/active/) || |
if ($env{$Apache::lonpublisher::metadatafields{'courserestricted'}.'.metadata.'.$field_name.'.options'} =~ m/deleted/) { |
($field_name eq 'courserestricted')){ |
&Apache::lonnet::logthis("the options field ".$env{$Apache::lonpublisher::metadatafields{'courserestricted'}.'.metadata.'.$field_name.'.options'}); |
|
} |
|
if ((($env{$Apache::lonpublisher::metadatafields{'courserestricted'}.'.metadata.'.$field_name.'.options'} =~ m/active/) || |
|
($field_name eq 'courserestricted'))&& |
|
(!($env{$Apache::lonpublisher::metadatafields{'courserestricted'}.'.metadata.'.$field_name.'.options'} =~ m/deleted/))){ |
$output.=("\n".'<p>'.$lt{$field_name}.': '. |
$output.=("\n".'<p>'.$lt{$field_name}.': '. |
&prettyinput($field_name, |
&prettyinput($field_name, |
$Apache::lonpublisher::metadatafields{$field_name}, |
$Apache::lonpublisher::metadatafields{$field_name}, |