#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//
<:
# 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.gif", '100%', 3);
@RSS = ("$PATH/RSS.png", 16, 16);
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", 11, 1);
@Bord_R = ("$PATH/Bord_R.gif", 13, 16);
@Bord_TL = ("$PATH/Bord_TL.gif", 11, 11);
@Bord_TR = ("$PATH/Bord_TR.gif", 13, 11);
@Bord_BL = ("$PATH/Bord_BL.gif", 11, 13);
@Bord_BR = ("$PATH/Bord_BR.gif", 13, 13);
@Bord_T = ("$PATH/Bord_T.gif", 2, 11);
@Bord_B = ("$PATH/Bord_B.gif", 6, 13);
@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// ###################################################################
<:
# Shorthand for column info specified by -columns
$Dir_Thumbs = Option('dir_thumbs');
$Cols = Option('columns');
$Col_Perc = int(100/$Cols)."%";
:>//
<: Meta() :>
<:= Trans('Album:') :> <:= Path('album_name') :>
<:= $CSS :>
<:Body_Tag():>>
<:=Image_Array("$PATH/Null.gif",11,10):>
<:=$START_TITLE:>
<: if ($Icon) {
print Image_Ref($Icon,"align='middle'");
print "\n \n";
} else {
print "".Trans('Album:')." \n";
} _:>
<:= Parent_Albums(':'); :>
<:=$END_FONT:>
<: if ($Dir_Thumbs && isHeader()) { _:>
<:=$START_MAIN:>
<:pHeader():>
<:=$END_FONT:>
<: } _:>
<: Bar($Cols) :>
<:=Image_Array("$PATH/Null.gif",20,10):>
#c// Are there more albums below this one?
<:
my $alb = First('dirs');
if ($alb) { _:>
<: if (!$Dir_Thumbs) { :>
<:=$START_TITLE:>
<:= $More ? Image_Ref($More) : "".Trans('More albums:')." " :>
<:=$END_FONT:>
<:=$START_MAIN:>
<: } elsif ($More) { :>
<:=Image_Ref($More):>
<: } :>
#c//
#c// Loop on all the albums
<: my @save;
while ($alb) {
if ($Dir_Thumbs) {
_:>
<: PickOverlay($alb, 'thumb') if @Overlays :>
<: Border($alb, 'thumb','dir', @Border) if Get($alb,'thumb','x') :>
<: push(@save,$alb); :>
<: if (New_Row($alb,$Cols,$More?1:0) || !Next($alb)) { _:>
<: foreach my $save ( @save ) { _:>
<:= " \n" unless !$More || Get($save,'num') :>
<:=$START_MAIN:>
<:= Image_Array( (-e Get($save,'path').'/.htaccess') ? @Locked : @NotLocked) :>
<:=Get($save,'href','dir'):>
<:=Pretty(Name($save),1,1):>
<: my $cap = Caption($save);
my $num_pics = Get($save,'num_pics_str');
my $num_dirs = Get($save,'num_dirs_str');
if ($cap || $num_pics || $num_dirs) { _:>
<:=$cap if $cap:>
<:=" " if $cap && ($num_pics || $num_dirs):>
<:=$num_dirs:>
<:=", " if $num_pics && $num_dirs:>
<:=$num_pics:>
<: } :>
<:=$END_FONT:>
<:
} # end foreach $save
undef @save;
if (New_Row($alb,$Cols,$More?1:0)) { _:>
<:
} # end new row
} # end printing of $save
# end if $Dir_Thumbs
} else {
print Image_Array( (-e Get($alb,'path').'/.htaccess') ? @Locked : @NotLocked);
print "\n";
print Get($alb,'href','dir');
print Pretty(Name($alb),1,1), "";
print " \n";
my $cap = Caption($alb);
my $num_pics = Get($alb,'num_pics_str');
my $num_dirs = Get($alb,'num_dirs_str');
if ($cap || $num_pics || $num_dirs) { _:>
<:=$cap if $cap:>
<:=": " if $cap && ($num_pics || $num_dirs):>
<:=$num_dirs:>
<:=", " if $num_pics && $num_dirs:>
<:=$num_pics:>
<: }
print " \n";
} # end not $Dir_Thumbs
$alb = Next($alb);
} # End child album loop
_:>
<: if (!$Dir_Thumbs) { :>
<:=$END_FONT:>
<:=$START_MAIN:>
<:pHeader():>
<:=$END_FONT:>
<: }
:>//
#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) {
_:>
<: PickOverlay($img, 'thumb') if @Overlays :>
<: Border($img,'thumb','image', @Border) if Get($img,'thumb','x') :>
<: push(@save,$img); :>
<: if (New_Row($img,$Cols) || !Next($img)) { _:>
<: foreach my $save ( @save ) { _:>
<:=$START_MAIN:>
<:=Get($save,'href','image'):>
<:=Pretty(Name($save),1,1):>
<: if (my $cap = Caption($save)) { _:>
<:=$cap:>
<: } :>
<:=$END_FONT:>
<:
}
undef @save;
if (New_Row($img,$Cols)) { _:>
<:=Image_Array("$PATH/Null.gif",20,20):>
<:
}
}
$img = Next($img);
} # End child album loop
_:>
<:=Image_Array("$PATH/Null.gif",20,20):>
<: Bar($Cols) :>
<:}:>//
<: if (isFooter()) { _:>
<:pFooter():>
<: Bar($Cols) :>
<: } _:>
<:=$START_CREDIT:><: Credit() :> on <:=scalar localtime:><:=$END_FONT:>