loncom/interface/lonmeta.pm - diff

Return to lonmeta.pm CVS log

Up to [LON-CAPA] / loncom / interface

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') {