version 1.2, 2006/07/14 21:38:26
|
version 1.3, 2006/07/17 19:49:14
|
Line 102 function verify() {
|
Line 102 function verify() {
|
|
|
sub check_pass { |
sub check_pass { |
my ($r,$origurl) = @_; |
my ($r,$origurl) = @_; |
my ($udom,$unum,$group,$file_name,$result,$end); |
my (undef,$udom,$unum,$file_name,$group) = |
if ($origurl =~ m-/+uploaded/([^/]+)/([^/]+)/portfolio(/.+)$-) { |
&Apache::lonacc::parse_portfolio_url($origurl); |
$udom = $1; |
|
$unum = $2; |
|
$file_name = $3; |
|
} elsif ($origurl =~ m-/+uploaded/([^/]+)/([^/]+)/groups/([^/]+)/portfolio/(.+)$-) { |
|
$udom = $1; |
|
$unum = $2; |
|
$group = $3; |
|
$file_name = $3.'/'.$4; |
|
} |
|
my $curr_perms = &Apache::lonnet::get_portfile_permissions($udom,$unum); |
my $curr_perms = &Apache::lonnet::get_portfile_permissions($udom,$unum); |
my %acc_controls = &Apache::lonnet::get_access_controls($curr_perms, |
my %acc_controls = &Apache::lonnet::get_access_controls($curr_perms, |
$group,$file_name); |
$group,$file_name); |
my $access_hash = $acc_controls{$file_name}; |
my $access_hash = $acc_controls{$file_name}; |
|
|
|
my ($result,$end); |
foreach my $key (sort(keys(%{$access_hash}))) { |
foreach my $key (sort(keys(%{$access_hash}))) { |
if ($key =~ /^[^:]+:guest_(\d+)/) { |
if ($key =~ /^[^:]+:guest_(\d+)/) { |
$end = $1; |
$end = $1; |