--- loncom/interface/lonparmset.pm	2000/11/21 22:57:53	1.3
+++ loncom/interface/lonparmset.pm	2000/11/22 12:16:03	1.4
@@ -9,7 +9,7 @@
 #
 # 10/11,10/12,10/16 Gerd Kortemeyer)
 #
-# 11/20,11/21 Gerd Kortemeyer
+# 11/20,11/21,11/22 Gerd Kortemeyer
 
 package Apache::lonparmset;
 
@@ -17,6 +17,8 @@ use strict;
 use Apache::lonnet;
 use Apache::Constants qw(:common :http REDIRECT);
 use GDBM_File;
+use Apache::lonmeta;
+
 
 my %courseopt;
 my %useropt;
@@ -201,10 +203,24 @@ sub handler {
 	 if ($uhome eq 'no_host') {
             $r->print($message);
          }
+	 $r->print('<table border=2>');
  	 map {
-	     $r->print($_.'<br>');
+	    $r->print('<tr>');
+# ------------------------------------------------------ Entry for one resource
+            my %metadata=&Apache::lonmeta::unpackagemeta(
+  &Apache::lonnet::getfile('/home/httpd/html/'.$bighash{'src_'.$_}.'.meta'),1);
+            map {
+                if ($_=~/^parameter\_(\d+)\_(\w+)\_\_dis\_\_(.+)$/) {
+		    my $part=$1;
+                    my $name=$2;
+                    my $display=$3;
+                    my $type=$metadata{$_};
+                }
+            } keys %metadata;
+# -------------------------------------------------- End entry for one resource
+            $r->print('</tr>');
 	 } @ids;
-         $r->print('</body></html>');
+         $r->print('</table></body></html>');
          untie(%bighash);
 	 untie(%parmhash);
       }