loncom/interface/lonparmset.pm - diff

Return to lonparmset.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.19, 2000/12/08 17:16:37	version 1.20, 2000/12/12 21:33:50
Line 9	Line 9
#	#
# 10/11,10/12,10/16 Gerd Kortemeyer)	# 10/11,10/12,10/16 Gerd Kortemeyer)
#	#
# 11/20,11/21,11/22,11/23,11/24,11/25,11/27,11/28,12/08 Gerd Kortemeyer	# 11/20,11/21,11/22,11/23,11/24,11/25,11/27,11/28,
	# 12/08,12/12 Gerd Kortemeyer

package Apache::lonparmset;	package Apache::lonparmset;

Line 250 sub handler {	Line 251 sub handler {
$allkeys{$allkey}=$display;	$allkeys{$allkey}=$display;
if ($allkey eq $fcat) {	if ($allkey eq $fcat) {
$defp{$id}=	$defp{$id}=
&Apache::lonnet::metadata($srcf,$key.'.default');	&Apache::lonnet::metadata($srcf,$key);
}	}
if ($keyp{$id}) {	if ($keyp{$id}) {
$keyp{$id}.=','.$key;	$keyp{$id}.=','.$key;
Line 490 ENDTABLEHEADFOUR	Line 491 ENDTABLEHEADFOUR
$display{$_}=&Apache::lonnet::metadata($uri,$_.'.display');	$display{$_}=&Apache::lonnet::metadata($uri,$_.'.display');
unless ($display{$_}) { $display{$_}=''; }	unless ($display{$_}) { $display{$_}=''; }
$display{$_}.=' ('.$name{$_}.')';	$display{$_}.=' ('.$name{$_}.')';
$default{$_}=&Apache::lonnet::metadata($uri,$_.'.default');	$default{$_}=&Apache::lonnet::metadata($uri,$_);
$type{$_}=&Apache::lonnet::metadata($uri,$_.'.type');	$type{$_}=&Apache::lonnet::metadata($uri,$_.'.type');
$thistitle=&Apache::lonnet::metadata($uri,$_.'.title');	$thistitle=&Apache::lonnet::metadata($uri,$_.'.title');
} split(/\,/,$keyp{$rid});	} split(/\,/,$keyp{$rid});