#c// ################################################################### #c// Image Theme by Ed Maste, updated by DaveSource #c// ################################################################### #c// <: # Path setting - this is the path to the images $PATH = Theme_URL(); $BORDER_WIDTH = "0"; # Font/color settings for the document $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 = "


"; # Thumbnail border @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); :>// <: Meta() :> Image: <:=Name(This_Image) :> >
> <:= Parent_Albums(":") :>
<:=$SEP_BAR:> #c// PREV #c// CAPTION #c// NEXT
<: if (my $Prev = Prev(This_Image, $opt->{image_loop})) { _:> >
<< <:=Get($Prev,'href','image_page','image_page'):><:=Pretty(Name($Prev),1):>
<: } :>
> <:=Get(This_Image,'href','image'):> <:=Pretty(Name(This_Image),1,1):>
> <:=Caption(This_Image):>
<: if (my $Next = Next(This_Image, $opt->{image_loop})) { _:> >
<:=Get($Next,'href','image_page','image_page'):><:=Pretty(Name($Next),1):> >>
<: } :>
#c// #c// The image #c//

<: Border(This_Image,'full','image', @Border) :>
<:=$SEP_BAR:>
><: Credit() :> on <:=scalar localtime:>