#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 = "<div align='center'><img src='$PATH/Null.gif' height='5' width='1'><br><img src='$PATH/Bar.gif' width='95%' height='3' border='0'><br><img src='$PATH/Null.gif' height='5' width='1'></div>"; # 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 "<img src='$PATH/$_[0]' width='$_[1]' height='$_[2]' $_[3] border='0'>" 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); :>// <html> <head> <meta http-equiv="content-type" content="text/html;charset=ISO-8859-1"> <: Meta() :> <title>Album: <: pAlbum_Name() :></title> </head> <body <:=$BODY:>> <table border="<:=$BORDER_WIDTH:>" cellpadding="0" cellspacing="0" align='center' width="95%"> <tr> <td colspan="<:=($Cols-1):>"> <font <:=$TITLE_FONT:>> <b>Album</b>: <: pJoin_Parent_Albums(":"); :> </font> </td> <td width="25%"> <div align="right"> <a href='../index.html'><font <:=$TITLE_FONT:>>Back</font></a> </div> </td> </tr> </table> <:=$SEP_BAR:> #c// Are there more albums below this one? <: if (Child_Albums() || isHeader()) { _:> <table border="<:=$BORDER_WIDTH:>" width='95%' align='center' cellspacing='0' cellpadding='0'> <tr> <: if (Child_Albums()) { _:> <td> <font <:=$TITLE_FONT:>><b>Folders</b>:</font><br> #c// #c// Loop on all the albums <: while (Child_Albums()) { _:> <font <:=$TITLE_FONT:>> <: pChild_Album() :></font><br> #c// #c// End album loop <: Next_Child_Album() :> <: } :> </td> <: } :> #c// --SGR <: if (isHeader()) { _:> <td valign="bottom" width="50%"> <font <:=$TITLE_FONT:>> <center> <:pHeader():> </center> </font> </td> <: } _:> #c// ++SGR </tr></table> #c// Bar after child albums <:=$SEP_BAR:> #c// #c// End if sub-albums <: } :> #c// The images <: if (Images()) { :> <table border="<:=$BORDER_WIDTH:>" cellpadding="0" cellspacing="0" width="100%"> <tr> <: while (Images()) { _:>// <td valign="top" width="<:=$Col_Perc:>"> <div align="center"> <nobr><:img_src(@ThBord_TL):><:img_src(@ThBord_T):><:img_src(@ThBord_TR):></nobr><br /> <nobr><:img_src(@ThBord_L):><a href=<:=Image_URL():>><:pImage_Thumb_Src():></a><:img_src(@ThBord_R):></nobr><br /> <nobr><:img_src(@ThBord_BL):><:img_src(@ThBord_B):><:img_src(@ThBord_BR):></nobr><br /> <font <:=$MAIN_FONT:>> <a href=<:=Image_URL():>> <:=Image_Name():></a></font> </div> </td> <: if (!(Image_Cnt() % $Cols) && Images_Left()) { _:>// #c// #c// Start a new row </tr> <tr height="<:=$INTER_ROW_HEIGHT:>"> <td height="<:=$INTER_ROW_HEIGHT:>" colspan="<:=$Cols:>"><img src="<:=$PATH:>/Null.gif" width="20" height="<:=$INTER_ROW_HEIGHT:>" border="0"></td> </tr> <tr> <: } :> #c// #c// End image loop <: Next_Image(); } :>// </table> <:=$SEP_BAR:> <:}:>// #c// #c// Optional footer <: if (isFooter()) { _:> <td valign="bottom" width="50%"> <font <:=$TITLE_FONT:>> <center> <:pFooter():> </center> </font> </td> <:=$SEP_BAR:> <: } _:> <div align="center"> <font <:=$CREDIT_FONT:>><: Credit() :> on <:=scalar localtime:></font></div> <p></p> </body> </html>