#c// ###################################################################
#c// Big Maste Image Theme based on theme by Ed Maste
#c// ###################################################################
#c//
<:
  # Path setting - this is the path to the images
  $PATH = Theme_URL();

  $MAX_IMG_WIDTH = 760;
  $MAX_IMG_HEIGHT = 550;
  $BORDER_WIDTH = "0";

  # Font/color settings for the document
  $BODY = "bgcolor='#ffffff' text='#666666' link='blue' alink='blue' vlink='purple'";
  $SEP_BAR = "<div align='center'><img src='$PATH/Null.gif' height='5' width='1' alt='' /><br /><img src='$PATH/Bar.gif' width='95%' height='3' border='0' alt='Seperator bar' /><br /><img src='$PATH/Null.gif' height='5' width='1' alt='' /></div>";

  @ThBord_L =   ("$PATH/ThBord_L.gif", 11, 0);
  @ThBord_R =   ("$PATH/ThBord_R.gif", 13, 0);
  @ThBord_TL =  ("$PATH/ThBord_TL.gif", 11, 11);
  @ThBord_TR =  ("$PATH/ThBord_TR.gif", 13, 11);
  @ThBord_BL =  ("$PATH/ThBord_BL.gif", 11, 13);
  @ThBord_BR =  ("$PATH/ThBord_BR.gif", 13, 13);
  @ThBord_T =   ("$PATH/ThBord_T.gif", 0, 11);
  @ThBord_B =   ("$PATH/ThBord_B.gif", 0, 13);
  @Border = (\@ThBord_TL,\@ThBord_T,\@ThBord_TR,\@ThBord_RT,\@ThBord_R,\@ThBord_RB,\@ThBord_BR,\@ThBord_B,\@ThBord_BL,\@ThBord_LB,\@ThBord_L,\@ThBord_LT);

  @Next = ("$PATH/Next.gif", 15, 10);
  @Prev = ("$PATH/Prev.gif", 15, 10);
:>//
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
      "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html>

<head>
  <meta http-equiv="content-type" content="text/html;charset=ISO-8859-1" />
  <: Meta() :>
  <title>Image: <:=Name(This_Image) :></title>
  <link rel="stylesheet" type="text/css" href="<:=$PATH:>/style.css">
</head>

<body <:=$BODY:>>

<div align="center">
  <table border="<:=$BORDER_WIDTH:>" cellpadding="0" cellspacing="0" width="95%">
    <tr valign='top'>
      <td align='left'>
        <div class='title' align='left'>
          <b>Album</b>:
          <:=Parent_Albums("::"):>
        </div>
      </td>

      <td align='center'>
        <span class='title'>
        <:=Get(This_Image,'href','image'):>
        <:=Name(This_Image):></a></span>
      </td>

      <td width="25%">
        <div align="right">

<: if (my $Prev = Prev(This_Image, $opt->{image_loop})) { _:>
          <:=Get($Prev,'href','image_page','image_page'):><:=Image_Array(@Prev):></a>
<: } else {
     print Image_Array("$PATH/Null.gif",15,1);
   } :>

<: if (my $Next = Next(This_Image, $opt->{image_loop})) { _:>
          <:=Get($Next,'href','image_page','image_page'):><:=Image_Array(@Next):></a>
<: } else {
     print Image_Array("$PATH/Null.gif",15,1);
} :>

          &nbsp;&nbsp;<a href=<:=Back():> class='title'>Up</a></div>
      </td>
    </tr>
  </table>

  <div align="center">
    <span class='main'>
    <:=Caption(This_Image):></span>
  </div>

#c//
#c// The image
#c//
  <div align="center">
    <: Border(This_Image,'full','image', @Border) :>
  </div>

      </td>
    </tr>
  </table>

</div>


  <:=$SEP_BAR:>    

  <div align="center">
    <p class='credit'><: Credit() :> on <:=scalar localtime:></p>
  </div>
  <p></p>

  </body>

</html>
