|
|
 |
<%
$PAGE{menu_templates} = "topmenu/";
my $seite = $PAGE{id};
$PAGE{id} = "asd_topmenu";
my $out = &menu_engine("2");
$PAGE{id} = $seite;
undef $PAGE{menu_templates};
$TEMP{MenuHTML} = &menu_engine("1,2,3,4", "", "asd_topmenu");
return $out;
%>
|
|
<%
my $out;
my @files;
my @images = file_list( folder =>"${appdir}/_filebank/_slideshow-motive", 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;
%>
|
