#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//
<:
# Version requirements
if (Version_Num() < 3.12) {
print STDERR "\n[THEME ERROR] This theme requires album v3.12\n";
exit(-1);
}
# 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.png", '100%', 20);
@RSS = ("$PATH/RSS.png", 16, 16);
$Icon = {
'_' => ["$PATH/Icon.png",325,60],
};
$Back = {
'_' => ["$PATH/Back.png",165,60],
};
$Next = {
'_' => ["$PATH/Next.png",20,15],
};
$Prev = {
'_' => ["$PATH/Prev.png",20,15],
};
$More = {
'_' => ["$PATH/More.png",165,60],
};
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
@Over_TL = ("$PATH/Over_TL.png", 90, 71);
@Over_T = ("$PATH/Over_T.png", 31, 71);
@Over_TR = ("$PATH/Over_TR.png", 84, 71);
@Over_R = ("$PATH/Over_R.png", 90, 25);
@Over_BR = ("$PATH/Over_BR.png", 84, 71);
@Over_B = ("$PATH/Over_B.png", 31, 71);
@Over_BL = ("$PATH/Over_BL.png", 90, 71);
@Over_L = ("$PATH/Over_L.png", 90, 25);
@Border = (\@Over_TL,\@Over_T,\@Over_TR,\@Over_R,\@Over_BR,\@Over_B,\@Over_BL,\@Over_L) unless @Border;
# Overlay padding
push(@Over_T, 39);
push(@Over_B, 39);
push(@Over_L, 39);
push(@Over_R, 39);
:>//
#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:>
|
|