Image: <:=Name(This_Image) :>

#c// ################################################################### #c// Album Theme by David Ljung Madison #c// Design by Dave Simmer of DaveWeb.com #c// -- Auto generated by simmer_theme v3.00 #c// -- From: http://MarginalHacks.com/Hacks/album/ #c// ################################################################### #c// <: # Path setting - this is the path to the images $PATH = Theme_URL(); # Font/color settings for the document $TITLE_FONT = "size='4' color='#AA1B4C' face='Times New Roman,Georgia,Times'"; $MAIN_FONT = "face='Times New Roman,Georgia,Times'"; $CREDIT_FONT = "size='-1' face='Verdana' color='#AA1B4C'"; $BODY = "background='$PATH/bkgrnd.gif' link='#FF1B4C' alink='#FF1B4C' vlink='#FF1B4C' text='#AA1B4C'"; # Icons/graphics @Bar_L = ("$PATH/Bar_L.gif", 20, 20); @Bar_M = ("$PATH/Bar_M.gif", "90%", 20); @Bar_R = ("$PATH/Bar_R.gif", 20, 20); @Icon = ("$PATH/Icon.gif", 218, 41); @Back = ("$PATH/Back.gif", 116, 42); @Next = ("$PATH/Next.gif", 30, 41); @More = ("$PATH/More.gif", 121, 42); @Locked = ("$PATH/Locked.gif", 8, 11); # Thumbnail border @Bord_LT = ("$PATH/Bord_LT.gif", 20, 5); @Bord_RT = ("$PATH/Bord_RT.gif", 20, 5); @Bord_LB = ("$PATH/Bord_LB.gif", 20, 5); @Bord_RB = ("$PATH/Bord_RB.gif", 20, 5); @Bord_L = ("$PATH/Bord_L.gif", 20, 90); @Bord_R = ("$PATH/Bord_R.gif", 20, 90); @Bord_TL = ("$PATH/Bord_TL.gif", 20, 20); @Bord_TR = ("$PATH/Bord_TR.gif", 20, 20); @Bord_BL = ("$PATH/Bord_BL.gif", 20, 20); @Bord_BR = ("$PATH/Bord_BR.gif", 20, 20); @Bord_T = ("$PATH/Bord_T.gif", 100, 20); @Bord_B = ("$PATH/Bord_B.gif", 100, 20); @Border = (\@Bord_TL,\@Bord_T,\@Bord_TR,\@Bord_RT,\@Bord_R,\@Bord_RB,\@Bord_BR,\@Bord_B,\@Bord_BL,\@Bord_LB,\@Bord_L,\@Bord_LT); sub Bar { my ($colspan) = @_; return unless @Bar_L; :>
<: print Image_Array(@Bar_L),Image_Array(@Bar_M),Image_Array(@Bar_R);:>
<: } :>// #c// #c// ################################################################### #c// Everything beyond here is the same for every DaveWeb theme.. #c// ###################################################################
<: Meta() :>
> <:=Image_Array("$PATH/Null.gif",1,10):>

<: if (@Icon) { print Image_Array(@Icon,"align='middle'"); print "\n \n"; } _:> > <:= Parent_Albums(':'); :> | ><:print @Back ? Image_Array(@Back) : " ## Back "; :>
<: Bar(2) :>

#c// #c// Prev/caption/next #c//
<: if (my $Prev = Prev(This_Image, $opt->{image_loop})) { _:> > <:=Get($Prev,'href','image_page','image_page'):> <:= @Prev ? Image_Array(@Prev,"align='top'") : "(prev) "; :><:=Name($Prev):> <: } _:> | > <:=Get(This_Image,'href','image'):> <:=Name(This_Image):> > <:=Caption(This_Image):> | <: if (my $Next = Next(This_Image, $opt->{image_loop})) { _:> > <:=Get($Next,'href','image_page','image_page'):> <:=Name($Next):><:= @Next ? Image_Array(@Next,"align='top'") : " (next)"; :> <: } _:>

#c// #c// The image #c//
<: Border(This_Image,'full','image', @Border) :>
<:=Image_Array("$PATH/Null.gif",20,20):>
<: Bar(1) :>
><: Credit() :> on <:=scalar localtime:>