#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// ################################################################### <:=Path('album_name'):> <: Meta() :>// <: # 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 "", Name($alb), ""; } else { print "", Name($alb), ""; } print ""; print "
"; print "
"; print "Subalbum arrow"; 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 "", Get($img, "; print "
\n"; $img = Next($img); } print "
" } :>
<: Credit() :> on <:=scalar localtime:>
Dropfloat album theme 0.3 by Helmar Wieland