loncom/interface/lonparmset.pm - diff

Return to lonparmset.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.264, 2005/11/11 20:37:47	version 1.266, 2005/11/14 14:01:52
Line 316 sub storeparm_by_symb {	Line 316 sub storeparm_by_symb {
# store parameter	# store parameter
&storeparm_by_symb_inner	&storeparm_by_symb_inner
($symb,$spnam,$snum,$nval,$ntype,$uname,$udom,$csec);	($symb,$spnam,$snum,$nval,$ntype,$uname,$udom,$csec);
	# don't do anything if parameter was reset
	unless ($nval) { return; }
my ($prefix,$parm)=($spnam=~/^(.*[\_\.])([^\_\.]+)$/);	my ($prefix,$parm)=($spnam=~/^(.*[\_\.])([^\_\.]+)$/);
# remember that this was set	# remember that this was set
$recstack{$parm}=1;	$recstack{$parm}=1;
Line 2820 sub setrestrictmeta {	Line 2822 sub setrestrictmeta {
&Apache::lonnet::coursedescription($env{'request.course.id'});	&Apache::lonnet::coursedescription($env{'request.course.id'});
my %metadata_fields = &Apache::lonmeta::fieldnames('portfolio');	my %metadata_fields = &Apache::lonmeta::fieldnames('portfolio');
foreach my $field (sort(keys(%metadata_fields))) {	foreach my $field (sort(keys(%metadata_fields))) {
$output.= &output_row($r, $field, $metadata_fields{$field});	&Apache::lonnet::logthis ($field);
	if ($field ne 'courserestricted') {
	$output.= &output_row($r, $field, $metadata_fields{$field});
	}
}	}
$r->print(<<ENDenv);	$r->print(<<ENDenv);
<form method="post" action="/adm/parmset?action=setrestrictmeta" name="form">	<form method="post" action="/adm/parmset?action=setrestrictmeta" name="form">