loncom/interface/lonparmset.pm - diff

Return to lonparmset.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.410, 2008/10/10 10:19:08	version 1.411, 2008/10/10 10:54:03
Line 973 sub extractResourceInformation {	Line 973 sub extractResourceInformation {
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= &Apache::lonnet::metadata($srcf,$key.'.display');
my $parmdis = $display;	my $parmdis = $display;
$parmdis =~ s/\[Part.*$//g;	$parmdis =~ s/ \[Part.*$//g;
$$allparms{$name}=$parmdis;	$$allparms{$name}=$parmdis;
if (ref($defkeytype)) {	if (ref($defkeytype)) {
$$defkeytype{$name}=	$$defkeytype{$name}=
Line 1107 ENDSCRIPT	Line 1107 ENDSCRIPT
if ($$pscat[0] eq "all" \|\| grep $_ eq $tempkey, @{$pscat}) {	if ($$pscat[0] eq "all" \|\| grep $_ eq $tempkey, @{$pscat}) {
$r->print(' checked');	$r->print(' checked');
}	}
$r->print('>'.($$allparms{$tempkey}=~/\S/ ? $$allparms{$tempkey}	$r->print('>'.($$allparms{$tempkey}=~/\S/ ? &mt($$allparms{$tempkey})
: $tempkey)	: &mt($tempkey))
.'</label></td>');	.'</label></td>');
$cnt++;	$cnt++;
if ($cnt==3) {	if ($cnt==3) {