loncom/interface/lonmeta.pm - diff

Return to lonmeta.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.192, 2007/01/02 12:54:40	version 1.194, 2007/01/12 19:56:07
Line 1410 sub update_metadata_table {	Line 1410 sub update_metadata_table {
my ($udom,$uname,$remainder) =	my ($udom,$uname,$remainder) =
($uri=~m -^/+(?:uploaded\|editupload)/+($match_domain)/+($match_name)/+(.*)$-);	($uri=~m -^/+(?:uploaded\|editupload)/+($match_domain)/+($match_name)/+(.*)$-);

if ($remainder =~ /groups\/(\w+)\/portfolio(\/.+)$/) {	if ($remainder =~ /^groups\/(\w+)\/portfolio(\/.+)$/) {
$group = $1;	$group = $1;
$file_name = $2;	$file_name = $2;
} elsif ($remainder =~ /portfolio(\/.+)$/) {	} elsif ($remainder =~ /^portfolio(\/.+)$/) {
$file_name = $1;	$file_name = $1;
}	}
$file_name =~ s/\.meta$//;	$file_name =~ s/\.meta$//;
Line 1437 sub update_metadata_table {	Line 1437 sub update_metadata_table {
if ($available) {	if ($available) {
my $result =	my $result =
&Apache::lonnet::update_portfolio_table($uname,$udom,	&Apache::lonnet::update_portfolio_table($uname,$udom,
$file_name,'portfolio_metadata',$group);	$file_name,'portfolio_metadata',$group,'update');
}	}
}	}