version 1.195, 2007/01/12 20:04:16
|
version 1.196, 2007/01/12 22:13:51
|
Line 1409 sub store_portfolio_metadata {
|
Line 1409 sub store_portfolio_metadata {
|
|
|
sub update_metadata_table { |
sub update_metadata_table { |
my ($uri) = @_; |
my ($uri) = @_; |
my ($group,$file_name); |
my ($type,$udom,$uname,$file_name,$group) = |
my ($udom,$uname,$remainder) = |
&Apache::lonnet::parse_portfolio_url($uri); |
($uri=~m -^/+(?:uploaded|editupload)/+($match_domain)/+($match_name)/+(.*)$-); |
|
|
|
if ($remainder =~ /^groups\/(\w+)\/portfolio(\/.+)$/) { |
|
$group = $1; |
|
$file_name = $2; |
|
} elsif ($remainder =~ /^portfolio(\/.+)$/) { |
|
$file_name = $1; |
|
} |
|
$file_name =~ s/\.meta$//; |
$file_name =~ s/\.meta$//; |
my $current_permissions = |
my $current_permissions = |
&Apache::lonnet::get_portfile_permissions($udom,$uname); |
&Apache::lonnet::get_portfile_permissions($udom,$uname); |
my %access_controls = |
my %access_controls = |
&Apache::lonnet::get_access_controls($current_permissions,$group, |
&Apache::lonnet::get_access_controls($current_permissions,$group, |
$group.$file_name); |
$file_name); |
my $access_hash = $access_controls{$file_name}; |
my $access_hash = $access_controls{$file_name}; |
my $available = 0; |
my $available = 0; |
if (ref($access_hash) eq 'HASH') { |
if (ref($access_hash) eq 'HASH') { |