#c// options: -known_images
#c// ###################################################################
#c// Story Theme (based of Maste theme by DaveSource.com)
#c// ###################################################################
#c//
<:
# Path setting - this is the path to the images
$PATH = Theme_URL();
# Font/color settings for the document
$INTER_ROW_HEIGHT = "10";
$BORDER_WIDTH = "0";
$TITLE_FONT = "face='Verdana,Arial,Helvetica' color='black' size='-1'";
$MAIN_FONT = "face='Verdana,Arial,Helvetica' color='#777777' size='-2'";
$STORY_FONT = "face='Verdana,Arial,Helvetica' color='#555555' size='-1'";
$CREDIT_FONT = "face='Verdana,Arial,Helvetica' color='blue' size='-2'";
$BODY = "bgcolor='#ffffff' text='#777777' link='blue' alink='blue' vlink='purple'";
$SEP_BAR = "";
# Image arrays are: name, width, height
sub img_src { print "
" if ($_[1]); }
# Thumbnail border
$X = Image_Page() ? Image_Width() : Option('x');
$Y = Image_Page() ? Image_Height() : Option('y');
@ThBord_L = ("ThBord_L.gif", 11, $Y-0-0);
@ThBord_R = ("ThBord_R.gif", 13, $Y-0-0);
@ThBord_TL = ("ThBord_TL.gif", 11, 11);
@ThBord_TR = ("ThBord_TR.gif", 13, 11);
@ThBord_BL = ("ThBord_BL.gif", 11, 13);
@ThBord_BR = ("ThBord_BR.gif", 13, 13);
@ThBord_T = ("ThBord_T.gif", $X+11+13-11-13, 11);
@ThBord_B = ("ThBord_B.gif", $X+11+13-11-13, 13);
:>//
<: Meta() :>
Album: <: pAlbum_Name() :>
>
|
>
Album:
<: pJoin_Parent_Albums(":"); :>
|
|
<: if (isHeader()) { _:>
|
>
<:pHeader():>
|
<: } _:>
<:=$SEP_BAR:>
#c// Are there more albums below this one?
<: if (Child_Albums()) { _:>
|
>Folders:
#c//
#c// Loop on all the albums
<: while (Child_Albums()) { _:>
> <: pChild_Album(1) :>
#c//
#c// End album loop
<: Next_Child_Album() :>
<: } :>
|
#c// Bar after child albums
<:=$SEP_BAR:>
#c//
#c// End if sub-albums
<: } :>
#c// The images
<:
my $album = Album_Filename();
my $path = $album; $path =~ s|[^/]+$||;
$path = "." unless $path;
$Story = "$path/Text.html";
$Story = "$path/Story.html" unless -f $Story;
$Story = 0 unless -f $Story;
:>//
<: if (Images() || $Story) { :>//
<: if ($Story) { :>//
| |
'>
| '>
>
<: pFile($Story); :>
|
|
<: } :>//
<: while (Images()) { _:>//
<:img_src(@ThBord_TL):><:img_src(@ThBord_T):><:img_src(@ThBord_TR):>
<:img_src(@ThBord_L):>><:pImage_Thumb_Src():><:img_src(@ThBord_R):>
<:img_src(@ThBord_BL):><:img_src(@ThBord_B):><:img_src(@ThBord_BR):>
>
>
<:=Image_Name():>
|
<: if (!(Image_Cnt() % 2) && Images_Left()) { _:>//
#c//
#c// Start a new row
 |
<: } :>
#c//
#c// End image loop
<:
Next_Image();
}
:>//
<:=$SEP_BAR:>
<:}:>//
#c//
#c// Optional footer
<: if (isFooter()) { _:>
>
<:pFooter():>
|
<:=$SEP_BAR:>
<: } _:>
><: Credit() :> on <:=scalar localtime:>
