#c// ###################################################################
#c// Album Theme by Ed Maste, updated by DaveSource
#c// ###################################################################
#c//
<:
# Path setting - this is the path to the images
$PATH = Theme_Path();
# 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'";
$CREDIT_FONT = "face='Verdana,Arial,Helvetica' color='blue' size='-2'";
$BODY = "bgcolor='#ffffff' text='#777777' link='blue' alink='blue' vlink='purple'";
$SEP_BAR = "";
# Shorthand for column info specified by -columns
$Cols = Get_Opt('columns');
$Col_Perc = int(100/$Cols)."%";
# Image arrays are: name, width, height
sub img_src { print "
" if ($_[1]); }
# Thumbnail border
$X = Image_Page() ? Image_Width() : Get_Opt('x');
$Y = Image_Page() ? Image_Height() : Get_Opt('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(":"); :>
|
|
<:=$SEP_BAR:>
#c// Are there more albums below this one?
<: if (Child_Albums() || isHeader()) { _:>
#c// --SGR
<: if (isHeader()) { _:>
|
>
<:pHeader():>
|
<: } _:>
#c// ++SGR
<: if (Child_Albums()) { _:>
>Image Collections Available:
#c//
#c// Loop on all the albums
<: while (Child_Albums()) { _:>
> <: pChild_Album() :>
#c//
#c// End album loop
<: Next_Child_Album() :>
<: } :>
|
<: } :>
#c// Bar after child albums
<:=$SEP_BAR:>
#c//
#c// End if sub-albums
<: } :>
#c// The images
<: if (Images()) { :>
<: 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() % $Cols) && 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:>
