--- loncom/interface/lonmeta.pm 2005/10/17 21:36:44 1.113 +++ loncom/interface/lonmeta.pm 2005/10/19 21:53:16 1.114 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Metadata display handler # -# $Id: lonmeta.pm,v 1.113 2005/10/17 21:36:44 banghart Exp $ +# $Id: lonmeta.pm,v 1.114 2005/10/19 21:53:16 banghart Exp $ # # Copyright Michigan State University Board of Trustees # @@ -238,6 +238,18 @@ sub diffgraph { sub fieldnames { my $file_type=shift; my %fields; + %fields = + (%fields, + 'title' => 'Title', + 'author' =>'Author(s)', + 'authorspace' => 'Author Space', + 'modifyinguser' => 'Last Modifying User', + 'subject' => 'Subject', + 'keywords' => 'Keyword(s)', + 'notes' => 'Notes', + 'abstract' => 'Abstract', + 'lowestgradelevel' => 'Lowest Grade Level', + 'highestgradelevel' => 'Highest Grade Level'); if ($file_type eq 'portfolio') { %fields = (%fields, @@ -1021,12 +1033,18 @@ ENDEDIT $r->print(''); + if (($file_type eq 'portfolio') && $env{'form.metacourse'}) { + $file_type = 'restrictedportfolio'; + } my %lt=&fieldnames($file_type); my $output; my @fields; if ($file_type eq 'portfolio') { @fields = ('author','title','subject','keywords','abstract','notes','lowestgradelevel', 'highestgradelevel'); + } elsif ($file_type eq 'restrictedportfolio') { + @fields = ('metadata.author','metadata.title','metadata.subject','metadata.keywords','metadata.abstract','metadata.notes','metadata.lowestgradelevel', + 'metadata.highestgradelevel'); } else { @fields = ('author','title','subject','keywords','abstract','notes', 'copyright','customdistributionfile','language', @@ -1047,37 +1065,7 @@ ENDEDIT &prettyinput($_, $Apache::lonpublisher::metadatafields{$_}, 'new_'.$_,'defaultmeta').'
'); - if ($env{'form.metacourse'}) { - $r->print('This is the instructor metadata area