loncom/interface/lonparmset.pm - diff

Return to lonparmset.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.427, 2009/01/28 17:13:03	version 1.428, 2009/02/03 21:11:16
Line 1316 ENDSCRIPT	Line 1316 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"');
}	}
$r->print(' />'.($$allparms{$tempkey}=~/\S/ ? &mt($$allparms{$tempkey})	my $displaykey;
: &mt($tempkey))	if ($$allparms{$tempkey}=~/\S/) {
.'</label></td>');	$displaykey = $$allparms{$tempkey};
	} else {
	$displaykey = $tempkey;
	}
	$displaykey =~ s/(\[\|\])/~$1/g;
	$r->print(' />'.&mt($displaykey).'</label></td>');
$cnt++;	$cnt++;
if ($cnt==3) {	if ($cnt==3) {
$r->print("</tr>\n<tr>");	$r->print("</tr>\n<tr>");