--- loncom/interface/lonmeta.pm 2005/10/26 23:37:51 1.119 +++ loncom/interface/lonmeta.pm 2005/10/31 21:11:45 1.121 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Metadata display handler # -# $Id: lonmeta.pm,v 1.119 2005/10/26 23:37:51 banghart Exp $ +# $Id: lonmeta.pm,v 1.121 2005/10/31 21:11:45 banghart Exp $ # # Copyright Michigan State University Board of Trustees # @@ -247,7 +247,9 @@ sub fieldnames { 'notes' => 'Notes', 'abstract' => 'Abstract', 'lowestgradelevel' => 'Lowest Grade Level', - 'highestgradelevel' => 'Highest Grade Level'); + 'highestgradelevel' => 'Highest Grade Level', + 'courserestricted' => 'Course Restricting Metadata'); + if (! defined($file_type) || $file_type ne 'portfolio') { %fields = (%fields, @@ -313,7 +315,8 @@ sub select_course { $r->print('Select your course
'); $r->print(''); + } if ($type eq 'authorspace') { } if ($type eq 'modifyinguser') { @@ -1050,7 +1056,7 @@ ENDEDIT my @fields; if ($file_type eq 'portfolio') { @fields = ('author','title','subject','keywords','abstract','notes','lowestgradelevel', - 'highestgradelevel'); + 'highestgradelevel','courserestricted'); } else { @fields = ('author','title','subject','keywords','abstract','notes', 'copyright','customdistributionfile','language', @@ -1058,24 +1064,37 @@ ENDEDIT 'lowestgradelevel','highestgradelevel','sourceavail','sourcerights', 'obsolete','obsoletereplacement'); } + my $metacourse; + if ($env{'form.metacourse'} ) { + $Apache::lonpublisher::metadatafields{'courserestricted'} = $env{'form.metacourse'}; + $metacourse = $env{'form.metacourse'}; + } else { + if (! $Apache::lonpublisher::metadatafields{'courserestricted'}) { + $Apache::lonpublisher::metadatafields{'courserestricted'}= + 'none'; + $metacourse = 'none'; + } else { + $metacourse = $Apache::lonpublisher::metadatafields{'courserestricted'}; + } + } + if (! $Apache::lonpublisher::metadatafields{'copyright'}) { + $Apache::lonpublisher::metadatafields{'copyright'}= + 'default'; + } + &Apache::lonnet::logthis($metacourse.' is the restriction'); foreach (@fields) { if (defined($env{'form.new_'.$_})) { $Apache::lonpublisher::metadatafields{$_}= $env{'form.new_'.$_}; } - if (! $Apache::lonpublisher::metadatafields{'copyright'}) { - $Apache::lonpublisher::metadatafields{'copyright'}= - 'default'; - } - if ($env{'form.metacourse'}) { + if ($metacourse ne 'none') { # handle restrictions here - $env{'form.metacourse'} =~ m/(^.+)\.description$/; - my $key_base = $1; - if ($env{$key_base.'.metadata.'.$_.'.options'} =~ m/active/) { + if (($env{$metacourse.'.metadata.'.$_.'.options'} =~ m/active/)|| + ($_ eq 'courserestricted')) { $output.=('

'.$lt{$_}.': '. &prettyinput($_, $Apache::lonpublisher::metadatafields{$_}, - 'new_'.$_,'defaultmeta',undef,undef,undef,undef,$key_base).'

'); + 'new_'.$_,'defaultmeta',undef,undef,undef,undef,$metacourse).'

'); } } else { $output.=('

'.$lt{$_}.': '.