loncom/interface/lonparmset.pm - diff

Return to lonparmset.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonparmset.pm between versions 1.430 and 1.432

version 1.430, 2009/02/13 20:20:30	version 1.432, 2009/02/15 17:19:39
Line 1183 sub extractResourceInformation {	Line 1183 sub extractResourceInformation {
#	#
my $name=&Apache::lonnet::metadata($srcf,$key.'.name');	my $name=&Apache::lonnet::metadata($srcf,$key.'.name');
if (!exists($$allparms{$name}) \|\| $$allparms{$name} =~ m/^\s*$/ ) {	if (!exists($$allparms{$name}) \|\| $$allparms{$name} =~ m/^\s*$/ ) {
my $display= &Apache::lonnet::metadata($srcf,$key.'.display');	my ($display,$parmdis);
my $parmdis = $display;	$display = &standard_parameter_names($name);
$parmdis =~ s/\s\[Part.$//g;	if ($display eq '') {
	$display= &Apache::lonnet::metadata($srcf,$key.'.display');
	$parmdis = $display;
	$parmdis =~ s/\s\[Part.$//g;
	} else {
	$parmdis = $display;
	}
$$allparms{$name}=$parmdis;	$$allparms{$name}=$parmdis;
if (ref($defkeytype)) {	if (ref($defkeytype)) {
$$defkeytype{$name}=	$$defkeytype{$name}=
Line 1317 ENDSCRIPT	Line 1323 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;	$r->print(' />'.($$allparms{$tempkey}=~/\S/ ? $$allparms{$tempkey}
if ($$allparms{$tempkey}=~/\S/) {	: $tempkey)
$displaykey = $$allparms{$tempkey};	.'</label></td>');
} 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>");

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.430
changed lines
	Added in v.1.432