<: $CHILD_ALBUM_COLS = 4; :>// <: $IMAGE_COLS = Option("columns"); :>// Album: <:= Path('album_name') :> <: Meta() :> #c #
<:= Parent_Albums(':') :> >Up

#c # Are there more albums below this one? <: if (my $dir = First('dirs')) { _:>
More albums
#c # Loop on all the albums <: while ($dir) { _:> #c # And start a new row every fourth one <: if (!((Get($dir,'num')+1) % $CHILD_ALBUM_COLS) && Next($dir)) { _:> <: } :> #c # End album loop <: $dir = Next($dir); :> <: } :>
<: if (my $img=Image($dir,'thumb')) { _:>
<:=Get($dir,'href', 'dir' ):><:=$img:>
<: } _:> <:= Get($dir,'href','dir').Name($dir)."" :>

#c # End if albums <: } :> #c # Are there any images? (There might only be CHILD_ALBUMS!) <: if (my $pic = First('pics')) { _:> #c # print the header <: if (isHeader()) { _:>
<:pHeader():>

<: } _:> #c # Loop on the images <: while($pic) { _:> <: if (!((Get($pic,'num')+1) % Option('columns')) && Next($pic)) { _:> <: } :> #c # End while images <: $pic = Next($pic) :> <: } :>
<: if (my $img=Image($pic,'thumb')) { _:>
<:=Get($pic,'href','image'):><:=$img:>
<: } _:> <: if (my $cap = Caption($pic)) { _:> <:= $cap :>
<: } _:> <:=Get($pic,'href','image'):><:=Name($pic):>
#c # End if images
<: } :> <: if (isFooter()) { _:>
<:pFooter():>


<: } _:>
<:= Parent_Albums(':') :> >Up


<: Credit() :> on <:=scalar localtime:>