loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.766, 2006/07/21 19:42:25	version 1.767, 2006/08/02 19:29:32
Line 3232 sub portfolio_access {	Line 3232 sub portfolio_access {
}	}

sub get_portfolio_access {	sub get_portfolio_access {
my ($udom,$unum,$file_name,$group) = @_;	my ($udom,$unum,$file_name,$group,$access_hash) = @_;

my $current_perms = &get_portfile_permissions($udom,$unum);	if (!ref($access_hash)) {
my %access_controls = &get_access_controls($current_perms,$group,	my $current_perms = &get_portfile_permissions($udom,$unum);
$file_name);	my %access_controls = &get_access_controls($current_perms,$group,
	$file_name);
	$access_hash = $access_controls{$file_name};
	}

my ($public,$guest,@domains,@users,@courses,@groups);	my ($public,$guest,@domains,@users,@courses,@groups);
my $now = time;	my $now = time;
my $access_hash = $access_controls{$file_name};
if (ref($access_hash) eq 'HASH') {	if (ref($access_hash) eq 'HASH') {
foreach my $key (keys(%{$access_hash})) {	foreach my $key (keys(%{$access_hash})) {
my ($num,$scope,$end,$start) = ($key =~ /^([^:]+):([a-z]+)_(\d)_?(\d)$/);	my ($num,$scope,$end,$start) = ($key =~ /^([^:]+):([a-z]+)_(\d)_?(\d)$/);