loncom/interface/lonparmset.pm - diff

Return to lonparmset.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.261, 2005/10/17 21:33:52	version 1.263, 2005/11/04 20:08:09
Line 2753 ENDMAINFORMHEAD	Line 2753 ENDMAINFORMHEAD
sub output_row {	sub output_row {
my ($r, $field_name, $field_text) = @_;	my ($r, $field_name, $field_text) = @_;
my $output;	my $output;
my $options=$env{'course.'.$env{'request.course.id'}.'.'.$field_name.'.options'};	my $options=$env{'course.'.$env{'request.course.id'}.'.metadata.'.$field_name.'.options'};
my $values=$env{'course.'.$env{'request.course.id'}.'.'.$field_name.'.values'};	my $values=$env{'course.'.$env{'request.course.id'}.'.metadata.'.$field_name.'.values'};
my $checked;	my $checked;
unless (defined($options)) {	unless (defined($options)) {
$options = 'active,stuadd';	$options = 'active,stuadd';
Line 2822 sub setrestrictmeta {	Line 2822 sub setrestrictmeta {
}	}
my $name = $save_field;	my $name = $save_field;
$put_result = &Apache::lonnet::put('environment',	$put_result = &Apache::lonnet::put('environment',
{$meta_field.'.options'=>$options,	{'metadata.'.$meta_field.'.options'=>$options,
$meta_field.'.values'=>$env{'form.'.$meta_field.'_values'},	'metadata.'.$meta_field.'.values'=>$env{'form.'.$meta_field.'_values'},
},$dom,$crs);	},$dom,$crs);
}	}
}	}