<html xmlns="http://www.w3.org/1999/xhtml">
<head>
  <title>Album: <: print Path('album_name'); :></title>
  <: Meta() :>  <meta http-equiv="content-type" content="text/html;charset=ISO-8859-1" />
<: if (!(Parent_Albums_Left() == 1)) { _:>  <link rel="home" href="<: $_ = Parent_Album(); s/^<a href='(.+)'>.*<\/a>$/$1/; print; :>" title="Album home" />
  <link rel="top" href="<: print; :>" title="Album home" /> <:_ } :>
  <link rel="up" href=<:=Back():> title="Up one folder" />
  <link rel="stylesheet" type="text/css" href="<:=Theme_URL():>/framecss.css" title="Framecss album style" />
</head>
<body>

<h1>
  <: print Path('album_name') :>
</h1>

<ul class="menu">
<: while (Parent_Albums()) { _:>
  <: if (Parent_Albums_Left() > 1) { _:>
  <li>
    <: pParent_Album() :> &raquo;
  <: } else { _:>
  <li>
    <: pParent_Album() :>
  <: } _:>
  </li>
  <: Next_Parent_Album() :>
<: } _:>
  <li class="up">
    <a href=<:=Back():>>Go up</a>
  </li>
</ul>

<: if (isHeader()) { _:>
<h2>
  <:pHeader():>         
</h2>
<: } _:>

#c  # Are there more albums below this one?
<:  if (my $dir = First('dirs')) { _:>
  <ul class="list">
                                                                                
#c    # Loop on all the albums
<:    while ($dir) { _:>
		<li><div class="thumblist">
          <: my $img = Image($dir,'thumb'); :>
            <:= Get($dir,'href','dir').$img."</a>" :>
			<span>
            <:= Get($dir,'href','dir').Name($dir) :>
			<br /><:= Get($dir, 'num_pics'); :> Images
			<: if (Get($dir, 'num_dirs')) { _:>
			/ <:= Get($dir, 'num_dirs'); :> Albumes
			<: } _:>
			</a>
			</span>
		</div>
        </li>
                                                                                
#c    # End album loop
<:    $dir = Next($dir); :>
<:    } :>
  </ul>

#c  # End if albums
<:  } :>


<:  if (Images()) { _:>

<div class="thumbs">
<: while(Images()) { _:>
  <div class="thumbnail">
  <: print Get($img,'href','image'); :>
  <: print Image($img,'thumb') if Get($img,'thumb'); :> </a>
    <div class="name"><:=Image_Name():></div>
    </div>
<: Next_Image() :>
<: } _:>
</div>
<div class="spacer">&nbsp;</div>
<: } _:>

<: if (isFooter()) { _:>
<h2>
  <:pFooter():>         
</h2>
<: } _:>

<address>
<: Credit() :> on <:=scalar localtime:>
<br />&nbsp;<span class="helmar">FrameCSS theme 0.1 by <a href="http://patocarr.com/">Pat Carr</a></span>
</address>

</body>
</html>
