#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//
<:
# 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 = "";
$BODY="";
$START_TITLE = "";
$START_MAIN = "";
$START_CREDIT = "";
$END_FONT = "";
$SLIDESHOW = Option('slideshow');
# Icons/graphics
$Prev = {
'_' => ["$PATH/Prev.png",20,15],
};
$More = {
'_' => ["$PATH/More.png",251,43],
'de' => ["$PATH/lang/de/More.png",221,41],
};
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