loncom/interface/lonmeta.pm - diff

Return to lonmeta.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.31, 2003/04/15 00:53:04
+version 1.32, 2003/06/30 17:17:30
  Line 434  ENDEDIT
         if ($ENV{'form.new_'.$_}) {
  	   $Apache::lonpublisher::metadatafields{$_}=$ENV{'form.new_'.$_};
         }
-        $r->print(
+        if (m/copyright/) {
-          &Apache::lonpublisher::textfield($_,'new_'.$_,
+ 	   $r->print(&Apache::lonpublisher::selectbox($_,'new_'.$_,
-                                  $Apache::lonpublisher::metadatafields{$_}));
+ 			       $Apache::lonpublisher::metadatafields{$_},
+ 			       \&Apache::loncommon::copyrightdescription,
+ 			       (&Apache::loncommon::copyrightids)));
+        } elsif (m/language/) {
+ 	   $r->print(&Apache::lonpublisher::selectbox($_,'new_'.$_,
+ 			      $Apache::lonpublisher::metadatafields{$_},
+ 			      \&Apache::loncommon::languagedescription,
+ 			      (&Apache::loncommon::languageids)));
+        } else {
+ 	   $r->print(&Apache::lonpublisher::textfield($_,'new_'.$_,
+ 			     $Apache::lonpublisher::metadatafields{$_}));
+        }
     }
     if ($ENV{'form.store'}) {
        my $mfh;