: # Path setting - this is the path to the images my $level = num('parent_albums')-1; $PATH = Theme_URL(); $CSS = ""; my $album = Album_Filename(); my $path = $album; $path =~ s|[^/]+$||; $path = "." unless $path; sub listImages { my $pic = $_[0]; while ($pic) { print "
" . Get($dir, 'href', 'dir');
if (my $img = Image($dir, 'thumb')) {
print $img;
}
print " | ";
print " " . Get($dir, 'name') . " ";
my $numPics = Get($dir, 'num_pics');
if ( $numPics > 0) {
print " $numPics слика ";
}
print " |
<: print " " . $imgpath . " "; :> |
|
||
<: print " "; :> |