#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.12 #c// -- From: http://MarginalHacks.com/Hacks/album/ #c// ################################################################### #c// <: # Version requirements if (Version_Num() < 3.12) { print STDERR "\n[THEME ERROR] This theme requires album v3.12\n"; exit(-1); } # Path setting - this is the path to the images $PATH = Theme_URL(); $CSS = ""; $CSS .= "\n "; $BODY=""; $START_TITLE = ""; $START_MAIN = ""; $START_CREDIT = ""; $END_FONT = ""; $SLIDESHOW = Option('slideshow'); # Icons/graphics @Bar_M = ("$PATH/Bar_M.png", '100%', 20); @RSS = ("$PATH/RSS.png", 16, 16); $Icon = { '_' => ["$PATH/Icon.png",325,60], }; $Back = { '_' => ["$PATH/Back.png",165,60], }; $Next = { '_' => ["$PATH/Next.png",20,15], }; $Prev = { '_' => ["$PATH/Prev.png",20,15], }; $More = { '_' => ["$PATH/More.png",165,60], }; 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\n"; } :>
"; print Image_Array(@$bar); print "
<: } # Thumbnail border @Over_TL = ("$PATH/Over_TL.png", 90, 71); @Over_T = ("$PATH/Over_T.png", 31, 71); @Over_TR = ("$PATH/Over_TR.png", 84, 71); @Over_R = ("$PATH/Over_R.png", 90, 25); @Over_BR = ("$PATH/Over_BR.png", 84, 71); @Over_B = ("$PATH/Over_B.png", 31, 71); @Over_BL = ("$PATH/Over_BL.png", 90, 71); @Over_L = ("$PATH/Over_L.png", 90, 25); @Border = (\@Over_TL,\@Over_T,\@Over_TR,\@Over_R,\@Over_BR,\@Over_B,\@Over_BL,\@Over_L) unless @Border; # Overlay padding push(@Over_T, 39); push(@Over_B, 39); push(@Over_L, 39); push(@Over_R, 39); :>// #c// #c// ################################################################### #c// Everything beyond here is the same for every DaveWeb theme.. #c// ################################################################### <: Meta() :> <:=Trans('Image:') :> <:=Name(This_Image) :> <:= $CSS :> <: if ($SLIDESHOW) { :> <: unless ($CSS) { :> <: } :> <: } :> <:Body_Tag():> > <:=Image_Array("$PATH/Null.gif",1,10):> <: if ($SLIDESHOW) { :> <: } :> <: Bar($SLIDESHOW ? 3 : 2) :>
<: if ($Icon) { print Image_Ref($Icon,"align='middle'"); print "\n
\n"; } _:> <:=$START_TITLE:>     <:= Parent_Albums(':'); :> <:=$END_FONT:>

#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// <: Bar(1) :>

<: PickOverlay(This_Image, 'full') if @Overlays; my $click = Option('just_medium') ? 'next' : 'image'; Border(This_Image,'full',$click, @Border); :>
<:=Image_Array("$PATH/Null.gif",20,20):>
<:=$START_CREDIT:><: Credit() :> on <:=scalar localtime:><:=$END_FONT:>