version 1.3, 2006/07/17 19:49:14
|
version 1.4, 2006/07/21 18:52:32
|
Line 103 function verify() {
|
Line 103 function verify() {
|
sub check_pass { |
sub check_pass { |
my ($r,$origurl) = @_; |
my ($r,$origurl) = @_; |
my (undef,$udom,$unum,$file_name,$group) = |
my (undef,$udom,$unum,$file_name,$group) = |
&Apache::lonacc::parse_portfolio_url($origurl); |
&Apache::lonnet::parse_portfolio_url($origurl); |
|
|
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, |