loncom/auth/restrictedaccess.pm - diff

Return to restrictedaccess.pm CVS log

Up to [LON-CAPA] / loncom / auth

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,