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.193, 2007/01/02 19:38:17
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$//;