loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.768, 2006/08/04 19:42:59	version 1.769, 2006/08/04 21:33:34
Line 3475 sub allowed {	Line 3475 sub allowed {
if (defined($env{'allowed.'.$priv})) { return $env{'allowed.'.$priv}; }	if (defined($env{'allowed.'.$priv})) { return $env{'allowed.'.$priv}; }
# Free bre access to adm and meta resources	# Free bre access to adm and meta resources
if (((($uri=~/^adm\//) && ($uri !~ m\|/bulletinboard$\|))	if (((($uri=~/^adm\//) && ($uri !~ m\|/bulletinboard$\|))
\|\| ($uri=~/\.meta$/)) && ($priv eq 'bre')) {	\|\| (($uri=~/\.meta$/) && ($uri!~m\|^uploaded/\|) ))
	&& ($priv eq 'bre')) {
return 'F';	return 'F';
}	}

Line 4914 sub get_portfile_permissions {	Line 4915 sub get_portfile_permissions {

sub get_access_controls {	sub get_access_controls {
my ($current_permissions,$group,$file) = @_;	my ($current_permissions,$group,$file) = @_;
my %access;	my %access;
	my $real_file = $file;
	$file =~ s/\.meta$//;
if (defined($file)) {	if (defined($file)) {
if (ref($$current_permissions{$file."\0".'accesscontrol'}) eq 'HASH') {	if (ref($$current_permissions{$file."\0".'accesscontrol'}) eq 'HASH') {
foreach my $control (keys(%{$$current_permissions{$file."\0".'accesscontrol'}})) {	foreach my $control (keys(%{$$current_permissions{$file."\0".'accesscontrol'}})) {
$access{$file}{$control} = $$current_permissions{$file."\0".$control};	$access{$real_file}{$control} = $$current_permissions{$file."\0".$control};
}	}
}	}
} else {	} else {