--- 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('