#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='#666666' size='-2'";
$CREDIT_FONT = "face='Verdana,Arial,Helvetica' color='blue' size='-2'";
$BODY = "bgcolor='#ffffff' text='#666666' 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);
@locked = ("locked.jpg", 10, 10);
@empty = ("empty.jpg", 10, 10);
:>//
<: Meta() :>
Album: <: pAlbum_Name() :>
>
<:=$SEP_BAR:>
#c// Are there more albums below this one?
<: if (Child_Albums() || isHeader()) { _:>
<: if (Child_Albums()) { _:>
>Folders:
#c//
#c// Loop on all the albums
<: while (Child_Albums()) { _:>
>
<:
if (-e Child_Album_Name() . "/.htaccess" ||
-e "$PARENT_ALBUMS[-1]/" . Child_Album_Name() . "/.htaccess") {
img_src(@locked);
} else {
img_src(@empty);
}
pChild_Album(1); :>
#c//
#c// End album loop
<: Next_Child_Album() :>
<: } :>
|
<: } :>
#c// --SGR
<: if (isHeader()) { _:>
>
<:pHeader():>
|
<: } _:>
#c// ++SGR
#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.txt";
$Story = 0 unless -f $Story;
$STORY_FONT = "face='Verdana,Arial,Helvetica' color='#555555' size='-1'";
:>//
<: if (Images() || $Story) { :>//
#c// If there is a text.txt file, include it before the images
<: if ($Story) { :>//
|
>
<: pFile($Story); :>
|
| <:=$SEP_BAR:> |
<: } :>//
<: 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():>
|
<: $new_row = !(Image_Cnt() % $Cols); Next_Image();
if ($new_row && Images_Left()) { _:>//
#c//
#c// Start a new row
 |
<: } :>
#c//
#c// End image loop
<:
}
:>//
<:=$SEP_BAR:>
<:}:>//
#c//
#c// Optional footer
<: if (isFooter()) { _:>
>
<:pFooter():>
|
<:=$SEP_BAR:>
<: } _:>
><: Credit() :> on <:=scalar localtime:>
