loncom/interface/lonparmset.pm - diff

Return to lonparmset.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.430, 2009/02/13 20:20:30	version 1.431, 2009/02/15 15:14:34
Line 1317 ENDSCRIPT	Line 1317 ENDSCRIPT
if ($$pscat[0] eq "all" \|\| grep $_ eq $tempkey, @{$pscat}) {	if ($$pscat[0] eq "all" \|\| grep $_ eq $tempkey, @{$pscat}) {
$r->print(' checked="checked"');	$r->print(' checked="checked"');
}	}
my $displaykey;	my $displaykey = &standard_parameter_names($tempkey);
if ($$allparms{$tempkey}=~/\S/) {	if ($displaykey eq '') {
$displaykey = $$allparms{$tempkey};	if ($$allparms{$tempkey}=~/\S/) {
} else {	$displaykey = $$allparms{$tempkey};
$displaykey = $tempkey;	} else {
	$displaykey = $tempkey;
	}
}	}
$displaykey =~ s/(\[\|\])/~$1/g;	$r->print(' />'.$displaykey.'</label></td>');
$r->print(' />'.&mt($displaykey).'</label></td>');
$cnt++;	$cnt++;
if ($cnt==3) {	if ($cnt==3) {
$r->print("</tr>\n<tr>");	$r->print("</tr>\n<tr>");