--- loncom/interface/lonparmset.pm	2009/02/15 15:14:34	1.431
+++ loncom/interface/lonparmset.pm	2009/02/15 17:19:39	1.432
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.431 2009/02/15 15:14:34 raeburn Exp $
+# $Id: lonparmset.pm,v 1.432 2009/02/15 17:19:39 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1183,9 +1183,15 @@ sub extractResourceInformation {
 #
 	    my $name=&Apache::lonnet::metadata($srcf,$key.'.name');
 	    if (!exists($$allparms{$name}) || $$allparms{$name} =~ m/^\s*$/ ) {
-		my $display= &Apache::lonnet::metadata($srcf,$key.'.display');
-		my $parmdis = $display;
-		$parmdis =~ s/\s*\[Part.*$//g;
+		my ($display,$parmdis);
+		$display = &standard_parameter_names($name);
+		if ($display eq '') {
+		    $display= &Apache::lonnet::metadata($srcf,$key.'.display');
+		    $parmdis = $display;
+		    $parmdis =~ s/\s*\[Part.*$//g;
+		} else {
+		    $parmdis = $display;
+		}
 		$$allparms{$name}=$parmdis;
 		if (ref($defkeytype)) {
 		    $$defkeytype{$name}=
@@ -1317,15 +1323,9 @@ ENDSCRIPT
 	if ($$pscat[0] eq "all" || grep $_ eq $tempkey, @{$pscat}) {
 	    $r->print(' checked="checked"');
 	}
-        my $displaykey = &standard_parameter_names($tempkey);
-        if ($displaykey eq '') {
-            if ($$allparms{$tempkey}=~/\S/) {
-                $displaykey = $$allparms{$tempkey};
-            } else {
-                $displaykey = $tempkey;
-            }
-        }
-        $r->print(' />'.$displaykey.'</label></td>');
+        $r->print(' />'.($$allparms{$tempkey}=~/\S/ ? $$allparms{$tempkey}
+                                                  : $tempkey)
+                  .'</label></td>');
  	$cnt++;
         if ($cnt==3) {
 	    $r->print("</tr>\n<tr>");