options: -known_images #c// ################################################## #c// The index frame #c// ################################################## Album: <: pAlbum_Name() :> <: Meta() :> You need to have frames! <: # 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// 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()) { _:>

Children

<: } _:> <: if (Images()) { _:>

Images

<: while(Images()) { _:> <:pImage():>
<:pImage_Caption():>

<:Next_Image():> <: } _:> <: } _:> <: close STDOUT; :>