<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?
<div class="album">
<:  if (my $dir = First('dirs')) { _:>
  
                                                                                
#c    # Loop on all the albums
<:    while ($dir) { _:>

		<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 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>
			
		
      
                                                                                
#c    # End album loop
<:    $dir = Next($dir); :>
<:    } :>
    

#c  # End if albums
<:  } :></div>
				
				

<div class="thumbs">

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

	<: 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>
					
			<: 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 (based on CSS styles from Helmar Weiland & Pat Carr)</a></span>
</address>

</body>
</html>
