<%
my $out;
my @files;
my @images = file_list( folder =>"${appdir}/_filebank/niso-slideshow-sommer", typ => "f");
my $path = "$appdir/_filebank/";
foreach (@images)
{
my @image = split(/\t/, $_);
push(@files, { src => $image[0] });
}
foreach my $file (@files)
{
my $original = $file->{src};
my $link = uri_escape("$original", " δόφί");
$out .= qq(\t\t
\n)
}
return $out;
%>