--- loncom/interface/lonparmset.pm	2000/12/12 21:33:50	1.20
+++ loncom/interface/lonparmset.pm	2001/01/16 15:52:09	1.21
@@ -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 Gerd Kortemeyer
 
 package Apache::lonparmset;
 
@@ -497,6 +498,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 +514,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 +579,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>');