--- loncom/interface/lonparmset.pm	2000/12/12 21:33:50	1.20
+++ loncom/interface/lonparmset.pm	2001/02/08 12:36:57	1.22
@@ -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;
 
@@ -139,7 +140,7 @@ sub plink {
     my ($type,$dis,$value,$marker,$return,$call)=@_;
     return '<a href="javascript:pjump('."'".$type."','".$dis."','".$value."','"
       .$marker."','".$return."','".$call."'".');">'.
-      &valout($value,$type).'</a>';
+      &valout($value,$type).'</a><a name="'.$marker.'"></a>';
 }
 
 # ================================================================ Main Handler
@@ -391,6 +392,7 @@ sub handler {
     function psub() {
         pclose();
         if (document.parmform.pres_marker.value!='') {
+            document.parmform.action+='#'+document.parmform.pres_marker.value;
             document.parmform.submit();
         } else {
             document.parmform.pres_value.value='';
@@ -497,6 +499,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 +515,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 +580,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>');