Album: <: pAlbum_Name() :>

#c// ################################################################### #c// Album Theme by David Ljung Madison #c// Design by Dave Simmer of DaveWeb.com #c// -- Auto generated by http://MarginalHacks.com/Hacks/album/simmer_theme #c// ################################################################### #c// <: # Image arrays are: name, width, height sub img_src { print "" if ($_[1]); } # Path setting - this is the path to the images $PATH = Theme_URL(); $text_color = "#000000"; $link_color = "#603913"; $TITLE_FONT = "size='5' color='$text_color' face='Times New Roman,Georgia,Times'"; $MAIN_FONT = "face='Times New Roman,Georgia,Times'"; $CREDIT_FONT = "size='-1' face='Verdana' color='$text_color'"; $BODY = "background='$PATH/bkgrnd.gif' link='$link_color' alink='$link_color' vlink='$link_color' text='$text_color'"; # Icons/graphics @Bar_L = ("Bar_L.gif", 16, 20); @Bar_M = ("Bar_M.gif", "90%", 20); @Bar_R = ("Bar_R.gif", 16, 20); @Icon = ("Icon.gif", 189, 42); @Back = ("Back.gif", 116, 42); @Next = ("Next.gif", 30, 42); @Prev = ("Prev.gif", 30, 42); @More = ("More.gif", 100, 42); # Thumbnail border $X = Image_Page() ? Image_Width() : Get_Opt('x'); $Y = Image_Page() ? Image_Height() : Get_Opt('y'); @ThBord_LT = ("ThBord_LT.gif", 16, 13); @ThBord_RT = ("ThBord_RT.gif", 16, 13); @ThBord_LB = ("ThBord_LB.gif", 16, 13); @ThBord_RB = ("ThBord_RB.gif", 16, 13); @ThBord_L = ("ThBord_L.gif", 16, $Y-13-13); @ThBord_R = ("ThBord_R.gif", 16, $Y-13-13); @ThBord_TL = ("ThBord_TL.gif", 30, 16); @ThBord_TR = ("ThBord_TR.gif", 30, 16); @ThBord_BL = ("ThBord_BL.gif", 30, 16); @ThBord_BR = ("ThBord_BR.gif", 30, 16); @ThBord_T = ("ThBord_T.gif", $X+16+16-30-30, 16); @ThBord_B = ("ThBord_B.gif", $X+16+16-30-30, 16); :>// #c// #c// ################################################################### #c// Everything beyond here is the same for the generic DaveWeb theme.. #c// ################################################################### <: # Shorthand for column info specified by -columns $Cols = Get_Opt('columns'); $Col_Perc = int(100/$Cols)."%"; :>//
<: Meta() :>
>

<:img_src("Null.gif",11,10):>
<:img_src(@Icon,"align='middle'"):> > <: pJoin_Parent_Albums(":"); :> | <: $back=Back(); if ($back && $back ne "''") { print ""; @Back ? img_src(@Back,"align='middle'") : print " ## Back "; print "\n"; } :>
<: if (isHeader()) { _:>
<:pHeader():>
<: } _:>
<:img_src(@Bar_L); img_src(@Bar_M); img_src(@Bar_R);:>
<:img_src("Null.gif",20,10):>
#c// Are there more albums below this one? <: if (Child_Albums()) { _:>
<: if (@More) { :> <:img_src(@More):> <: } else { :> | ## More albums: <: } :> #c// #c// Loop on all the albums <: while (Child_Albums()) { _:> | ><: pChild_Album() :> <: pChild_Album_Caption() :> <: Next_Child_Album(); # Start a new row after we use up $Cols if (!(Child_Album_Cnt() % $Cols) && Child_Albums_Left()) { _:>
<: } } # End child album loop :>
#c// Bar after child albums
<:img_src(@Bar_L); img_src(@Bar_M); img_src(@Bar_R);:>
#c// #c// End if albums <: } :> #c// #c// The images <: if (Images()) { _:>//
<: while (Images()) { _:>// <: if (@ThBord_LB) { _:> #c// The thumbnail is a complicated table for handling all the corners...
<:img_src(@ThBord_TL):><:img_src(@ThBord_T):><:img_src(@ThBord_TR):>
<:img_src(@ThBord_LT):> | > alt=<:=Image_Alt():> width='<:=Get_Opt('x'):>' height="<:=Get_Opt('y'):>" border="0"> | <:img_src(@ThBord_RT):>
<:img_src(@ThBord_L):> | <:img_src(@ThBord_R):>
<:img_src(@ThBord_LB):> | <:img_src(@ThBord_RB):>
<:img_src(@ThBord_BL):><:img_src(@ThBord_B):><:img_src(@ThBord_BR):>
<: } else { _:> <: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():> <:pImage_Caption():> <: if (!(Image_Cnt() % $Cols) && Images_Left()) { _:>// #c// #c// Start a new row
<:img_src("Null.gif",20,20):>
<: } :> #c// #c// End image loop <: Next_Image(); } :>//
<:img_src("Null.gif",20,20):>
<:img_src(@Bar_L); img_src(@Bar_M); img_src(@Bar_R);:>
<:}:>// <: if (isFooter()) { _:>
<:pFooter():>
<:img_src(@Bar_L); img_src(@Bar_M); img_src(@Bar_R);:>
<: } _:>
><: Credit() :> on <:=scalar localtime:>