--- loncom/interface/lonparmset.pm	2005/06/05 01:37:26	1.209
+++ loncom/interface/lonparmset.pm	2005/08/30 00:40:12	1.245
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.209 2005/06/05 01:37:26 www Exp $
+# $Id: lonparmset.pm,v 1.245 2005/08/30 00:40:12 banghart Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -70,6 +70,8 @@ my $parmhashid;
 my %parmhash;
 my $symbsid;
 my %symbs;
+my $rulesid;
+my %rules;
 
 # --- end local caches
 
@@ -240,6 +242,38 @@ sub symbcache {
     return $symbs{$id};
 }
 
+sub resetrulescache {
+    $rulesid='';
+}
+
+sub rulescache {
+    my $id=shift;
+    if ($rulesid ne $env{'request.course.id'}) {
+	%rules=();
+    }
+    unless (defined($rules{$id})) {
+	my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
+	my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
+	%rules=&Apache::lonnet::dump('parmdefactions',$dom,$crs);
+	$rulesid=$env{'request.course.id'};
+    }
+    return $rules{$id};
+}
+
+sub preset_defaults {
+    my $type=shift;
+    if (&rulescache($type.'_action') eq 'default') {
+# yes, there is something
+	return (&rulescache($type.'_hours'),
+		&rulescache($type.'_min'),
+		&rulescache($type.'_sec'),
+		&rulescache($type.'_value'));
+    } else {
+# nothing there or something else
+	return ('','','','','');
+    }
+}
+
 ##################################################
 ##################################################
 #
@@ -271,7 +305,57 @@ sub storeparm {
 # - username
 # - userdomain
 
+my %recstack;
 sub storeparm_by_symb {
+    my ($symb,$spnam,$snum,$nval,$ntype,$uname,$udom,$csec,$recflag)=@_;
+    unless ($recflag) {
+# first time call
+	%recstack=();
+	$recflag=1;
+    }
+# store parameter
+    &storeparm_by_symb_inner
+	($symb,$spnam,$snum,$nval,$ntype,$uname,$udom,$csec);
+    my ($prefix,$parm)=($spnam=~/^(.*[\_\.])([^\_\.]+)$/);
+# remember that this was set
+    $recstack{$parm}=1;
+# what does this trigger?
+    foreach my $triggered (split(/\:/,&rulescache($parm.'_triggers'))) {
+# don't backfire
+       unless ((!$triggered) || ($recstack{$triggered})) {
+	   my $action=&rulescache($triggered.'_action');
+	   my ($whichaction,$whichparm)=($action=~/^(.*\_)([^\_]+)$/);
+# set triggered parameter on same level
+	   my $newspnam=$prefix.$triggered;
+	   my $newvalue='';
+	   my $active=1;
+	   if ($action=~/^when\_setting/) {
+# are there restrictions?
+	       if (&rulescache($triggered.'_triggervalue')=~/\w/) {
+		   $active=0;
+		   foreach my $possiblevalue (split(/\s*\,\s*/,&rulescache($triggered.'_triggervalue'))) {
+		       if (lc($possiblevalue) eq lc($nval)) { $active=1; }
+		   }
+	       }
+	       $newvalue=&rulescache($triggered.'_value');
+	   } else {
+	       my $totalsecs=((&rulescache($triggered.'_days')*24+&rulescache($triggered.'_hours'))*60+&rulescache($triggered.'_min'))*60+&rulescache($triggered.'_sec');
+	       if ($action=~/^later\_than/) {
+		   $newvalue=$nval+$totalsecs;
+	       } else {
+		   $newvalue=$nval-$totalsecs;
+	       }
+	   }
+	   if ($active) {
+	       &storeparm_by_symb($symb,$newspnam,$snum,$newvalue,&rulescache($triggered.'_type'),
+				   $uname,$udom,$csec,$recflag);
+	   }
+       }
+    }
+    return '';
+}
+
+sub storeparm_by_symb_inner {
 # ---------------------------------------------------------- Get symb, map, etc
     my ($symb,$spnam,$snum,$nval,$ntype,$uname,$udom,$csec)=@_;
 # ---------------------------------------------------------- Construct prefixes
@@ -403,7 +487,7 @@ sub valout {
 		$result.=$sec.' secs ';
             }
             $result=~s/\s+$//;
-        } elsif ($type=~/^date/) {
+        } elsif (&isdateparm($type)) {
             $result = localtime($value);
         } else {
             $result = $value;
@@ -434,17 +518,18 @@ sub plink {
     my ($type,$dis,$value,$marker,$return,$call)=@_;
     my $winvalue=$value;
     unless ($winvalue) {
-	if ($type=~/^date/) {
+	if (&isdateparm($type)) {
             $winvalue=$env{'form.recent_'.$type};
         } else {
             $winvalue=$env{'form.recent_'.(split(/\_/,$type))[0]};
         }
     }
-
-
+    my ($parmname)=((split(/\&/,$marker))[1]=~/\_([^\_]+)$/);
+    my ($hour,$min,$sec,$val)=&preset_defaults($parmname);
+    unless (defined($winvalue)) { $winvalue=$val; }
     return 
 	'<a href="javascript:pjump('."'".$type."','".$dis."','".$winvalue."','"
-	    .$marker."','".$return."','".$call."'".');">'.
+	    .$marker."','".$return."','".$call."','".$hour."','".$min."','".$sec."'".');">'.
 		&valout($value,$type).'</a><a name="'.$marker.'"></a>';
 }
 
@@ -544,7 +629,10 @@ sub print_row {
     } else {    
         $parm=~s|\[.*\]\s||g;
     }
-
+    my $automatic=&rulescache(($which=~/\_([^\_]+)$/)[0].'_triggers');
+    if ($automatic) {
+	$parm.='<font color="red"><br />'.&mt('Automatically sets').' '.join(', ',split(/\:/,$automatic)).'</font>';
+    }
     $r->print('<td bgcolor='.$defbgone.'>'.$parm.'</td>');
    
     my $thismarker=$which;
@@ -667,7 +755,10 @@ sub extractResourceInformation {
     my $symbp = shift;
     my $maptitles=shift;
     my $uris=shift;
+    my $keyorder=shift;
+    my $defkeytype=shift;
 
+    my $keyordercnt=100;
 
     my $navmap = Apache::lonnavmaps::navmap->new();
     my @allres=$navmap->retrieveResources(undef,undef,1,undef,1);
@@ -697,6 +788,7 @@ sub extractResourceInformation {
 		my $parmdis = $display;
 		$parmdis =~ s/\[Part.*$//g;
                 $$allparms{$name}=$parmdis;
+		$$defkeytype{$name}=&Apache::lonnet::metadata($srcf,$key.'.type');
 #
 # allparts is a hash of all parts
 #
@@ -709,6 +801,14 @@ sub extractResourceInformation {
 		} else {
 		    $$keyp{$id}=$key;
 		}
+#
+# Put in order
+# 
+                unless ($$keyorder{$key}) {
+                    $$keyorder{$key}=$keyordercnt;
+                    $keyordercnt++;
+		}
+
 	    }
 	}
 	$$mapp{$id}=
@@ -730,8 +830,13 @@ sub extractResourceInformation {
 ##################################################
 ##################################################
 
+sub isdateparm {
+    my $type=shift;
+    return (($type=~/^date/) && (!($type eq 'date_interval')));
+}
+
 sub parmmenu {
-    my ($r,$allparms,$pscat)=@_;
+    my ($r,$allparms,$pscat,$keyorder)=@_;
     my $tempkey;
     $r->print(<<ENDSCRIPT);
 <script type="text/javascript">
@@ -743,19 +848,68 @@ sub parmmenu {
             }
         }
     }
+
+    function checkthis(thisvalue, checkName) {
+	for (i=0; i<document.forms.parmform.elements.length; i++) {
+            ele = document.forms.parmform.elements[i];
+            if (ele.name == checkName) {
+		if (ele.value == thisvalue) {
+		    document.forms.parmform.elements[i].checked=true;
+		}
+            }
+        }
+    }
+
+    function checkdates() {
+	checkthis('duedate','pscat');
+ 	checkthis('opendate','pscat');
+	checkthis('answerdate','pscat');
+    }
+
+    function checkdisset() {
+	checkthis('discussend','pscat');
+ 	checkthis('discusshide','pscat');
+    }
+
+    function checkcontdates() {
+	checkthis('contentopen','pscat');
+ 	checkthis('contentclose','pscat');
+    }
+ 
+
+    function checkvisi() {
+	checkthis('hiddenresource','pscat');
+ 	checkthis('encrypturl','pscat');
+	checkthis('problemstatus','pscat');
+	checkthis('contentopen','pscat');
+	checkthis('opendate','pscat');
+    }
+
+    function checkparts() {
+	checkthis('hiddenparts','pscat');
+	checkthis('display','pscat');
+	checkthis('ordered','pscat');
+    }
+
+    function checkstandard() {
+        checkall(false,'pscat');
+	checkdates();
+	checkthis('weight','pscat');
+	checkthis('maxtries','pscat');
+    }
+
 </script>
 ENDSCRIPT
     $r->print();
     $r->print("\n<table><tr>");
     my $cnt=0;
-    foreach $tempkey (sort { $$allparms{$a} cmp $$allparms{$b} }
-                      keys %{$allparms} ) {
-	$r->print("\n<td><font size='-1'><input type='checkbox' name='pscat' ");
+    foreach $tempkey (&keysindisplayorder($allparms,$keyorder)) {
+	$r->print("\n<td><font size='-1'><label><input type='checkbox' name='pscat' ");
 	$r->print('value="'.$tempkey.'"');
 	if ($$pscat[0] eq "all" || grep $_ eq $tempkey, @{$pscat}) {
 	    $r->print(' checked');
 	}
-	$r->print('>'.$$allparms{$tempkey}.'</font></td>');
+	$r->print('>'.$$allparms{$tempkey}.'</label></font></td>');
  	$cnt++;
         if ($cnt==3) {
 	    $r->print("</tr>\n<tr>");
@@ -764,9 +918,16 @@ ENDSCRIPT
     }
     $r->print('
 </tr><tr><td>
-<input type="button" onclick="checkall(true, \'pscat\')" value="Select All" />
-</td><td></td><td>
-<input type="button" onclick="checkall(false, \'pscat\')" value="Unselect All" />
+<a href="javascript:checkall(true, \'pscat\')">Select&nbsp;All</a><br />
+<a href="javascript:checkstandard()">Select&nbsp;Common&nbsp;Only</a>
+</td><td>
+<a href="javascript:checkdates()">Add&nbsp;Problem&nbsp;Dates</a>
+<a href="javascript:checkcontdates()">Add&nbsp;Content&nbsp;Dates</a><br />
+<a href="javascript:checkdisset()">Add&nbsp;Discussion&nbsp;Settings</a>
+<a href="javascript:checkvisi()">Add&nbsp;Visibilities</a><br />
+<a href="javascript:checkparts()">Add&nbsp;Part&nbsp;Parameters</a>
+</td><td>
+<a href="javascript:checkall(false, \'pscat\')">Unselect&nbsp;All</a>
 </td>
 ');
     $r->print('</tr></table>');
@@ -774,13 +935,15 @@ ENDSCRIPT
 
 sub partmenu {
     my ($r,$allparts,$psprt)=@_;
-    $r->print('<select multiple name="psprt" size="5">');
+    $r->print('<select multiple name="psprt" size="8">');
     $r->print('<option value="all"');
     $r->print(' selected') unless (@{$psprt});
     $r->print('>'.&mt('All Parts').'</option>');
     my %temphash=();
     foreach (@{$psprt}) { $temphash{$_}=1; }
-    foreach my $tempkey (sort keys %{$allparts}) {
+    foreach my $tempkey (sort {
+	if ($a==$b) { return ($a cmp $b) } else { return ($a <=> $b); }
+    } keys(%{$allparts})) {
 	unless ($tempkey =~ /\./) {
 	    $r->print('<option value="'.$tempkey.'"');
 	    if ($$psprt[0] eq "all" ||  $temphash{$tempkey}) {
@@ -831,10 +994,10 @@ ENDMENU
 }
 
 sub displaymenu {
-    my ($r,$allparms,$allparts,$pscat,$psprt)=@_;
+    my ($r,$allparms,$allparts,$pscat,$psprt,$keyorder)=@_;
     $r->print('<table border="1"><tr><th>'.&mt('Select Parameters to View').'</th><th>'.
 	     &mt('Select Parts to View').'</th></tr><tr><td>');  
-    &parmmenu($r,$allparms,$pscat);
+    &parmmenu($r,$allparms,$pscat,$keyorder);
     $r->print('</td><td>');
     &partmenu($r,$allparts,$psprt);
     $r->print('</td></tr></table>');
@@ -842,7 +1005,7 @@ sub displaymenu {
 
 sub mapmenu {
     my ($r,$allmaps,$pschp,$maptitles)=@_;
-    $r->print(&mt('Select Enclosing Map or Folder').' ');
+    $r->print('<b>'.&mt('Select Enclosing Map or Folder').'</b> ');
     $r->print('<select name="pschp">');
     $r->print('<option value="all">'.&mt('All Maps or Folders').'</option>');
     foreach (sort {$$allmaps{$a} cmp $$allmaps{$b}} keys %{$allmaps}) {
@@ -855,8 +1018,8 @@ sub mapmenu {
 
 sub levelmenu {
     my ($r,$alllevs,$parmlev)=@_;
-    $r->print(&mt('Select Parameter Level').
-	      &Apache::loncommon::help_open_topic('Course_Parameter_Levels').' ');
+    $r->print('<b>'.&mt('Select Parameter Level').
+	      &Apache::loncommon::help_open_topic('Course_Parameter_Levels').'</b> ');
     $r->print('<select name="parmlev">');
     foreach (reverse sort keys %{$alllevs}) {
 	$r->print('<option value="'.$$alllevs{$_}.'"');
@@ -868,6 +1031,99 @@ sub levelmenu {
     $r->print("</select>");
 }
 
+
+sub sectionmenu {
+    my ($r,$selectedsections)=@_;
+    my %sectionhash=();
+
+    if (&Apache::loncommon::get_sections(
+                 $env{'course.'.$env{'request.course.id'}.'.domain'},
+                 $env{'course.'.$env{'request.course.id'}.'.num'},
+					 \%sectionhash)) {
+	$r->print('<select name="Section" multiple="true" size="8" >');
+	foreach my $s ('all',sort keys %sectionhash) {
+	    $r->print('    <option value="'.$s.'"');
+	    foreach (@{$selectedsections}) {
+		if ($s eq $_) {
+		    $r->print(' selected');
+		    last;
+		}
+	    }
+	    $r->print('>'.$s."</option>\n");
+	}
+	$r->print("</select>\n");
+    }
+}
+
+sub keysplit {
+    my $keyp=shift;
+    return (split(/\,/,$keyp));
+}
+
+sub keysinorder {
+    my ($name,$keyorder)=@_;
+    return sort {
+	$$keyorder{$a} <=> $$keyorder{$b};
+    } (keys %{$name});
+}
+
+sub keysinorder_bytype {
+    my ($name,$keyorder)=@_;
+    return sort {
+	my $ta=(split('_',$a))[-1];
+	my $tb=(split('_',$b))[-1];
+	if ($$keyorder{'parameter_0_'.$ta} == $$keyorder{'parameter_0_'.$tb}) {
+	    return ($a cmp $b);
+	}
+	$$keyorder{'parameter_0_'.$ta} <=> $$keyorder{'parameter_0_'.$tb};
+    } (keys %{$name});
+}
+
+sub keysindisplayorder {
+    my ($name,$keyorder)=@_;
+    return sort {
+	$$keyorder{'parameter_0_'.$a} <=> $$keyorder{'parameter_0_'.$b};
+    } (keys %{$name});
+}
+
+sub sortmenu {
+    my ($r,$sortorder)=@_;
+    $r->print('<br /><label><input type="radio" name="sortorder" value="realmstudent"');
+    if ($sortorder eq 'realmstudent') {
+       $r->print(' checked="on"');
+    }
+    $r->print(' />'.&mt('Sort by realm first, then student (group/section)'));
+    $r->print('</label><br /><label><input type="radio" name="sortorder" value="studentrealm"');
+    if ($sortorder eq 'studentrealm') {
+       $r->print(' checked="on"');
+    }
+    $r->print(' />'.&mt('Sort by student (group/section) first, then realm').
+	      '</label>');
+}
+
+sub standardkeyorder {
+    return ('parameter_0_opendate' => 1,
+	    'parameter_0_duedate' => 2,
+	    'parameter_0_answerdate' => 3,
+	    'parameter_0_interval' => 4,
+	    'parameter_0_weight' => 5,
+	    'parameter_0_maxtries' => 6,
+	    'parameter_0_hinttries' => 7,
+	    'parameter_0_contentopen' => 8,
+	    'parameter_0_contentclose' => 9,
+	    'parameter_0_type' => 10,
+	    'parameter_0_problemstatus' => 11,
+	    'parameter_0_hiddenresource' => 12,
+	    'parameter_0_hiddenparts' => 13,
+	    'parameter_0_display' => 14,
+	    'parameter_0_ordered' => 15,
+	    'parameter_0_tol' => 16,
+	    'parameter_0_sig' => 17,
+	    'parameter_0_turnoffunit' => 18,
+            'parameter_0_discussend' => 19,
+            'parameter_0_discusshide' => 20);
+}
+
 ##################################################
 ##################################################
 
@@ -923,11 +1179,15 @@ sub assessparms {
     my $coursename=$env{'course.'.$env{'request.course.id'}.'.description'};
 
     $alllevs{'Resource Level'}='full';
-    $alllevs{'Map Level'}='map';
+    $alllevs{'Map/Folder Level'}='map';
     $alllevs{'Course Level'}='general';
 
     my %allparms;
     my %allparts;
+#
+# Order in which these parameters will be displayed
+#
+    my %keyorder=&standardkeyorder();
 
     @ids=();
     %symbp=();
@@ -1022,7 +1282,9 @@ sub assessparms {
     unless ($csec) { $csec=''; }
 
 # --------------------------------------------------------- Get all assessments
-    &extractResourceInformation(\@ids, \%typep,\%keyp, \%allparms, \%allparts, \%allmaps, \%mapp, \%symbp,\%maptitles,\%uris);
+    &extractResourceInformation(\@ids, \%typep,\%keyp, \%allparms, \%allparts, \%allmaps, 
+				\%mapp, \%symbp,\%maptitles,\%uris,
+				\%keyorder);
 
     $mapp{'0.0'} = '';
     $symbp{'0.0'} = '';
@@ -1054,8 +1316,6 @@ sub assessparms {
 	$r->print('<input type="hidden" value="'.
 		  $env{'form.recent_'.$_}.'" name="recent_'.$_.'">');
     }
-
-    $r->print('<h2>'.$message.'</h2>');
                         
     if (!$pssymb) {
         $r->print('<table border="1"><tr><td>');
@@ -1066,14 +1326,18 @@ sub assessparms {
 	    $r->print('</td>');
 	}
         $r->print('</td></tr></table>');
-	&displaymenu($r,\%allparms,\%allparts,\@pscat,\@psprt);
+	&displaymenu($r,\%allparms,\%allparts,\@pscat,\@psprt,\%keyorder);
     } else {
         my ($map,$id,$resource)=&Apache::lonnet::decode_symb($pssymb);
         $r->print(&mt('Specific Resource').": ".$resource.
-                  '<input type="hidden" value="'.$pssymb.'" name="symb">');
+                  '<input type="hidden" value="'.$pssymb.'" name="symb">'.
+		  '<br /><label><b>'.&mt('Show all parts').': <input type="checkbox" name="psprt" value="all"'.
+		  ($env{'form.psprt'}?' checked="checked"':'').' /></b></label><br />');
     }
     &usermenu($r,$uname,$id,$udom,$csec);    
 
+    $r->print('<p>'.$message.'</p>');
+
     $r->print('<br /><input type="submit" name="dis" value="'.&mt("Update Parameter Display").'" />');
 
     my @temp_pscat;
@@ -1176,7 +1440,7 @@ ENDTABLEHEADFOUR
                     my %default=();
                     my $uri=&Apache::lonnet::declutter($uris{$rid});
 
-                    foreach (split(/\,/,$keyp{$rid})) {
+                    foreach (&keysplit($keyp{$rid})) {
                         my $tempkeyp = $_;
                         if (grep $_ eq $tempkeyp, @catmarker) {
                           $part{$_}=&Apache::lonnet::metadata($uri,$_.'.part');
@@ -1213,14 +1477,9 @@ ENDTABLEHEADFOUR
 
                         $r->print('<td bgcolor='.$defbgone.
                                       ' rowspan='.$totalparms.
-                                      '><tt><font size=-1>');
-
-                        $r->print(' / res / ');
-                        $r->print(join(' / ', split(/\//,$mapp{$rid})));
-
-                        $r->print('</font></tt></td>');
+                                      '>'.$maptitles{$mapp{$rid}}.'</td>');
 
-                        foreach (sort keys %name) {
+                        foreach (&keysinorder_bytype(\%name,\%keyorder)) {
                             unless ($firstrow) {
                                 $r->print('<tr>');
                             } else {
@@ -1283,7 +1542,7 @@ ENDTABLEHEADFOUR
 # When storing information, store as part 0
 # When requesting information, request from full part
 #-------------------------------------------------------------------
-                    foreach (split(/\,/,$keyp{$rid})) {
+                    foreach (&keysplit($keyp{$rid})) {
                       my $tempkeyp = $_;
                       my $fullkeyp = $tempkeyp;
                       $tempkeyp =~ s/_\w+_/_0_/;
@@ -1333,12 +1592,11 @@ ENDMAPONE
                 $r->print('<th>'.&mt('Default Value').'</th>');
                 $r->print('<th>'.&mt('Parameter in Effect').'</th></tr>');
 
-	        foreach (sort keys %name) {
+	        foreach (&keysinorder(\%name,\%keyorder)) {
                     $r->print('<tr>');
                     &print_row($r,$_,\%part,\%name,\%symbp,$mapid,\%default,
                            \%type,\%display,$defbgone,$defbgtwo,
                            $parmlev,$uname,$udom,$csec);
-#                    $r->print("<tr><td>resource.$part{$_}.$name{$_},$symbp{$mapid}</td></tr>\n");
                 }
                 $r->print("</table></center>");
             } # end each map
@@ -1370,7 +1628,7 @@ ENDMAPONE
 # When storing information, store as part 0
 # When requesting information, request from full part
 #-------------------------------------------------------------------
-                foreach (split(/\,/,$keyp{$rid})) {
+                foreach (&keysplit($keyp{$rid})) {
                   my $tempkeyp = $_;
                   my $fullkeyp = $tempkeyp;
                   $tempkeyp =~ s/_\w+_/_0_/;
@@ -1411,11 +1669,10 @@ ENDMAPONE
             $r->print('<th>'.&mt('Default Value').'</th>');
             $r->print('<th>'.&mt('Parameter in Effect').'</th></tr>');
 
-	    foreach (sort keys %name) {
+	    foreach (&keysinorder(\%name,\%keyorder)) {
                 $r->print('<tr>');
                 &print_row($r,$_,\%part,\%name,\%symbp,$mapid,\%default,
                        \%type,\%display,$defbgone,$defbgtwo,$parmlev,$uname,$udom,$csec);
-#                    $r->print("<tr><td>resource.$part{$_}.$name{$_},$symbp{$mapid}</td></tr>\n");
             }
             $r->print("</table></center>");
         } # end of $parmlev eq general
@@ -1512,9 +1769,13 @@ sub crsenv {
         #
         # Let the user know we made the changes
         if ($name && defined($value)) {
+            my $failed_cloners;
             if ($name eq 'cloners') {
+                $value =~ s/\s//g;
                 $value =~ s/^,//;
                 $value =~ s/,$//;
+                # check requested clones are valid users.
+                $failed_cloners = &check_cloners(\$value,\@oldcloner);
             }
             my $put_result = &Apache::lonnet::put('environment',
                                                   {$name=>$value},$dom,$crs);
@@ -1531,6 +1792,18 @@ sub crsenv {
                 $setoutput.=&mt('Unable to set').' <b>'.$name.'</b> '.&mt('to').
 		    ' <b>'.$value.'</b> '.&mt('due to').' '.$put_result.'.<br />';
             }
+            if (($name eq 'cloners') && ($failed_cloners)) {
+                $setoutput.= &mt('Unable to include').' - <b>'.$failed_cloners.'</b>, '.
+                 &mt('reason').' - '.&mt('LON-CAPA user(s) do(es) not exist').
+                 '.<br />'.&mt('Please ').
+                 ' <a href="/adm/createuser">'.
+                 &mt('add the user(s)').'</a>, '.
+                 &mt('and then return to the ').
+                 '<a href="/admparmset?action=crsenv">'.
+                 &mt('Course Parameters page').'</a> '.
+                 &mt('to add the new user(s) to the list of possible cloners').
+                 '.<br />';
+            }
         }
     }
 # ------------------------- Re-init course environment entries for this session
@@ -1637,8 +1910,8 @@ sub crsenv {
              'anonymous_quiz'
                  => '<b>'.&mt('Anonymous quiz/exam').'</b><br />'.
                     ' (<tt><b>'.&mt('yes').'</b> '.&mt('to avoid print students names').' </tt>)',
-             'default_enrollment_start_date' => '<b>'.&mt('Default beginning date when enrolling students').'</b>',
-             'default_enrollment_end_date'   => '<b>'.&mt('Default ending date when enrolling students').'</b>',
+             'default_enrollment_start_date' => '<b>'.&mt('Default beginning date for student access.').'</b>',
+             'default_enrollment_end_date'   => '<b>'.&mt('Default ending date for student access.').'</b>',
              'nothideprivileged'   => '<b>'.&mt('Privileged users that should not be hidden on staff listings').'</b>'.
                                  '<br />(<tt>user:domain,user:domain,...</tt>)',
              'languages' => '<b>'.&mt('Languages used').'</b>',
@@ -1677,7 +1950,7 @@ sub crsenv {
 			     'disablesigfigs'
                              );
 	foreach my $parameter (sort(keys(%values))) {
-            unless ($parameter =~ m/^internal\./) {
+            unless (($parameter =~ m/^internal\./)||($parameter =~ m/^metadata\./)) {
                 if (! $descriptions{$parameter}) {
                     $descriptions{$parameter}=$parameter;
                     push(@Display_Order,$parameter);
@@ -1825,9 +2098,12 @@ sub storedata {
 	    }
 	    if ($cmd eq 'set') {
 		my $data=$env{$_};
-		if ($$olddata{$thiskey} ne $data) { 
+                my $typeof=$env{'form.typeof_'.$thiskey};
+ 		if ($$olddata{$thiskey} ne $data) { 
 		    if ($tuname) {
-			if (&Apache::lonnet::put('resourcedata',{$tkey=>$data},$tudom,$tuname) eq 'ok') {
+			if (&Apache::lonnet::put('resourcedata',{$tkey=>$data,
+								 $tkey.'.type' => $typeof},
+						 $tudom,$tuname) eq 'ok') {
 			    $r->print('<br />'.&mt('Stored modified parameter for').' '.
 				      &Apache::loncommon::plainname($tuname,$tudom));
 			} else {
@@ -1837,7 +2113,8 @@ sub storedata {
 			&Apache::lonnet::devalidateuserresdata($tuname,$tudom);
 		    } else {
 			$newdata{$thiskey}=$data;
-                    } 
+ 			$newdata{$thiskey.'.type'}=$typeof; 
+                   } 
 		}
 	    } elsif ($cmd eq 'del') {
 		if ($tuname) {
@@ -1853,9 +2130,12 @@ sub storedata {
 		}
 	    } elsif ($cmd eq 'datepointer') {
 		my $data=&Apache::lonhtmlcommon::get_date_from_form($env{$_});
+                my $typeof=$env{'form.typeof_'.$thiskey};
 		if (defined($data) and $$olddata{$thiskey} ne $data) { 
 		    if ($tuname) {
-			if (&Apache::lonnet::put('resourcedata',{$tkey=>$data},$tudom,$tuname) eq 'ok') {
+			if (&Apache::lonnet::put('resourcedata',{$tkey=>$data,
+								 $tkey.'.type' => $typeof},
+						 $tudom,$tuname) eq 'ok') {
 			    $r->print('<br />'.&mt('Stored modified date for').' '.&Apache::loncommon::plainname($tuname,$tudom));
 			} else {
 			    $r->print('<h2><font color="red">'.
@@ -1863,7 +2143,8 @@ sub storedata {
 			}
 			&Apache::lonnet::devalidateuserresdata($tuname,$tudom);
 		    } else {
-			$newdata{$thiskey}=$data; 
+			$newdata{$thiskey}=$data;
+			$newdata{$thiskey.'.type'}=$typeof; 
 		    }
 		}
 	    }
@@ -1884,7 +2165,7 @@ sub storedata {
     }
     if ($putentries) {
 	if (&Apache::lonnet::put('resourcedata',\%newdata,$dom,$crs) eq 'ok') {
-	    $r->print('<h2>'.&mt('Stored [_1] parameter(s)</h2>',$putentries));
+	    $r->print('<h3>'.&mt('Stored [_1] parameter(s)',$putentries/2).'</h3>');
 	} else {
 	    $r->print('<h2><font color="red">'.
 		      &mt('Error storing parameters').'</font></h2>');
@@ -1899,7 +2180,7 @@ sub extractuser {
 }
 
 sub listdata {
-    my ($r,$resourcedata,$listdata)=@_;
+    my ($r,$resourcedata,$listdata,$sortorder)=@_;
 # Start list output
 
     my $oldsection='';
@@ -1908,8 +2189,25 @@ sub listdata {
     my $pointer=0;
     $tableopen=0;
     my $foundkeys=0;
-    foreach my $thiskey (sort keys %{$listdata}) {
-	if ($$resourcedata{$thiskey.'.type'}) {
+    foreach my $thiskey (sort {
+	if ($sortorder eq 'realmstudent') {
+	    my ($astudent,$arealm)=($a=~/^$env{'request.course.id'}\.([^\.]+)\.(.+)\.[^\.]+$/);
+	    my ($bstudent,$brealm)=($b=~/^$env{'request.course.id'}\.([^\.]+)\.(.+)\.[^\.]+$/);
+	    if (!defined($astudent) && !defined($bstudent) &&
+		!defined($arealm) && !defined($brealm)) {
+		($arealm)=($a=~/^$env{'request.course.id'}\.(.+)\.[^\.]+$/);
+		($brealm)=($b=~/^$env{'request.course.id'}\.(.+)\.[^\.]+$/);
+	    }
+            ($arealm cmp $brealm) || ($astudent cmp $bstudent);
+	} else {
+	    $a cmp $b;
+	}
+    } keys %{$listdata}) {
+	if ($$listdata{$thiskey.'.type'}) {
+            my $thistype=$$listdata{$thiskey.'.type'};
+            if ($$resourcedata{$thiskey.'.type'}) {
+		$thistype=$$resourcedata{$thiskey.'.type'};
+	    }
 	    my ($middle,$part,$name)=
 		($thiskey=~/^$env{'request.course.id'}\.(?:(.+)\.)*([\w\s]+)\.(\w+)$/);
 	    my $section=&mt('All Students');
@@ -1931,42 +2229,91 @@ sub listdata {
 		my ($map,$id,$url)=&Apache::lonnet::decode_symb($middle);
 		$realm='<font color="orange">'.&mt('Resource').': '.&Apache::lonnet::gettitle($middle).' <br /><font color="#aaaaaa" size="-2">('.$url.' in '.$map.' id: '.$id.')</font></font>';
 	    }
-	    if ($section ne $oldsection) {
-		$r->print(&tableend()."\n<hr /><h1>$section</h1>");
-		$oldsection=$section;
-		$oldrealm='';
-	    }
-	    if ($realm ne $oldrealm) {
-		$r->print(&tableend()."\n<h2>$realm</h2>");
-		$oldrealm=$realm;
-		$oldpart='';
+	    if ($sortorder eq 'realmstudent') {
+		if ($realm ne $oldrealm) {
+		    $r->print(&tableend()."\n<hr /><h1>$realm</h1>");
+		    $oldrealm=$realm;
+		    $oldsection='';
+		}
+		if ($section ne $oldsection) {
+		    $r->print(&tableend()."\n<h2>$section</h2>");
+		    $oldsection=$section;
+		    $oldpart='';
+		}
+	    } else {
+		if ($section ne $oldsection) {
+		    $r->print(&tableend()."\n<hr /><h1>$section</h1>");
+		    $oldsection=$section;
+		    $oldrealm='';
+		}
+		if ($realm ne $oldrealm) {
+		    $r->print(&tableend()."\n<h2>$realm</h2>");
+		    $oldrealm=$realm;
+		    $oldpart='';
+		}
 	    }
 	    if ($part ne $oldpart) {
 		$r->print(&tableend().
-			  "\n<h3><font color='blue'>".&mt('Part').": $part</font></h3>");
+			  "\n<font color='blue'>".&mt('Part').": $part</font>");
 		$oldpart=$part;
 	    }
 #
+# Preset defaults?
+#
+            my ($hour,$min,$sec,$val)=('','','','');
+	    unless ($$resourcedata{$thiskey}) {
+		my ($parmname)=($thiskey=~/\.(\w+)$/);
+		($hour,$min,$sec,$val)=&preset_defaults($parmname);
+	    }
+
+#
 # Ready to print
 #
 	    $r->print(&tablestart().'<tr><td><b>'.$name.
 		      ':</b></td><td><input type="checkbox" name="del_'.
 		      $thiskey.'" /></td><td>');
 	    $foundkeys++;
-	    if ($$resourcedata{$thiskey.'.type'}=~/^date/) {
+	    if (&isdateparm($thistype)) {
 		my $jskey='key_'.$pointer;
 		$pointer++;
 		$r->print(
-			  &Apache::lonhtmlcommon::date_setter('overviewform',
+			  &Apache::lonhtmlcommon::date_setter('parmform',
 							      $jskey,
-						      $$resourcedata{$thiskey}).
+						      $$resourcedata{$thiskey},
+							      '',1,'','',$hour,$min,$sec).
 '<input type="hidden" name="datepointer_'.$thiskey.'" value="'.$jskey.'" />'
 			  );
+	    } elsif ($thistype eq 'string_yesno') {
+		my $showval;
+		if (defined($$resourcedata{$thiskey})) {
+		    $showval=$$resourcedata{$thiskey};
+		} else {
+		    $showval=$val;
+		}
+		$r->print('<label><input type="radio" name="set_'.$thiskey.
+			  '" value="yes"');
+		if ($showval eq 'yes') {
+		    $r->print(' checked="checked"');
+		}
+                $r->print(' />'.&mt('Yes').'</label> ');
+		$r->print('<label><input type="radio" name="set_'.$thiskey.
+			  '" value="no"');
+		if ($showval eq 'no') {
+		    $r->print(' checked="checked"');
+		}
+                $r->print(' />'.&mt('No').'</label>');
 	    } else {
-		$r->print(
-			  '<input type="text" name="set_'.$thiskey.'" value="'.
-			  $$resourcedata{$thiskey}.'">');
+		my $showval;
+		if (defined($$resourcedata{$thiskey})) {
+		    $showval=$$resourcedata{$thiskey};
+		} else {
+		    $showval=$val;
+		}
+		$r->print('<input type="text" name="set_'.$thiskey.'" value="'.
+			  $showval.'">');
 	    }
+	    $r->print('<input type="hidden" name="typeof_'.$thiskey.'" value="'.
+		      $thistype.'">');
 	    $r->print('</td></tr>');
 	}
     }
@@ -1975,8 +2322,7 @@ sub listdata {
 
 sub newoverview {
     my $r=shift;
-    my $bodytag=&Apache::loncommon::bodytag(
-                             'Set Course Assessment Parameters');
+    my $bodytag=&Apache::loncommon::bodytag('Set Parameters');
     my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
     my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
     my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs(undef,'Overview');
@@ -1988,16 +2334,140 @@ $html
 </head>
 $bodytag
 $breadcrumbs
-<form method="post" action="/adm/parmset?action=newoverview" name="overviewform">
+<form method="post" action="/adm/parmset?action=newoverview" name="parmform">
 ENDOVER
-   $r->print(&tableend().
-	     '<p><input type="submit" value="'.&mt('Submit').'" /></p></form></body></html>');
+    my @ids=();
+    my %typep=();
+    my %keyp=();
+    my %allparms=();
+    my %allparts=();
+    my %allmaps=();
+    my %mapp=();
+    my %symbp=();
+    my %maptitles=();
+    my %uris=();
+    my %keyorder=&standardkeyorder();
+    my %defkeytype=();
+
+    my %alllevs=();
+    $alllevs{'Resource Level'}='full';
+    $alllevs{'Map/Folder Level'}='map';
+    $alllevs{'Course Level'}='general';
+
+    my $csec=$env{'form.csec'};
+
+    my @pscat=&Apache::loncommon::get_env_multiple('form.pscat');
+    my $pschp=$env{'form.pschp'};
+    my @psprt=&Apache::loncommon::get_env_multiple('form.psprt');
+    if (!@psprt) { $psprt[0]='0'; }
+
+    my @selected_sections = 
+	&Apache::loncommon::get_env_multiple('form.Section');
+    @selected_sections = ('all') if (! @selected_sections);
+    foreach (@selected_sections) {
+        if ($_ eq 'all') {
+            @selected_sections = ('all');
+        }
+    }
+
+    my $pssymb='';
+    my $parmlev='';
+ 
+    unless ($env{'form.parmlev'}) {
+        $parmlev = 'map';
+    } else {
+        $parmlev = $env{'form.parmlev'};
+    }
+
+    &extractResourceInformation(\@ids, \%typep,\%keyp, \%allparms, \%allparts, \%allmaps, 
+				\%mapp, \%symbp,\%maptitles,\%uris,
+				\%keyorder,\%defkeytype);
+
+# Menu to select levels, etc
+
+    $r->print('<table border="1"><tr><td>');
+    &levelmenu($r,\%alllevs,$parmlev);
+    if ($parmlev ne 'general') {
+	$r->print('<td>');
+	&mapmenu($r,\%allmaps,$pschp,\%maptitles);
+	$r->print('</td>');
+    }
+    $r->print('</td></tr></table>');
+
+    $r->print('<table border="1"><tr><td>');  
+    &parmmenu($r,\%allparms,\@pscat,\%keyorder);
+    $r->print('</td><td>');
+    &partmenu($r,\%allparts,\@psprt);
+    $r->print('</td><td>');
+    &sectionmenu($r,\@selected_sections);
+
+    $r->print('</td></tr></table>');
+ 
+    my $sortorder=$env{'form.sortorder'};
+    unless ($sortorder) { $sortorder='realmstudent'; }
+    &sortmenu($r,$sortorder);
+
+    $r->print('<p><input type="submit" name="dis" value="'.&mt('Display').'" /></p>');
+
+# Build the list data hash from the specified parms
+
+    my $listdata;
+    %{$listdata}=();
+
+    foreach my $cat (@pscat) {
+	foreach my $section (@selected_sections) {
+	    foreach my $part (@psprt) {
+                my $rootparmkey=$env{'request.course.id'};
+                if (($section ne 'all') && ($section ne 'none') && ($section)) {
+		    $rootparmkey.='.['.$section.']';
+		}
+		if ($parmlev eq 'general') {
+# course-level parameter
+		    my $newparmkey=$rootparmkey.'.'.$part.'.'.$cat;
+		    $$listdata{$newparmkey}=1;
+		    $$listdata{$newparmkey.'.type'}=$defkeytype{$cat};
+		} elsif ($parmlev eq 'map') {
+# map-level parameter
+		    foreach my $mapid (keys %allmaps) {
+			if (($pschp ne 'all') && ($pschp ne $mapid)) { next; }
+			my $newparmkey=$rootparmkey.'.'.$allmaps{$mapid}.'___(all).'.$part.'.'.$cat;
+                        $$listdata{$newparmkey}=1;
+                        $$listdata{$newparmkey.'.type'}=$defkeytype{$cat};
+		    }
+		} else {
+# resource-level parameter
+		    foreach my $rid (@ids) {
+			my ($map,$resid,$url)=&Apache::lonnet::decode_symb($symbp{$rid});
+			if (($pschp ne 'all') && ($allmaps{$pschp} ne $map)) { next; }
+			my $newparmkey=$rootparmkey.'.'.$symbp{$rid}.'.'.$part.'.'.$cat;
+                        $$listdata{$newparmkey}=1;
+                        $$listdata{$newparmkey.'.type'}=$defkeytype{$cat};
+		    }
+		}
+	    }
+	}
+    }
+
+    if (($env{'form.store'}) || ($env{'form.dis'})) {
+
+	if ($env{'form.store'}) { &storedata($r,$crs,$dom); }
+
+# Read modified data
+
+	my $resourcedata=&readdata($crs,$dom);
+
+# List data
+
+	&listdata($r,$resourcedata,$listdata,$sortorder);
+    }
+    $r->print(&tableend().
+	     ((($env{'form.store'}) || ($env{'form.dis'}))?'<p><input type="submit" name="store" value="'.&mt('Store').'" /></p>':'').
+	      '</form></body></html>');
 }
 
 sub overview {
     my $r=shift;
-    my $bodytag=&Apache::loncommon::bodytag(
-                             'Modify Course Assessment Parameters');
+    my $bodytag=&Apache::loncommon::bodytag('Modify Parameters');
     my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
     my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
     my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs(undef,'Overview');
@@ -2009,7 +2479,7 @@ $html
 </head>
 $bodytag
 $breadcrumbs
-<form method="post" action="/adm/parmset?action=setoverview" name="overviewform">
+<form method="post" action="/adm/parmset?action=setoverview" name="parmform">
 ENDOVER
 # Store modified
 
@@ -2019,9 +2489,14 @@ ENDOVER
 
     my $resourcedata=&readdata($crs,$dom);
 
+
+    my $sortorder=$env{'form.sortorder'};
+    unless ($sortorder) { $sortorder='realmstudent'; }
+    &sortmenu($r,$sortorder);
+
 # List data
 
-    my $foundkeys=&listdata($r,$resourcedata,$resourcedata);
+    my $foundkeys=&listdata($r,$resourcedata,$resourcedata,$sortorder);
 
     $r->print(&tableend().'<p>'.
 	($foundkeys?'<input type="submit" value="'.&mt('Modify Parameters').'" />':&mt('There are no parameters.')).'</p></form></body></html>');
@@ -2031,25 +2506,76 @@ ENDOVER
 ##################################################
                                                                                             
 =pod
-                                                                                            
-=item change clone
-                                                                                            
+
+=item check_cloners
+
+Checks if new users included in list of allowed cloners
+are valid users.  Replaces supplied list with 
+cleaned list containing only users with valid usernames
+and domains.
+
+Inputs: $clonelist, $oldcloner 
+where $clonelist is ref to array of requested cloners,
+and $oldcloner is ref to array of currently allowed
+cloners.
+
+Returns: string - comma separated list of requested
+cloners (username:domain) who do not exist in system.
+
+=item change_clone
+
 Modifies the list of courses a user can clone (stored
-in the user's environemnt.db file), called when a
+in the user's environment.db file), called when a
 change is made to the list of users allowed to clone
 a course.
-                                                                                            
+
 Inputs: $action,$cloner
 where $action is add or drop, and $cloner is identity of 
 user for whom cloning ability is to be changed in course. 
-                                                                                            
-Returns: 
 
 =cut
                                                                                             
 ##################################################
 ##################################################
 
+sub extract_cloners {
+    my ($clonelist,$allowclone) = @_;
+    if ($clonelist =~ /,/) {
+        @{$allowclone} = split/,/,$clonelist;
+    } else {
+        $$allowclone[0] = $clonelist;
+    }
+}
+
+
+sub check_cloners {
+    my ($clonelist,$oldcloner) = @_;
+    my ($clean_clonelist,$disallowed);
+    my @allowclone = ();
+    &extract_cloners($$clonelist,\@allowclone);
+    foreach my $currclone (@allowclone) {
+        if (!grep/^$currclone$/,@$oldcloner) {
+            my ($uname,$udom) = split/:/,$currclone;
+            if ($uname && $udom) {
+                if (&Apache::lonnet::homeserver($uname,$udom) eq 'no_host') {
+                    $disallowed .= $currclone.',';   
+                } else {
+                    $clean_clonelist .= $currclone.',';
+                }
+            }
+        } else {
+            $clean_clonelist .= $currclone.',';
+        }
+    }
+    if ($disallowed) {
+        $disallowed =~ s/,$//;
+    }
+    if ($clean_clonelist) {
+        $clean_clonelist =~ s/,$//;
+    }
+    $$clonelist = $clean_clonelist;
+    return $disallowed;
+}  
 
 sub change_clone {
     my ($clonelist,$oldcloner) = @_;
@@ -2059,12 +2585,8 @@ sub change_clone {
     my $clone_crs = $cnum.':'.$cdom;
     
     if ($cnum && $cdom) {
-        my @allowclone = ();
-        if ($clonelist =~ /,/) {
-            @allowclone = split/,/,$clonelist;
-        } else {
-            $allowclone[0] = $clonelist;
-        }
+        my @allowclone;
+        &extract_cloners($clonelist,\@allowclone);
         foreach my $currclone (@allowclone) {
             if (!grep/^$currclone$/,@$oldcloner) {
                 ($uname,$udom) = split/:/,$currclone;
@@ -2155,28 +2677,31 @@ ENDMAINFORMHEAD
 	    action => 'crsenv',
             permission => $parm_permission,
             },
-          { text => 'Set/Modify Course Assessment Parameters - Helper Mode',
+          { text => 'Set Instructor Defined Metadata',
+	    action => 'setinstmeta',
+            permission => $parm_permission,
+            },
+          { text => 'Set/Modify Resource Parameters - Helper Mode',
             url => '/adm/helper/parameter.helper',
             permission => $parm_permission,
             },
-          { text => 'Modify Course Assessment Parameters - Overview Mode',
+          { text => 'Modify Resource Parameters - Overview Mode',
             action => 'setoverview',
             permission => $parm_permission,
             },          
-	  { text => 'Set Course Assessment Parameters - Overview Mode',
+	  { text => 'Set Resource Parameters - Overview Mode',
             action => 'newoverview',
             permission => $parm_permission,
             },
-          { text => 'Set/Modify Course Assessment Parameters - Table Mode',
+          { text => 'Set/Modify Resource Parameters - Table Mode',
             action => 'settable',
             permission => $parm_permission,
             help => 'Cascading_Parameters',
             },
-#          { text => 'Set Parameter Default Preferences',
-#            help => 'Course_View_Class_List',
-#            action => 'setdefaults',
-#            permission => $parm_permission,
-#            },
+          { text => 'Set Parameter Setting Default Actions',
+            action => 'setdefaults',
+            permission => $parm_permission,
+            },
           );
     my $menu_html = '';
     foreach my $menu_item (@menu) {
@@ -2199,9 +2724,256 @@ ENDMAINFORMHEAD
     $r->print($menu_html);
     return;
 }
+### Set instructor defined metadata
+sub setinstmeta {
+    my ($r)=@_;
+    my $next_meta;
+    my $output;
+    my $item_num;
+    if ($env{'form.serial'}) {
+        $next_meta = $env{'form.serial'};
+    } else {
+        $next_meta = 1;
+    }
+    $r->print(&Apache::lonxml::xmlbegin());
+    $r->print('<head>
+            <title>LON-CAPA Set Instructor Metadata</title>
+            </head>');
+    $r->print(&Apache::loncommon::bodytag('Set Instructor Metadata'));
+    $r->print(&Apache::lonhtmlcommon::breadcrumbs(undef,
+						    'Set Instructor Metadata'));
+    my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
+    my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
+    my $key_base = $env{'course.'.$env{'request.course.id'}.'.metadata.'};
+    if ($env{'form.state'}eq 'add') {
+        $r->print('<strong>Compose a new metadata item:</strong><br />');
+        $r->print('<form method="post" action="/adm/parmset">');
+        $r->print ('Title of item: '.&Apache::lonhtmlcommon::textbox("title",undef,undef,undef).'<br />');
+        $r->print ('List if items (comma separated): '.&Apache::lonhtmlcommon::textbox("values",undef,undef,undef).'<br />');
+        $r->print ('Select one: <input type="radio" name="type" value="one"><br />');
+        $r->print ('Select many: <input type="radio" name="type" value="many"><br />');
+        $r->print('<input type="hidden" name="serial" value="'.$next_meta.'" />');
+        $r->print('<input type="hidden" name="action" value="setinstmeta" />');
+        $r->print('<input type="hidden" name="state" value="save" />');
+        $r->print('<input type="submit" value="Save Metadata">');
+        $r->print('</form>');
+    } elsif ($env{'form.state'}eq 'save') {
+        $r->print('Here we save the metadata');
+        $key_base.=$env{'form.serial'}.'.';
+        $r->print('The title: '.$env{'form.title'}.'<br>');
+        $r->print('The values: '.$env{'form.values'}.'<br>');
+        $r->print('The type: '.$env{'form.type'}.'<br>');
+        $r->print('The number: '.$env{'form.serial'}.'<br>');
+        my $name = 'metadata.'.$env{'form.serial'}.'.title';
+        my $value = $env{'form.title'};
+        my $put_result = &Apache::lonnet::put('environment',
+                                                  {$name=>$value},$dom,$crs);
+        $r->print('the put result was: '.$put_result.'<br />');
+        $name = 'metadata.'.$env{'form.serial'}.'.type';
+        $value = $env{'form.type'};
+        $put_result = &Apache::lonnet::put('environment',
+                                                  {$name=>$value},$dom,$crs);
+        $name = 'metadata.'.$env{'form.serial'}.'.values';
+        $value = $env{'form.values'};
+        $put_result = &Apache::lonnet::put('environment',
+                                                  {$name=>$value},$dom,$crs);
+        &Apache::lonnet::coursedescription($env{'request.course.id'});        
+    } else {
+        
+        foreach my $key (sort keys %env) {
+            if ($key=~m/^course\.$env{'request.course.id'}\.metadata\.\d+\.title$/) {
+                $key=~m/^course\.$env{'request.course.id'}\.metadata\.(\d+)\.title/;
+                $item_num = $1;
+                if ($1 ge $next_meta) {
+                    $next_meta = $1 + 1;
+                }
+                $output.='<tr><td>'.$env{$key}.'</td>';
+                $output.='<td>Select one: <input type="radio" name="type'.$item_num.'" value="one" /><br />';
+                $output.='Select many: <input type="radio" name="type'.$item_num.'" value="many" /></td>';
+                $output.='<td><input name="values'.$item_num.'" type="text" value="'.$env{$key.'.values'}.'" /></td></tr>';
+            }
+        }
+    $output.='<tr><td><i>Create new instructor metadata item</i><br />';
+    $output.='<input type="text" name="newitem" /></td>';
+    $output.='<td>Select one: <input type="radio" name="typenew" value="one" /><br />';
+    $output.='Select many: <input type="radio" name="typenew" value="many" /></td>';
+    $output.='<td><input name="valuesnew" type="text" value="" /></td></tr>';
+    $output.='<td><input type="hidden" name="serial" value="'.$next_meta.'" /></td></tr>';
+    $r->print(<<ENDenv);       
+        <form method="post" action="/adm/parmset?action=setinstmeta" name="form">
+        
+        <p>
+        <table border=2>
+        <tr><th>Title</th><th>Options</th><th>Choices</th></tr>
+        $output
+        </table>
+        <input type="submit" name="instmeta" value="Update Instructor Metadata">
+        </form>
 
+ENDenv
+        
+    }
+    $r->print('</body>
+                </html>');
+    return 'ok';
+}
+##################################################
 
+sub defaultsetter {
+    my $r=shift;
+    my $bodytag=&Apache::loncommon::bodytag('Parameter Setting Default Actions');
+    my $dom = $env{'course.'.$env{'request.course.id'}.'.domain'};
+    my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
+    my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs(undef,'Defaults');
+    my $html=&Apache::lonxml::xmlbegin();
+    $r->print(<<ENDDEFHEAD);
+$html
+<head>
+<title>LON-CAPA Parameters</title>
+</head>
+$bodytag
+$breadcrumbs
+<form method="post" action="/adm/parmset?action=setdefaults" name="defaultform">
+ENDDEFHEAD
+    my @ids=();
+    my %typep=();
+    my %keyp=();
+    my %allparms=();
+    my %allparts=();
+    my %allmaps=();
+    my %mapp=();
+    my %symbp=();
+    my %maptitles=();
+    my %uris=();
+    my %keyorder=&standardkeyorder();
+    my %defkeytype=();
 
+    &extractResourceInformation(\@ids, \%typep,\%keyp, \%allparms, \%allparts, \%allmaps, 
+				\%mapp, \%symbp,\%maptitles,\%uris,
+				\%keyorder,\%defkeytype);
+    if ($env{'form.storerules'}) {
+	my %newrules=();
+	my @delrules=();
+	my %triggers=();
+	foreach my $key (keys(%env)) {
+            if ($key=~/^form\.(\w+)\_action$/) {
+		my $tempkey=$1;
+		my $action=$env{$key};
+                if ($action) {
+		    $newrules{$tempkey.'_action'}=$action;
+		    if ($action ne 'default') {
+			my ($whichaction,$whichparm)=($action=~/^(.*\_)([^\_]+)$/);
+			$triggers{$whichparm}.=$tempkey.':';
+		    }
+		    $newrules{$tempkey.'_type'}=$defkeytype{$tempkey};
+		    if (&isdateparm($defkeytype{$tempkey})) {
+			$newrules{$tempkey.'_days'}=$env{'form.'.$tempkey.'_days'};
+			$newrules{$tempkey.'_hours'}=$env{'form.'.$tempkey.'_hours'};
+			$newrules{$tempkey.'_min'}=$env{'form.'.$tempkey.'_min'};
+			$newrules{$tempkey.'_sec'}=$env{'form.'.$tempkey.'_sec'};
+		    } else {
+			$newrules{$tempkey.'_value'}=$env{'form.'.$tempkey.'_value'};
+			$newrules{$tempkey.'_triggervalue'}=$env{'form.'.$tempkey.'_triggervalue'};
+		    }
+		} else {
+		    push(@delrules,$tempkey.'_action');
+		    push(@delrules,$tempkey.'_type');
+		    push(@delrules,$tempkey.'_hours');
+		    push(@delrules,$tempkey.'_min');
+		    push(@delrules,$tempkey.'_sec');
+		    push(@delrules,$tempkey.'_value');
+		}
+	    }
+	}
+	foreach my $key (keys %allparms) {
+	    $newrules{$key.'_triggers'}=$triggers{$key};
+	}
+	&Apache::lonnet::put('parmdefactions',\%newrules,$dom,$crs);
+	&Apache::lonnet::del('parmdefactions',\@delrules,$dom,$crs);
+	&resetrulescache();
+    }
+    my %lt=&Apache::lonlocal::texthash('days' => 'Days',
+				       'hours' => 'Hours',
+				       'min' => 'Minutes',
+				       'sec' => 'Seconds',
+				       'yes' => 'Yes',
+				       'no' => 'No');
+    my @standardoptions=('','default');
+    my @standarddisplay=('',&mt('Default value when manually setting'));
+    my @dateoptions=('','default');
+    my @datedisplay=('',&mt('Default value when manually setting'));
+    foreach my $tempkey (&keysindisplayorder(\%allparms,\%keyorder)) {
+	unless ($tempkey) { next; }
+	push @standardoptions,'when_setting_'.$tempkey;
+	push @standarddisplay,&mt('Automatically set when setting ').$tempkey;
+	if (&isdateparm($defkeytype{$tempkey})) {
+	    push @dateoptions,'later_than_'.$tempkey;
+	    push @datedisplay,&mt('Automatically set later than ').$tempkey;
+	    push @dateoptions,'earlier_than_'.$tempkey;
+	    push @datedisplay,&mt('Automatically set earlier than ').$tempkey;
+	} 
+    }
+$r->print(&mt('Manual setting rules apply to all interfaces.').'<br />'.
+	  &mt('Automatic setting rules apply to table mode interfaces only.'));
+    $r->print("\n<table border='1'><tr><th>".&mt('Rule for parameter').'</th><th>'.
+	      &mt('Action').'</th><th>'.&mt('Value').'</th></tr>');
+    foreach my $tempkey (&keysindisplayorder(\%allparms,\%keyorder)) {
+	unless ($tempkey) { next; }
+	$r->print("\n<tr><td>".$allparms{$tempkey}."\n<br />(".$tempkey.')</td><td>');
+	my $action=&rulescache($tempkey.'_action');
+	$r->print('<select name="'.$tempkey.'_action">');
+	if (&isdateparm($defkeytype{$tempkey})) {
+	    for (my $i=0;$i<=$#dateoptions;$i++) {
+		if ($dateoptions[$i]=~/\_$tempkey$/) { next; }
+		$r->print("\n<option value='$dateoptions[$i]'".
+			  ($dateoptions[$i] eq $action?' selected="selected"':'').
+			  ">$datedisplay[$i]</option>");
+	    }
+	} else {
+	    for (my $i=0;$i<=$#standardoptions;$i++) {
+		if ($standardoptions[$i]=~/\_$tempkey$/) { next; }
+		$r->print("\n<option value='$standardoptions[$i]'".
+			  ($standardoptions[$i] eq $action?' selected="selected"':'').
+			  ">$standarddisplay[$i]</option>");
+	    }
+	}
+	$r->print('</select>');
+	unless (&isdateparm($defkeytype{$tempkey})) {
+	    $r->print("\n<br />".&mt('Triggering value(s) of other parameter (optional, comma-separated):').
+		      '<input type="text" size="20" name="'.$tempkey.'_triggervalue" value="'.&rulescache($tempkey.'_triggervalue').'" />');
+	}
+	$r->print("\n</td><td>\n");
+
+        if (&isdateparm($defkeytype{$tempkey})) {
+	    my $days=&rulescache($tempkey.'_days');
+	    my $hours=&rulescache($tempkey.'_hours');
+	    my $min=&rulescache($tempkey.'_min');
+	    my $sec=&rulescache($tempkey.'_sec');
+	    $r->print(<<ENDINPUTDATE);
+<input name="$tempkey\_days" type="text" size="4" value="$days" />$lt{'days'}<br />
+<input name="$tempkey\_hours" type="text" size="4" value="$hours" />$lt{'hours'}<br />
+<input name="$tempkey\_min" type="text" size="4" value="$min" />$lt{'min'}<br />
+<input name="$tempkey\_sec" type="text" size="4" value="$sec" />$lt{'sec'}
+ENDINPUTDATE
+	} elsif ($defkeytype{$tempkey} eq 'string_yesno') {
+            my $yeschecked='';
+            my $nochecked='';
+            if (&rulescache($tempkey.'_value') eq 'yes') { $yeschecked='checked="checked"'; }
+            if (&rulescache($tempkey.'_value') eq 'no') { $nochecked='checked="checked"'; }
+
+	    $r->print(<<ENDYESNO);
+<label><input type="radio" name="$tempkey\_value" value="yes" $yeschecked /> $lt{'yes'}</label><br />
+<label><input type="radio" name="$tempkey\_value" value="no" $nochecked /> $lt{'no'}</label>
+ENDYESNO
+        } else {
+	    $r->print('<input type="text" size="20" name="'.$tempkey.'_value" value="'.&rulescache($tempkey.'_value').'" />');
+	}
+        $r->print('</td></tr>');
+    }
+    $r->print("</table>\n<input type='submit' name='storerules' value='".
+	      &mt('Store Rules')."' /></form>\n</body>\n</html>");
+    return;
+}
 
 ##################################################
 ##################################################
@@ -2215,7 +2987,8 @@ Main handler.  Calls &assessparms and &c
 =cut
 ##################################################
 ##################################################
-    use Data::Dumper;
+#    use Data::Dumper;
+
 sub handler {
     my $r=shift;
 
@@ -2229,7 +3002,7 @@ sub handler {
                                              'pres_marker',
                                              'pres_value',
                                              'pres_type',
-                                             'udom','uname']);
+                                             'udom','uname','symb','serial']);
 
 
     &Apache::lonhtmlcommon::clear_breadcrumbs();
@@ -2271,18 +3044,24 @@ sub handler {
         } elsif ($env{'form.action'} eq 'crsenv' && $parm_permission) {
             &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=crsenv',
 						    text=>"Course Environment"});
-            $r->print(&Apache::lonhtmlcommon::breadcrumbs(undef,
-						   'Edit Course Environment'));
             &crsenv($r); 
         } elsif ($env{'form.action'} eq 'setoverview' && $parm_permission) {
             &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setoverview',
 						    text=>"Overview Mode"});
 	    &overview($r);
+        } elsif ($env{'form.action'} eq 'setinstmeta' && $parm_permission) {
+            &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setinstmeta',
+						    text=>"Instructor Metadata"});
+	    &setinstmeta($r);
         } elsif ($env{'form.action'} eq 'newoverview' && $parm_permission) {
             &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setoverview',
 						    text=>"Overview Mode"});
 	    &newoverview($r);
-        } elsif ($env{'form.action'} eq 'settable' && $parm_permission) {
+        }  elsif ($env{'form.action'} eq 'setdefaults' && $parm_permission) {
+            &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=setdefaults',
+						    text=>"Set Defaults"});
+	    &defaultsetter($r);
+	} elsif ($env{'form.action'} eq 'settable' && $parm_permission) {
             &Apache::lonhtmlcommon::add_breadcrumb({href=>'/adm/parmset?action=settable',
 						    text=>"Table Mode",
 						    help => 'Course_Setting_Parameters'});