--- loncom/interface/lonparmset.pm	2005/06/05 17:24:04	1.210
+++ loncom/interface/lonparmset.pm	2005/06/18 18:51:50	1.230
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.210 2005/06/05 17:24:04 www Exp $
+# $Id: lonparmset.pm,v 1.230 2005/06/18 18:51:50 www 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>';
 }
 
@@ -668,6 +753,7 @@ sub extractResourceInformation {
     my $maptitles=shift;
     my $uris=shift;
     my $keyorder=shift;
+    my $defkeytype=shift;
 
     my $keyordercnt=100;
 
@@ -699,6 +785,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
 #
@@ -740,8 +827,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">
@@ -769,8 +861,18 @@ sub parmmenu {
 	checkthis('duedate','pscat');
  	checkthis('opendate','pscat');
 	checkthis('answerdate','pscat');
-	checkthis('interval','pscat');
-   }
+    }
+
+    function checkdisset() {
+	checkthis('discussend','pscat');
+ 	checkthis('discusshide','pscat');
+    }
+
+    function checkcontdates() {
+	checkthis('contentopen','pscat');
+ 	checkthis('contentclose','pscat');
+    }
+ 
 
     function checkvisi() {
 	checkthis('hiddenresource','pscat');
@@ -798,8 +900,7 @@ ENDSCRIPT
     $r->print();
     $r->print("\n<table><tr>");
     my $cnt=0;
-    foreach $tempkey (sort { $$allparms{$a} cmp $$allparms{$b} }
-                      keys %{$allparms} ) {
+    foreach $tempkey (&keysindisplayorder($allparms,$keyorder)) {
 	$r->print("\n<td><font size='-1'><input type='checkbox' name='pscat' ");
 	$r->print('value="'.$tempkey.'"');
 	if ($$pscat[0] eq "all" || grep $_ eq $tempkey, @{$pscat}) {
@@ -814,12 +915,14 @@ ENDSCRIPT
     }
     $r->print('
 </tr><tr><td>
-<a href="javascript:checkall(true, \'pscat\')">Select All</a>
-<a href="javascript:checkstandard()">Select Standard</a>
+<a href="javascript:checkall(true, \'pscat\')">Select All</a><br />
+<a href="javascript:checkstandard()">Select Common Only</a>
 </td><td>
-<a href="javascript:checkdates()">Select Dates</a>
-<a href="javascript:checkvisi()">Select Visibilities</a>
-<a href="javascript:checkparts()">Select Part Parameters</a>
+<a href="javascript:checkdates()">Add Problem Dates</a>
+<a href="javascript:checkcontdates()">Add Content Dates</a><br />
+<a href="javascript:checkdisset()">Add Discussion Settings</a>
+<a href="javascript:checkvisi()">Add Visibilities</a><br />
+<a href="javascript:checkparts()">Add Part Parameters</a>
 </td><td>
 <a href="javascript:checkall(false, \'pscat\')">Unselect All</a>
 </td>
@@ -829,7 +932,7 @@ 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>');
@@ -886,10 +989,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>');
@@ -923,6 +1026,30 @@ 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));
@@ -935,6 +1062,50 @@ sub keysinorder {
     } (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 /><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('<br /><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'));
+}
+
+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);
+}
+
 ##################################################
 ##################################################
 
@@ -990,7 +1161,7 @@ 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;
@@ -998,24 +1169,8 @@ sub assessparms {
 #
 # Order in which these parameters will be displayed
 #
-    my %keyorder=('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);
+    my %keyorder=&standardkeyorder();
+
     @ids=();
     %symbp=();
     %typep=();
@@ -1153,11 +1308,11 @@ 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 />');
     }
     &usermenu($r,$uname,$id,$udom,$csec);    
 
@@ -1724,8 +1879,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>',
@@ -1912,9 +2067,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 {
@@ -1924,7 +2082,8 @@ sub storedata {
 			&Apache::lonnet::devalidateuserresdata($tuname,$tudom);
 		    } else {
 			$newdata{$thiskey}=$data;
-                    } 
+ 			$newdata{$thiskey.'.type'}=$typeof; 
+                   } 
 		}
 	    } elsif ($cmd eq 'del') {
 		if ($tuname) {
@@ -1940,9 +2099,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">'.
@@ -1950,7 +2112,8 @@ sub storedata {
 			}
 			&Apache::lonnet::devalidateuserresdata($tuname,$tudom);
 		    } else {
-			$newdata{$thiskey}=$data; 
+			$newdata{$thiskey}=$data;
+			$newdata{$thiskey.'.type'}=$typeof; 
 		    }
 		}
 	    }
@@ -1971,7 +2134,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>');
@@ -1986,7 +2149,7 @@ sub extractuser {
 }
 
 sub listdata {
-    my ($r,$resourcedata,$listdata)=@_;
+    my ($r,$resourcedata,$listdata,$sortorder)=@_;
 # Start list output
 
     my $oldsection='';
@@ -1995,8 +2158,20 @@ 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'}\.([^\.]+)\.(.+)\.[^\.]+$/);
+            ($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');
@@ -2018,42 +2193,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',
 							      $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>');
 	}
     }
@@ -2062,8 +2286,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');
@@ -2077,14 +2300,138 @@ $bodytag
 $breadcrumbs
 <form method="post" action="/adm/parmset?action=newoverview" name="overviewform">
 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');
@@ -2106,9 +2453,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>');
@@ -2242,28 +2594,27 @@ ENDMAINFORMHEAD
 	    action => 'crsenv',
             permission => $parm_permission,
             },
-          { text => 'Set/Modify Course Assessment Parameters - Helper Mode',
+          { 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) {
@@ -2288,7 +2639,161 @@ ENDMAINFORMHEAD
 }
 
 
+##################################################
 
+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("\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;
+}
 
 ##################################################
 ##################################################
@@ -2302,7 +2807,8 @@ Main handler.  Calls &assessparms and &c
 =cut
 ##################################################
 ##################################################
-    use Data::Dumper;
+#    use Data::Dumper;
+
 sub handler {
     my $r=shift;
 
@@ -2316,7 +2822,7 @@ sub handler {
                                              'pres_marker',
                                              'pres_value',
                                              'pres_type',
-                                             'udom','uname']);
+                                             'udom','uname','symb']);
 
 
     &Apache::lonhtmlcommon::clear_breadcrumbs();
@@ -2358,8 +2864,6 @@ 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',
@@ -2369,7 +2873,11 @@ sub handler {
             &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'});