<:=Path('album_name'):>

#c// ################################################################### #c// Dropfloat theme for album #c// Copyright 2005 Helmar Wieland #c// License: Creative Commons Attribution-ShareAlike 2.5 #c// http://creativecommons.org/licenses/by-sa/2.5/ #c// ###################################################################
<: Meta() :>//

- <:=Parent_Albums('
- » '):>
- >Up

<: # find out size of (possible) thumbnails on page my $thumb_x = 160; # default if no thumbnails on page my $thumb_y = 120; my $alb = First('dirs'); while ($alb) { if (Get($alb, 'URL', 'album_page', 'thumb')) { $thumb_x = Get($alb, 'thumb', 'x'); $thumb_y = Get($alb, 'thumb', 'y'); } $alb = Next($alb); } my $img = First('pics'); while ($img) { $thumb_x = Get($img, 'thumb', 'x'); $thumb_y = Get($img, 'thumb', 'y'); $img = Next($img); } # print subfolder thumbnails $alb = First('dirs'); if ($alb) { print "
\n"; while ($alb) { print "
"; print "
"; print Get($alb, 'href', 'dir'); if (Get($alb, 'URL', 'album_page', 'thumb')) { print ""; } else { print ""; } print ""; print "
"; print "
"; print ""; print Get($alb, 'href', 'dir'); print Name($alb); print "
"; print "
\n"; $alb = Next($alb); } print "
\n"; } # print image thumbnails $img = First('pics'); if ($img) { print "
\n"; while ($img) { print "
"; print Get($img, 'href', 'image'); print ""; print "
\n"; $img = Next($img); } print "
" } :>