Album: <:= Path('album

#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(); # Font/color settings for the document $TITLE_FONT = "size='4' color='#ffffff' face='Times New Roman,Georgia,Times'"; $MAIN_FONT = "face='Times New Roman,Georgia,Times'"; $CREDIT_FONT = "size='-1' face='Verdana' color='#ffffff'"; $BODY = "background='$PATH/bkgrnd.gif' link='#aaaaaa' alink='#aaaaaa' vlink='#aaaaaa' text='#FFFFFF'"; # Icons/graphics @Bar_L = ("$PATH/Bar_L.gif", 27, 20); @Bar_M = ("$PATH/Bar_M.gif", "90%", 20); @Bar_R = ("$PATH/Bar_R.gif", 27, 20); @Icon = ("$PATH/Icon.gif", 111, 24); @Back = ("$PATH/Back.gif", 103, 24); @Next = ("$PATH/Next.gif", 24, 42); @Prev = ("$PATH/Prev.gif", 24, 42); @More = ("$PATH/More.gif", 103, 24); @Locked = ("$PATH/Locked.gif", 8, 11); @Fabi = ("$PATH/fabi.jpg", 63, 57); # Thumbnail border @Bord_LT = ("$PATH/Bord_LT.gif", 27, 20); @Bord_RT = ("$PATH/Bord_RT.gif", 27, 20); @Bord_LB = ("$PATH/Bord_LB.gif", 27, 20); @Bord_RB = ("$PATH/Bord_RB.gif", 27, 20); @Bord_L = ("$PATH/Bord_L.gif", 27, 60); @Bord_R = ("$PATH/Bord_R.gif", 27, 60); @Bord_TL = ("$PATH/Bord_TL.gif", 45, 27); @Bord_TR = ("$PATH/Bord_TR.gif", 45, 27); @Bord_BL = ("$PATH/Bord_BL.gif", 45, 27); @Bord_BR = ("$PATH/Bord_BR.gif", 45, 27); @Bord_T = ("$PATH/Bord_T.gif", 64, 27); @Bord_B = ("$PATH/Bord_B.gif", 64, 27); @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// ################################################################### <: # Shorthand for column info specified by -columns $Cols = Option('columns'); $Col_Perc = int(100/$Cols)."%"; :>// <: Meta() :> Album: <:= Path('album_name') :> > <: if (isHeader()) { _:> <: } _:> <: Bar($Cols) :> #c// Are there more albums below this one? <: my $alb = First('dirs'); if ($alb) { _:> #c// Bar after child albums <: Bar($Cols) :> #c// #c// End if albums <: } :> #c// #c// The images <: my $img = First('pics'); if ($img) { _:>// <: my @save; while ($img) { _:> <: if (New_Row($img,$Cols) || !Next($img)) { _:> <: foreach my $save ( @save ) { _:> <: } undef @save; if (New_Row($img,$Cols)) { _:> <: } } $img = Next($img); } # End child album loop _:> <: Bar($Cols) :> <:}:>// <: if (isFooter()) { _:> <: Bar($Cols) :> <: } _:>

<:=Image_Array("$PATH/Null.gif",11,10):>

<: if (@Icon) { print Image_Array(@Icon,"align='middle'"); print "\n
\n"; } _:> > <:= Parent_Albums(':'); :>

<: $back=Back(); if ($back && $back ne "''" && $back ne "'0'") { print ""; print @Back ? Image_Array(@Back,"align='middle'") : "

Back

"; print "\n"; } :>

<:pHeader():>

<:=Image_Array("$PATH/Null.gif",20,10):>

<: if (@More) { :> <: } else { :> <: } :> #c// #c// Loop on all the albums <: my @save; while ($alb) { _:> <: if (New_Row($alb,$Cols,1) || !Next($alb)) { _:> <: foreach my $save ( @save ) { _:> <:= "\n" unless Get($save,'num') :> <: } } $alb = Next($alb); } # End child album loop _:>

<:=Image_Array(@More):>	More albums:	<: Border($alb, 'thumb','dir', @Border) if Get($alb,'thumb','x') :> <: push(@save,$alb); :>
	> <:= Image_Array(@Locked) if -e Get($save,'path').'/.htaccess'; :> <:=Get($save,'href','dir'):> <:=Pretty(Name($save),1,1):> <: my $cap = Caption($save); my $num_pics = Get($save,'num_pics'); $num_pics = $num_pics ? $num_pics>1 ? "$num_pics images\n" : "1 image\n" : ""; my $num_dirs = Get($save,'num_dirs'); $num_dirs = $num_dirs ? $num_dirs>1 ? "$num_dirs albums\n" : "1 folder\n" : ""; if ($cap \|\| $num_pics \|\| $num_dirs) { _:> <:=$cap if $cap:> <:=" " if $cap && ($num_pics \|\| $num_dirs):> <:=$num_dirs:> <:=", " if $num_pics && $num_dirs:> <:=$num_pics:> <: } :> <: } undef @save; if (New_Row($alb,$Cols,1)) { _:>

> <: Border($img,'thumb','image', @Border) if Get($img,'thumb','x') :> <: push(@save,$img); :>

<:=Get($save,'href','image'):> <:=Pretty(Name($save),1,1):> <: if (my $cap = Caption($save)) { _:>
<:=$cap:> <: } :>

<:=Image_Array("$PATH/Null.gif",20,20):>

<:pFooter():>

<: print Image_Array(@Fabi) :>

Back

More albums: