#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() :>//
- <:=Parent_Albums('
- » '):>
- » <:=Get($This_Image, 'name'):>
- >Up
<:
print "\n";
my $img = $This_Image;
my $counter = 7;
# reverse interation because of 'float-right' stacking
$img = Next($img, 1);
$img = Next($img, 1);
$img = Next($img, 1);
while ($counter) {
print "
";
print Get($img, 'href', 'image_page', 'image_page');
print "
";
print "";
print "
\n";
$img = Prev($img, 1);
$counter--;
}
print "
\n";
print "\n";
print "
\n";
print Get($This_Image, 'href', 'image_page', 'image');
print "
\n";
print "
\n";
print "
";:>
<: Credit() :> on <:=scalar localtime:>
Dropfloat album theme 0.3 by Helmar Wieland