![]() ![]() | ![]() |
version 1.143, 2005/12/19 21:13:45 | version 1.144, 2005/12/19 21:17:25 |
---|---|
Line 292 sub fieldnames { | Line 292 sub fieldnames { |
sub portfolio_display_uri { | sub portfolio_display_uri { |
my ($uri)=@_; | my ($uri)=@_; |
$uri =~ s|.*/portfolio(/.*)$|$1|; | $uri =~ s|.*/(portfolio/.*)$|$1|; |
my ($res_uri,$meta_uri) = ($uri,$uri); | my ($res_uri,$meta_uri) = ($uri,$uri); |
if ($uri =~ /\.meta$/) { | if ($uri =~ /\.meta$/) { |