version 1.194, 2007/01/12 19:56:07
|
version 1.195, 2007/01/12 20:04:16
|
Line 1203 ENDEDIT
|
Line 1203 ENDEDIT
|
my @fields; |
my @fields; |
my $added_metadata_fields; |
my $added_metadata_fields; |
my @added_order; |
my @added_order; |
|
if ($file_type eq 'groups') { |
|
$Apache::lonpublisher::metadatafields{'courserestricted'}= |
|
'course.'.$env{'request.course.id'}; |
|
} |
|
if ((! $Apache::lonpublisher::metadatafields{'courserestricted'}) && |
|
(! $env{'form.new_courserestricted'}) && (! $file_type eq 'groups')) { |
|
$Apache::lonpublisher::metadatafields{'courserestricted'}= |
|
'none'; |
|
} elsif ($env{'form.new_courserestricted'}) { |
|
$Apache::lonpublisher::metadatafields{'courserestricted'}= |
|
$env{'form.new_courserestricted'}; |
|
} |
if ($file_type eq 'portfolio' || $file_type eq 'groups') { |
if ($file_type eq 'portfolio' || $file_type eq 'groups') { |
if(exists ($env{$Apache::lonpublisher::metadatafields{'courserestricted'}.'.metadata.fieldlist'})) { |
if(exists ($env{$Apache::lonpublisher::metadatafields{'courserestricted'}.'.metadata.fieldlist'})) { |
# retrieve fieldnames (in order) from the course restricted list |
# retrieve fieldnames (in order) from the course restricted list |
Line 1212 ENDEDIT
|
Line 1224 ENDEDIT
|
@fields = ('author','title','subject','keywords','abstract', |
@fields = ('author','title','subject','keywords','abstract', |
'notes','lowestgradelevel', |
'notes','lowestgradelevel', |
'highestgradelevel','standards'); |
'highestgradelevel','standards'); |
$added_metadata_fields = &Apache::lonparmset::get_added_meta_fieldnames(); |
if ($Apache::lonpublisher::metadatafields{'courserestricted'} =~ /^course\.($match_domain\_$match_courseid)$/) { |
if ($env{'course.'.$env{'request.course.id'}.'.metadata.addedorder'}) { |
my $assoc_crs = $1; |
@added_order = split(/,/,$env{'course.'.$env{'request.course.id'}.'.metadata.addedorder'}); |
$added_metadata_fields = &Apache::lonparmset::get_added_meta_fieldnames($assoc_crs); |
} |
if ($env{'course.'.$assoc_crs.'.metadata.addedorder'}) { |
$env{$Apache::lonpublisher::metadatafields{'courserestricted'}.'.metadata.fieldlist'} = join(",",@fields); |
@added_order = split(/,/,$env{'course.'.$assoc_crs.'.metadata.addedorder'}); |
|
} |
|
$env{$Apache::lonpublisher::metadatafields{'courserestricted'}.'.metadata.fieldlist'} = join(",",@fields); |
|
} |
} |
} |
} else { |
} else { |
@fields = ('author','title','subject','keywords','abstract','notes', |
@fields = ('author','title','subject','keywords','abstract','notes', |
Line 1225 ENDEDIT
|
Line 1240 ENDEDIT
|
'lowestgradelevel','highestgradelevel','sourceavail','sourcerights', |
'lowestgradelevel','highestgradelevel','sourceavail','sourcerights', |
'obsolete','obsoletereplacement'); |
'obsolete','obsoletereplacement'); |
} |
} |
if ($file_type eq 'groups') { |
|
$Apache::lonpublisher::metadatafields{'courserestricted'}= |
|
'course.'.$env{'request.course.id'}; |
|
} |
|
if ((! $Apache::lonpublisher::metadatafields{'courserestricted'}) && |
|
(! $env{'form.new_courserestricted'}) && (! $file_type eq 'groups')) { |
|
$Apache::lonpublisher::metadatafields{'courserestricted'}= |
|
'none'; |
|
} elsif ($env{'form.new_courserestricted'}) { |
|
$Apache::lonpublisher::metadatafields{'courserestricted'}= |
|
$env{'form.new_courserestricted'}; |
|
} |
|
if (! $Apache::lonpublisher::metadatafields{'copyright'}) { |
if (! $Apache::lonpublisher::metadatafields{'copyright'}) { |
$Apache::lonpublisher::metadatafields{'copyright'}= |
$Apache::lonpublisher::metadatafields{'copyright'}= |
'default'; |
'default'; |