<:=Trans('Image:') :> <:=Name(This_Image) :>

#c// ################################################################### #c// Album Theme by David Ljung Madison #c// Design by Dave Simmer of DaveWeb.com, modified by Dave Madison #c// -- Auto generated by simmer_theme v3.10 #c// -- From: http://MarginalHacks.com/Hacks/album/ #c// ################################################################### #c// <: # Path setting - this is the path to the images $PATH = Theme_URL(); $CSS = ""; $BODY=""; $START_TITLE = ""; $START_MAIN = ""; $START_CREDIT = ""; $END_FONT = ""; $SLIDESHOW = Option('slideshow'); # Icons/graphics @Bar_L = ("$PATH/Bar_L.gif", 20, 20); @Bar_M = ("$PATH/Bar_M.gif", '100%', 20); @Bar_R = ("$PATH/Bar_R.gif", 20, 20); @Locked = ("$PATH/Locked.gif", 8, 11); $Icon = { '_' => ["$PATH/Icon.gif",315,51], }; $Back = { '_' => ["$PATH/Back.gif",120,42], }; $Next = { '_' => ["$PATH/Next.gif",30,42], }; $Prev = { '_' => ["$PATH/Prev.gif",30,42], }; $More = { '_' => ["$PATH/More.gif",169,51], }; sub Bar { my ($colspan) = @_; return unless @Bar_M; :>

<: foreach my $bar ( \@Bar_L, \@Bar_ML, \@Bar_M, \@Bar_MR, \@Bar_R ) { next unless @$bar; my $width = $bar->[1] =~ /100%/ ? "" : " width='$bar->[1]'"; print "\t\t\t\t\t\t\t"; print Image_Array(@$bar); print "\n"; } :>

<: } # Thumbnail border @Bord_L = ("$PATH/Bord_L.gif", 20, 80); @Bord_R = ("$PATH/Bord_R.gif", 20, 80); @Bord_TL = ("$PATH/Bord_TL.gif", 30, 20); @Bord_TR = ("$PATH/Bord_TR.gif", 30, 20); @Bord_BL = ("$PATH/Bord_BL.gif", 30, 20); @Bord_BR = ("$PATH/Bord_BR.gif", 30, 20); @Bord_T = ("$PATH/Bord_T.gif", 80, 20); @Bord_B = ("$PATH/Bord_B.gif", 80, 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) unless @Border; :>// #c// #c// ################################################################### #c// Everything beyond here is the same for every DaveWeb theme.. #c// ###################################################################
<: Meta() :> <:= $CSS :> <: if ($SLIDESHOW) { :> <: unless ($CSS) { :>
<: } :>
<: } :>
<:Body_Tag():> > <:=Image_Array("$PATH/Null.gif",1,10):>

<: if ($Icon) { print Image_Ref($Icon,"align='middle'"); print "\n \n"; } _:> <:=$START_TITLE:> <:= Parent_Albums(':'); :> <:=$END_FONT:> <: if ($SLIDESHOW) { :> | <: } :> | ><:print $Back ? Image_Ref($Back) : "${START_TITLE}".Trans('Back')."$END_FONT"; :>
<: Bar($SLIDESHOW ? 3 : 2) :>

#c// #c// Prev/caption/next #c//
<: if (my $prev = Prev(This_Image, $opt->{image_loop})) { _:> <:=$START_MAIN:> <:=Get($prev,'href','image_page','image_page'):> <:= $Prev ? "".Image_Ref($Prev)."" : "(".Trans('Prev').") "; :> <:=Pretty(Name($prev),1):> <:=$END_FONT:> <: } _:> | <:=$START_TITLE:> <:=Get(This_Image,'href','image'):> <:=Pretty(Name(This_Image),1,1):><:=$END_FONT:> <:=$START_MAIN:> <:=Caption(This_Image):><:=$END_FONT:> | <: if (my $next = Next(This_Image, $opt->{image_loop})) { _:> <:=$START_MAIN:> <:=Get($next,'href','image_page','image_page'):> <:= "".Image_Ref($Next)."" if $Next :> <:=Pretty(Name($next),1):> <:= " (".Trans('Next').")" unless $Next; :> <:=$END_FONT:> <: } _:>

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