loncom/interface/lonparmset.pm - diff

Return to lonparmset.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.337, 2006/09/27 23:30:12	version 1.338, 2006/09/28 23:58:53
Line 3225 sub addmetafield {	Line 3225 sub addmetafield {
my $meta_field = $env{'form.fieldname'};	my $meta_field = $env{'form.fieldname'};
my $display_field = $env{'form.fieldname'};	my $display_field = $env{'form.fieldname'};
$meta_field =~ s/\W/_/g;	$meta_field =~ s/\W/_/g;
	$meta_field =~ tr/A-Z/a-z/;
my $put_result = &Apache::lonnet::put('environment',	my $put_result = &Apache::lonnet::put('environment',
{'metadata.'.$meta_field.'.values'=>"",	{'metadata.'.$meta_field.'.values'=>"",
'metadata.'.$meta_field.'.added'=>"$display_field",	'metadata.'.$meta_field.'.added'=>"$display_field",