9 |
my $sql_filenames = q{ |
my $sql_filenames = q{ |
10 |
select |
select |
11 |
templateid as id, |
templateid as id, |
12 |
namespace||'/'||name as filename, |
namespace||'/'||name||' ['||templateid||']' as filename, |
13 |
length(template) as size, |
length(template) as size, |
14 |
iseditable as writable |
iseditable as writable |
15 |
from template ; |
from template ; |
119 |
$f =~ s/^\E$dirname\Q//; |
$f =~ s/^\E$dirname\Q//; |
120 |
$f =~ s/^\///; |
$f =~ s/^\///; |
121 |
if ($dirname) { |
if ($dirname) { |
122 |
$out{$f}++ if (/^\E$dirname\Q/); |
$out{$f}++ if (/^\E$dirname\Q/ && $f =~ /^[^\/]+$/); |
123 |
} else { |
} else { |
124 |
$out{$f}++ if ($f =~ /^[^\/]+$/); |
$out{$f}++ if ($f =~ /^[^\/]+$/); |
125 |
} |
} |