--- loncom/interface/lonparmset.pm	2000/12/12 21:33:50	1.20
+++ loncom/interface/lonparmset.pm	2001/02/08 14:05:10	1.23
@@ -10,7 +10,8 @@
 # 10/11,10/12,10/16 Gerd Kortemeyer)
 #
 # 11/20,11/21,11/22,11/23,11/24,11/25,11/27,11/28,
-# 12/08,12/12 Gerd Kortemeyer
+# 12/08,12/12,
+# 16/01/01,02/08 Gerd Kortemeyer
 
 package Apache::lonparmset;
 
@@ -137,9 +138,18 @@ sub valout {
 
 sub plink {
     my ($type,$dis,$value,$marker,$return,$call)=@_;
-    return '<a href="javascript:pjump('."'".$type."','".$dis."','".$value."','"
+    my $winvalue=$value;
+    unless ($winvalue) {
+	if ($type=~/^date/) {
+            $winvalue=$ENV{'form.recent_'.$type};
+        } else {
+            $winvalue=$ENV{'form.recent_'.(split(/\_/,$type))[0]};
+        }
+    }
+    return 
+      '<a href="javascript:pjump('."'".$type."','".$dis."','".$winvalue."','"
       .$marker."','".$return."','".$call."'".');">'.
-      &valout($value,$type).'</a>';
+      &valout($value,$type).'</a><a name="'.$marker.'"></a>';
 }
 
 # ================================================================ Main Handler
@@ -391,6 +401,17 @@ sub handler {
     function psub() {
         pclose();
         if (document.parmform.pres_marker.value!='') {
+            document.parmform.action+='#'+document.parmform.pres_marker.value;
+            var typedef=new Array();
+            typedef=document.parmform.pres_type.value.split('_');
+            if (typedef[0]=='date') {
+                eval('document.parmform.recent_'+
+                     document.parmform.pres_type.value+
+		     '.value=document.parmform.pres_value.value;');
+            } else {
+                eval('document.parmform.recent_'+typedef[0]+
+		     '.value=document.parmform.pres_value.value;');
+            }
             document.parmform.submit();
         } else {
             document.parmform.pres_value.value='';
@@ -420,6 +441,11 @@ at Domain
 <input type="hidden" value='' name="pres_type">
 <input type="hidden" value='' name="pres_marker">
 ENDHEAD
+    map {
+      $r->print('<input type="hidden" value="'.
+          $ENV{'form.recent_'.$_}.'" name="recent_'.$_.'">');
+    } ('tolerance','date_default','date_start','date_end','date_interval',
+       'int','float','string');
 
         $r->print('<h2>'.$message.'</h2><p>Sort list by ');
 	$r->print('<select name="fcat" onChange="this.form.submit();">');
@@ -497,6 +523,8 @@ ENDTABLEHEADFOUR
             } split(/\,/,$keyp{$rid});
 
 	    my $totalparms=scalar keys %name;
+	    my $isdef=1;
+	    unless ($totalparms) { $totalparms=1; $isdef=0; }
             $r->print('<td bgcolor='.$defbgone.
                 ' rowspan='.$totalparms.'><tt><font size=-1>'.
                 join(' / ',split(/\//,$uri)).
@@ -511,6 +539,7 @@ ENDTABLEHEADFOUR
             $r->print('<td bgcolor='.$defbgone.
                     ' rowspan='.$totalparms.'><tt><font size=-1>'.
 		      join(' / ',split(/\//,$mapp{$rid})).'</font></tt></td>');
+	  if ($isdef) {
             map {
 	       my $result=&parmval($part{$_}.'.'.$name{$_},$rid,$default{$_});
 
@@ -575,6 +604,9 @@ ENDTABLEHEADFOUR
         '<td bgcolor=#CCCCFF>'.&valout($outpar[$result],$type{$_}).'</td>');
                $r->print("</tr>\n<tr>");
 	   } sort keys %name;
+	} else {
+	    $r->print("</tr>\n<tr>");
+        }
 # -------------------------------------------------- End entry for one resource
 	 } @ids;
          $r->print('</table></form></body></html>');