options: -known_images
#c// ##################################################
#c// The index frame
#c// ##################################################
Album: <: pAlbum_Name() :>
<: Meta() :>
<:
# Write the Title.html and Thumbs.html
my $album = Album_Filename();
my $path = $album; $path =~ s|[^/]+$||;
$path = "." unless $path;
sub PrintChildAlbum {
my $obj = get_obj($CHILD_ALBUM_CNT,'dirs');
my $name = Name($obj);
my $url = Get($obj,'URL','dir');
print "$name";
}
sub ParentAlbum {
my @PARENT_ALBUMS = @{Path('parent_albums')};
return "" unless Parent_Albums_Left() > 0;
if ($PARENT_ALBUM_CNT == num('parent_albums')-1) {
return "$PARENT_ALBUMS[$PARENT_ALBUM_CNT]" unless Image_Page();
return "$PARENT_ALBUMS[$PARENT_ALBUM_CNT]";
}
my$str = "
#c//
#c// ##################################################
#c// Albums.html
#c// ##################################################
<:
open(STDOUT,">$path/Albums.html") || die("Theme can't write [$path/Albums.html]\n");
:>
Album: <: pAlbum_Name() :>
<: Meta() :>
<: if (isHeader()) { _:>
<:pHeader():>
<: } _:>
#c// Are there more albums below this one?
<: if (Child_Albums()) { _:>
More albums:
#c// Loop on all the albums
<: while (Child_Albums()) { _:>
-
<: PrintChildAlbum() :>
<: Next_Child_Album() :>
<: } _:>
#c// No child albums
<: } else { _:>
No child albums
<: } :>
<: if (isFooter()) { _:>
<:pFooter():>
<: } _:>
<: Credit() :> on <:=scalar localtime:>
<: close STDOUT :>
#c// ##################################################
#c// Thumbs.html
#c// ##################################################
<:
open(STDOUT,">$path/Thumbs.html") || die("Theme can't write [$path/Thumbs.html]\n");
:>
Album: <:=pAlbum_Name():>
<: Meta() :>
Path
<: while(Parent_Albums_Left() > 0) {
print ParentAlbum();
Next_Parent_Album();
print "
\n";
}
_:>
<: if (Child_Albums()) { _:>
<: } _:>
<: if (Images()) { _:>
Images
<: while(Images()) { _:>
<:pImage():>
<:pImage_Caption():>
<:Next_Image():>
<: } _:>
<: } _:>
<: close STDOUT; :>