loncom/interface/lonparmset.pm - diff

Return to lonparmset.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.392, 2008/03/06 21:37:59	version 1.393, 2008/03/12 02:45:07
Line 2142 sub crsenv {	Line 2142 sub crsenv {
}	}
}	}
if ($name eq 'description' && defined($value)) {	if ($name eq 'description' && defined($value)) {
&Apache::lonnet::appenv('course.'.$env{'request.course.id'}.'.description' => $value);	&Apache::lonnet::appenv({'course.'.$env{'request.course.id'}.'.description' => $value});
if (ref($crsinfo{$env{'request.course.id'}}) eq 'HASH') {	if (ref($crsinfo{$env{'request.course.id'}}) eq 'HASH') {
$crsinfo{$env{'request.course.id'}}{'description'} = $value;	$crsinfo{$env{'request.course.id'}}{'description'} = $value;
my $putresult =	my $putresult =
Line 3604 sub order_meta_fields {	Line 3604 sub order_meta_fields {
my $ordered_fields = join ",", @neworder;	my $ordered_fields = join ",", @neworder;
my $put_result = &Apache::lonnet::put('environment',	my $put_result = &Apache::lonnet::put('environment',
{'metadata.addedorder'=>$ordered_fields},$dom,$crs);	{'metadata.addedorder'=>$ordered_fields},$dom,$crs);
&Apache::lonnet::appenv('course.'.$env{'request.course.id'}.'.metadata.addedorder' => $ordered_fields);	&Apache::lonnet::appenv({'course.'.$env{'request.course.id'}.'.metadata.addedorder' => $ordered_fields});
}	}
my $fields = &get_added_meta_fieldnames($env{'request.course.id'});	my $fields = &get_added_meta_fieldnames($env{'request.course.id'});
my $ordered_fields;	my $ordered_fields;