<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="wrapname">
            <div class="wrap1">
					<div class="wrap2">
						<div class="wrap3">
							<div class="wrap4">
								<div class="wrap5">
						          <: my $img = Image($dir,'thumb'); :> <:= Get($dir,'href','dir').$img."</a>" :>
						          
					         </div>
							</div>
						</div>
					</div>
							
					</div>   
				</div><div class="infotext">
							<:= Get($dir,'href','dir').Name($dir) :>
							<br /><:= Get($dir, 'num_pics'); :> Images<: if (Get($dir, 'num_dirs')) 
							{ _:><br />& <:= Get($dir, 'num_dirs'); :> Album<: if (Get($dir, 'num_dirs') > 1) { _:>s<: } _:></a> <: } else { _:> <: } _:></a> 
							</div>
							</div>
		</li>
      
                                                                                
#c    # End album loop
<:    $dir = Next($dir); :>
<:    } :>
    </ul>
  
#c  # End if albums
<:  } :>


<:  if (Images()) { _:>
<div class="divider">&nbsp</div>
<div class="thumbs">
<: while(Images()) { _:>
	<div id="main">
		<div class="wrapname"><div class="name"><:=Image_Name():>
			<div class="wrap1">
			<div class="wrap2">
				<div class="wrap3">
					<div class="wrap4">
						<div class="wrap5">
						  <: print Get($img,'href','image'); :>
						  <: print Image($img,'thumb') if Get($img,'thumb'); :> </a>
						</div>
					</div>
				</div>
						</div>
			</div>
			</div>
		</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">Dropshadow CSS theme by Kurt Edelmann- modified CSS styles from Helmar Weiland & Pat Carr</a></span>
</address>

</body>
</html>
