#c// ################################################################### #c// Album Theme by Ed Maste, updated by DaveSource #c// 2003/06: XHTML 1.0 & .htaccess: Magnus von Koeller, vonkoeller.de #c// 2003/06: CSS: hnilek, hnilek.zsbarr.cz #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"; $BODY = "bgcolor='#ffffff' text='#666666' link='blue' alink='blue' vlink='purple'"; $SEP_BAR = "

Separator bar
"; # Shorthand for column info specified by -columns $Cols = Option('columns'); $Col_Perc = int(100/$Cols)."%"; # Thumbnail border $Overlay = ["$PATH/Overlay.tn.Landscape.1.png", 133, 100]; @ThBord_L = ("$PATH/ThBord_L.gif", 11, 0); @ThBord_R = ("$PATH/ThBord_R.gif", 13, 0); @ThBord_TL = ("$PATH/ThBord_TL.gif", 11, 11); @ThBord_TR = ("$PATH/ThBord_TR.gif", 13, 11); @ThBord_BL = ("$PATH/ThBord_BL.gif", 11, 13); @ThBord_BR = ("$PATH/ThBord_BR.gif", 13, 13); @ThBord_T = ("$PATH/ThBord_T.gif", 0, 11); @ThBord_B = ("$PATH/ThBord_B.gif", 0, 13); @Border = (\@ThBord_TL,\@ThBord_T,\@ThBord_TR,\@ThBord_RT,\@ThBord_R,\@ThBord_RB,\@ThBord_BR,\@ThBord_B,\@ThBord_BL,\@ThBord_LB,\@ThBord_L,\@ThBord_LT); @locked = ("$PATH/locked.jpg", 10, 10); @empty = ("$PATH/empty.jpg", 10, 10); :>// <: Meta() :> Album: <:=Path('album_name'):> >

Album: <:=Parent_Albums("::"):>

<: my $back = Back(); if ($back && $back ne "''" && $back ne "'0'") { _:>
class='title'>Up
<: } _:>
<:=$SEP_BAR:> #c// Are there more albums below this one? <: my $alb = First('dirs'); if ($alb || isHeader()) { _:> <: if ($alb) { _:> <: } _:> #c// ++SGR
<: if (Get_Opt('dir_thumbs')) { _:> <: } _:> #c// #c// Loop on all the albums <: while ($alb) { my $locked = (-e Get($alb,'path').'/.htaccess') ? 1 : 0; # We do -nodir_thumbs nice and clean, one directory per line if (Get_Opt('dir_thumbs')) { _:> <: if (New_Row($alb,$Cols,1) || !Next($alb)) { _:> <: } } else { print Image_Array($locked ? @locked : @empty); print Get($alb,'href','dir'); print Pretty(Name($alb),1),"\n"; print Caption($alb),"
\n"; } $alb = Next($alb); } _:>

<: if (Get_Opt('dir_thumbs')) { _:>
<: } _:>

Folders:
<: if (Get_Opt('dir_thumbs')) { _:>

<: Overlay($alb,'thumb', 'full', $Overlay) if Get($alb,'thumb', 'x') :> <: Border($alb,'thumb','dir', @Border) if Get($alb,'thumb','x') :> <:=Image_Array($locked ? @locked : @empty):> <:=Get($alb,'href','dir'):> <:=Pretty(Name($alb),1,1):> <: my $cap=Caption($alb); print "
$cap" if $cap :>
<: } :> <: } :> #c// --SGR <: if (isHeader()) { _:>

<:pHeader():>

#c// Bar after child albums <:=$SEP_BAR:> #c// #c// End of sub-albums/header <: } :> #c// The images <: my $img = First('pics'); if ($img) { _:> <: while ($img) { _:>// <: if (New_Row($img,$Cols) || !Next($img)) { _:> <: } $img = Next($img); } _:>
<: Overlay($img,'thumb', 'full', $Overlay) if Get($img,'thumb', 'x') :> <: Border($img,'thumb','image', @Border) if Get($img,'thumb','x') :> <:=Get($img,'href','image'):> <:=Pretty(Name($img),1,1):> <: my $cap=Caption($img); print "
$cap" if $cap :>
<:=$SEP_BAR:> <:}:>// #c// #c// Optional footer <: if (isFooter()) { _:>

<:pFooter():>

<:=$SEP_BAR:> <: } _:>

<: Credit() :> on <:=scalar localtime:>