--- loncom/publisher/lonpublisher.pm	2000/12/01 12:08:01	1.8
+++ loncom/publisher/lonpublisher.pm	2000/12/01 16:17:46	1.9
@@ -18,7 +18,7 @@ use Apache::lonhomework;
 
 my %addid;
 my %nokey;
-
+my %language;
 my %metadatafields;
 my %metadatakeys;
 
@@ -79,6 +79,10 @@ sub textfield {
            '<input type=text size=80 value="'.$value.'">';
 }
 
+sub selectbox {
+    my ($title,$value,%options)=@_;
+}
+
 sub publish {
 
     my ($source,$target,$style)=@_;
@@ -351,9 +355,18 @@ sub publish {
 
         }         
         
-# DEGUG
- 
 	$scrout.=$keywordout;
+
+        $scrout.=&textfield('Notes',$metadatafields{'notes'});
+
+        $scrout.=
+             '<p><b>Abstract:</b><br><textarea cols=80 rows=5 name=abstract>'.
+              $metadatafields{'abstract'}.'</textarea>';
+
+        $scrout.=&selectbox('Language',$metadatafields{'language'},%language);
+			   
+	$scrout.=&textfield('Publisher/Owner',$metadatafields{'owner'});
+
     }
     return $scrout.
       '<p><input type="submit" value="Finalize Publication"></form>';
@@ -432,6 +445,16 @@ sub handler {
           $nokey{$word}=1;
       } <$fh>;
   }
+
+  %language=();
+
+  {
+     my $fh=Apache::File->new($r->dir_config('lonTabDir').'/language.tab');
+      map {
+          $_=~/(\w+)\s+([\w\s]+)/;
+          $language{$1}=$2;
+      } <$fh>;
+  }
 # ----------------------------------------------------------- Start page output
 
   $r->content_type('text/html');