<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
#c// ###################################################################
#c// Album Theme by David Ljung Madison
#c// Design by Dave Simmer of DaveWeb.com
#c// -- Au##to generated by simmer_theme v3.00
#c// -- Can only auto gen if you remove the image page borders,
#c// -- this one can't stretch.
#c// -- From: http://MarginalHacks.com/Hacks/album/
#c// ###################################################################
#c//
<:

  # Path setting - this is the path to the images
  $PATH = Theme_URL();

$text_color = "#000000";
$link_color = "#603913";
$TITLE_FONT = "size='4' color='$text_color' face='Times New Roman,Georgia,Times'";
$MAIN_FONT = "face='Times New Roman,Georgia,Times'";
$CREDIT_FONT = "size='-1' face='Verdana' color='$text_color'";
$BODY = "bgcolor='white' link='$link_color' alink='$link_color' vlink='$link_color' text='$text_color'";

  # Icons/graphics
  @Locked =	("$PATH/Locked.gif", 8, 11);

  # Thumbnail border
  @Bord_L =	("$PATH/Bord_L.gif", 39, 100);
  @Bord_R =	("$PATH/Bord_R.gif", 55, 100);
  @Bord_T =	("$PATH/Bord_T.gif", 227, 53);
  @Bord_B =	("$PATH/Bord_B.gif", 227, 55);
  @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);
sub Bar {
  my ($colspan) = @_;
  return unless @Bar_L;
:>
			<tr>
				<td colspan='<:=$colspan:>' height="<:=$bar_H:>">
					<div align="center" style="white-space: nowrap">
						<: print Image_Array(@Bar_L),Image_Array(@Bar_M),Image_Array(@Bar_R);:>
					</div>
				</td>
			</tr>
<:
}

:>//
#c//
#c// ###################################################################
#c// Everything beyond here is the same for every DaveWeb theme..
#c// ###################################################################
<html>
	<head>
		<meta http-equiv="content-type" content="text/html;charset=ISO-8859-1">
		<meta http-equiv="Content-Style-Type" content="text/css">
		<: Meta() :>
		<title>Image: <:=Name(This_Image) :></title>
	</head>

	<body <:=$BODY:>>
		<:=Image_Array("$PATH/Null.gif",1,10):>
		<table border="0" cellpadding="0" cellspacing="0" width="100%">
			<tr valign='top'>
				<td>
<: if (@Icon) {
          print Image_Array(@Icon,"align='middle'");
					print "\n<br />\n";
   } _:>
					<font <:=$TITLE_FONT:>>
					&nbsp;&nbsp;&nbsp;&nbsp;<:= Parent_Albums(':'); :>
					</font></td>
				<td>
					<div align="right">
						<a href=<:=Back():>><:print @Back ? Image_Array(@Back) : "<h2>Back</h2>"; :></a></div>
				</td>
			</tr>
<: Bar(2) :>
		</table>
		<br />
		<table border="0" cellpadding="0" cellspacing="0" width="100%">
#c//
#c// Prev/caption/next
#c//
			<tr valign='top'>
				<td width="25%">
<: if (my $Prev = Prev(This_Image, $opt->{image_loop})) { _:>
					<div align="left">
					<font <:=$MAIN_FONT:>>
					<:=Get($Prev,'href','image_page','image_page'):>
          <:= @Prev ? Image_Array(@Prev,"align='top'") : "(prev) "; :><:=Name($Prev):></a>
					</font>
					</div>
<: } _:>
				</td>

				<td width="50%">
					<div align="center">
						<font <:=$TITLE_FONT:>>
						<:=Get(This_Image,'href','image'):>
						<:=Name(This_Image):></a></font>

						<br />
						<font <:=$MAIN_FONT:>>
						<:=Caption(This_Image):></font>
					</div>
				</td>

				<td width="25%">
<: if (my $Next = Next(This_Image, $opt->{image_loop})) { _:>
					<div align="right">
					<font <:=$MAIN_FONT:>>
					<:=Get($Next,'href','image_page','image_page'):>
          <:=Name($Next):><:= @Next ? Image_Array(@Next,"align='top'") : " (next)"; :></a>
					</font>
					</div>
<: } _:>
				</td>
			</tr>
		</table>

		<table border="0" cellpadding="0" cellspacing="0" width="100%">

#c//
#c// The image
#c//
			<tr>
				<td colspan="3" valign="top" width="100%">
					<div align="center"><br />
					<:=Get(This_Image,'href','image'):>
          <:=Image(This_Image,'full') :></a>
					</div>
				</td>
			</tr>

			<tr>
				<td height="20"><:=Image_Array("$PATH/Null.gif",20,20):></td>
			</tr>

<: Bar(1) :>

			<tr>
				<td>
					<div align="center">
						<font <:=$CREDIT_FONT:>><: Credit() :> on <:=scalar localtime:></font></div>
				</td>
			</tr>
			<tr>
				<td></td>
			</tr>
		</table>
		<p></p>
	</body>

</html>
