#c// ################################################################### #c// Album Theme by David Ljung Madison #c// Design by Dave Simmer of DaveWeb.com #c// -- Auto generated by simmer_theme v3.01 #c// -- From: http://MarginalHacks.com/Hacks/album/ #c// ################################################################### #c// <: # Path setting - this is the path to the images $PATH = Theme_URL(); $CREDIT_FONT = "size='-1' color='#CCCCCC'"; $TITLE_FONT = "color='#CCCCCC'"; $link_color = "#FFFFFF"; $BODY = "bgcolor='black' link='$link_color' alink='$link_color' vlink='$link_color' text='#CCCCCC'"; @Border = ('white',5); # Icons/graphics @Locked = ("$PATH/Locked.gif", 8, 11); # Thumbnail border @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; sub Bar { my ($colspan) = @_; return unless @Bar_L; :> <: 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 "
<: } :>// #c// #c// ################################################################### #c// Everything beyond here is the same for every DaveWeb theme.. #c// ################################################################### <: Meta() :> Image: <:=Name(This_Image) :> > <:=Image_Array("$PATH/Null.gif",1,10):> <: Bar(2) :>
<: if (@Icon) { print Image_Array(@Icon,"align='middle'"); print "\n
\n"; } _:> >     <:= Parent_Albums(':'); :>
><:print @Back ? Image_Array(@Back) : "

Back

"; :>

#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) "; :><:=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):><:= @Next ? Image_Array(@Next,"align='top'") : " (next)"; :>
<: } _:>
#c// #c// The image #c// <: Bar(1) :>

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