loncom/interface/lonparmset.pm - diff

Return to lonparmset.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.426, 2009/01/28 17:00:00	version 1.428, 2009/02/03 21:11:16
Line 980 sub print_row {	Line 980 sub print_row {
if ($automatic) {	if ($automatic) {
$parm.='<span class="LC_warning"><br />'.&mt('Automatically sets').' '.join(', ',split(/\:/,$automatic)).'</span>';	$parm.='<span class="LC_warning"><br />'.&mt('Automatically sets').' '.join(', ',split(/\:/,$automatic)).'</span>';
}	}
$r->print('<td style="background-color:'.$defbgone.';">'.$parm.'</td>');	$r->print('<td>'.$parm.'</td>');

my $thismarker=$which;	my $thismarker=$which;
$thismarker=~s/^parameter\_//;	$thismarker=~s/^parameter\_//;
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>");