#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", 27, 20);
@Bar_M = ("$PATH/Bar_M.gif", '100%', 20);
@Bar_R = ("$PATH/Bar_R.gif", 27, 20);
@Locked = ("$PATH/Locked.gif", 8, 11);
$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],
};
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_LT = ("$PATH/Bord_LT.gif", 38, 10);
@Bord_RT = ("$PATH/Bord_RT.gif", 30, 10);
@Bord_LB = ("$PATH/Bord_LB.gif", 38, 25);
@Bord_RB = ("$PATH/Bord_RB.gif", 30, 25);
@Bord_L = ("$PATH/Bord_L.gif", 38, 65);
@Bord_R = ("$PATH/Bord_R.gif", 30, 60);
@Bord_TL = ("$PATH/Bord_TL.gif", 62, 26);
@Bord_TR = ("$PATH/Bord_TR.gif", 63, 26);
@Bord_BL = ("$PATH/Bord_BL.gif", 62, 30);
@Bord_BR = ("$PATH/Bord_BR.gif", 63, 30);
@Bord_T = ("$PATH/Bord_T.gif", 64, 26);
@Bord_B = ("$PATH/Bord_B.gif", 64, 30);
@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 Get($alb,'href','dir');
print Pretty(Name($alb),1,1), "";
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:>
|