--- loncom/interface/lonmeta.pm 2003/12/29 19:01:27 1.47 +++ loncom/interface/lonmeta.pm 2003/12/29 21:17:00 1.48 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Metadata display handler # -# $Id: lonmeta.pm,v 1.47 2003/12/29 19:01:27 www Exp $ +# $Id: lonmeta.pm,v 1.48 2003/12/29 21:17:00 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -283,6 +283,11 @@ sub prettyprint { $value=~s/(\w+)(\:|\@)(\w+)/&authordisplay($1,$3)/gse; return $value; } +# Gradelevel + if (($type eq 'lowestgradelevel') || + ($type eq 'highestgradelevel')) { + return &Apache::loncommon::gradeleveldescription($value); + } # Only for advance users below unless ($ENV{'user.adv'}) { return '- '.&mt('not displayed').' -' }; # File @@ -322,8 +327,72 @@ sub prettyprint { } # ============================================== Pretty input of metadata field +sub selectbox { + my ($name,$value,$functionref,@idlist)=@_; + my $selout=''; +} + + sub prettyinput { - my ($type,$value,$fieldname)=@_; + my ($type,$value,$fieldname,$formname)=@_; +# Language + if ($type eq 'language') { + return &selectbox($fieldname, + $value, + \&Apache::loncommon::languagedescription, + (&Apache::loncommon::languageids)); + } +# Copyright + if ($type eq 'copyright') { + return &selectbox($fieldname, + $value, + \&Apache::loncommon::copyrightdescription, + (&Apache::loncommon::copyrightids)); + } +# Gradelevels + if (($type eq 'lowestgradelevel') || + ($type eq 'highestgradelevel')) { + return &Apache::loncommon::select_level_form($value,$fieldname); + } +# Obsolete + if ($type eq 'obsolete') { + return ''; + } +# Obsolete replacement file + if ($type eq 'obsoletereplacement') { + return '".&mt('Select').''; + } +# Customdistribution file + if ($type eq 'customdistributionfile') { + return '".&mt('Select').''; + } +# Dates + if (($type eq 'creationdate') || + ($type eq 'lastrevisiondate')) { + return &Apache::lonhtmlcommon::date_setter($formname, + $fieldname,$value); + } +# No pretty input found + $value=~s/^\s+//gs; + $value=~s/\s+$//gs; + $value=~s/\s+/ /gs; + $value=~s/\"/\&quod\;/gs; + return ''; } # ================================================================ Main Handler @@ -526,30 +595,23 @@ ENDHEAD Edit Catalog Information $bodytag

$displayfile

-
+ ENDEDIT + $r->print(''); my %lt=&fieldnames(); foreach ('author','title','subject','keywords','abstract','notes', - 'copyright','customdistributionfile','language', + 'copyright','customdistributionfile','language','standards', + 'lowestgradelevel','highestgradelevel', 'obsolete','obsoletereplacement') { - if ($ENV{'form.new_'.$_}) { - $Apache::lonpublisher::metadatafields{$_}=$ENV{'form.new_'.$_}; - } - if (m/copyright/) { - $r->print(&Apache::lonpublisher::selectbox($lt{$_},'new_'.$_, - ($Apache::lonpublisher::metadatafields{$_}? - $Apache::lonpublisher::metadatafields{$_}:'default'), - \&Apache::loncommon::copyrightdescription, - (&Apache::loncommon::copyrightids))); - } elsif (m/language/) { - $r->print(&Apache::lonpublisher::selectbox($lt{$_},'new_'.$_, - $Apache::lonpublisher::metadatafields{$_}, - \&Apache::loncommon::languagedescription, - (&Apache::loncommon::languageids))); - } else { - $r->print(&Apache::lonpublisher::textfield($lt{$_},'new_'.$_, - $Apache::lonpublisher::metadatafields{$_})); + $Apache::lonpublisher::metadatafields{$_}=$ENV{'form.new_'.$_}; + unless ($Apache::lonpublisher::metadatafields{'copyright'}) { + $Apache::lonpublisher::metadatafields{'copyright'}='default'; } + $r->print('

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

'); } if ($ENV{'form.store'}) { my $mfh;