#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_L = ("$PATH/Bar_L.gif", 20, 20);
@Bar_M = ("$PATH/Bar_M.gif", '100%', 20);
@Bar_R = ("$PATH/Bar_R.gif", 20, 20);
@Locked = ("$PATH/Locked.gif", 8, 11);
@RSS = ("$PATH/RSS.png", 16, 16);
$Icon = {
'_' => ["$PATH/Icon.gif",315,51],
};
$Back = {
'_' => ["$PATH/Back.gif",120,42],
};
$Next = {
'_' => ["$PATH/Next.gif",30,42],
};
$Prev = {
'_' => ["$PATH/Prev.gif",30,42],
};
$More = {
'_' => ["$PATH/More.gif",169,51],
};
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", 20, 80);
@Bord_R = ("$PATH/Bord_R.gif", 20, 80);
@Bord_TL = ("$PATH/Bord_TL.gif", 30, 20);
@Bord_TR = ("$PATH/Bord_TR.gif", 30, 20);
@Bord_BL = ("$PATH/Bord_BL.gif", 30, 20);
@Bord_BR = ("$PATH/Bord_BR.gif", 30, 20);
@Bord_T = ("$PATH/Bord_T.gif", 80, 20);
@Bord_B = ("$PATH/Bord_B.gif", 80, 20);
@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// ###################################################################
<: Meta() :>
<:=Trans('Image:') :> <:=Name(This_Image) :>
<:= $CSS :>
<: if ($SLIDESHOW) { :>
<: unless ($CSS) { :>
<: } :>
<: } :>
<:Body_Tag():> >
<:=Image_Array("$PATH/Null.gif",1,10):>
<: if ($Icon) {
print Image_Ref($Icon,"align='middle'");
print "\n \n";
} _:>
<:=$START_TITLE:>
<:= Parent_Albums(':'); :>
<:=$END_FONT:>
|
<: if ($SLIDESHOW) { :>
|
<: } :>
|
<: Bar($SLIDESHOW ? 3 : 2) :>
#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//
<:
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):> |
<: Bar(1) :>
<:=$START_CREDIT:><: Credit() :> on <:=scalar localtime:><:=$END_FONT:>
|
|