--- loncom/interface/lonparmset.pm	2006/08/18 22:39:37	1.333
+++ loncom/interface/lonparmset.pm	2006/09/07 21:57:52	1.334
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.333 2006/08/18 22:39:37 albertel Exp $
+# $Id: lonparmset.pm,v 1.334 2006/09/07 21:57:52 banghart Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3210,14 +3210,25 @@ sub output_row {
     }
     return ($output);
 }
-
+sub addmetafield {
+    my ($r)=@_;
+    $r->print(&Apache::loncommon::start_page('Add Metadata Field'));
+    $r->print(&Apache::lonhtmlcommon::breadcrumbs('Add Metadata Field'));
+    if (exists($env{'form.fieldname'})) {
+        $r->print('Here is a field');
+    }
+    $r->print('<form method="post" action="/adm/parmset?action=addmetadata"');
+    $r->print('<input type="text" name="fieldname" /><br />');
+    $r->print('<input type="submit" value="Add Metadata Field" />');
+    $r->print('</form>');
+}
 sub setrestrictmeta {
     my ($r)=@_;
     my $next_meta;
     my $output;
     my $item_num;
     my $put_result;
-    
+    &Apache::lonnet::logthis("restricting metadata");    
     $r->print(&Apache::loncommon::start_page('Restrict Metadata'));
     $r->print(&Apache::lonhtmlcommon::breadcrumbs('Restrict Metadata'));
     my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
@@ -3264,6 +3275,9 @@ sub setrestrictmeta {
         <p>
         $output
         <input type="submit" name="restrictmeta" value="Update Metadata Restrictions">
+        </form><br />
+        <form method="post" action="/adm/parmset?action=addmetadata" name="form">
+        <input type="submit" name="restrictmeta" value="Add a Metadata Field">
         </form>
 ENDenv
     $r->print(&Apache::loncommon::end_page());
@@ -3715,6 +3729,10 @@ sub handler {
             &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setoverview',
 						    text=>"Overview Mode"});
 	    &overview($r);
+	} elsif ($env{'form.action'} eq 'addmetadata' && $parm_permission) {
+            &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=addmetadata',
+						    text=>"Add Metadata Field"});
+	    &addmetafield($r);
         } elsif ($env{'form.action'} eq 'setrestrictmeta' && $parm_permission) {
             &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setrestrictmeta',
 						    text=>"Restrict Metadata"});