<: print Path('album_name') :>
\n";
echo "\tWe are sorry for the inconvenience, but this section is protected.\n";
echo "\tPlease enter the passphrase to continue. If you don't have the passphrase,\n";
echo "\tyou can request it from the\n";
echo "\t
Site Administrator\n\n";
echo "\t
\n";
echo "
\n";
exit (0);
}
}
?>
<: if (Image($dir_obj,'thumb')) { _:>
<: my $img = Image($dir_obj,'thumb'); :> <:= Get($dir_obj,'href','dir').$img."" :>
<: } else { _:>
<:= Get($dir_obj,'href','dir')."
" :>
<: } :>
<:= Get($dir_obj,'href','dir').Name($dir_obj) :>
<: } :>
<: } :>
Albums
#c # Loop on all the albums
<: while ($dir) { _:>
<: if (Image($dir,'thumb')) { _:>
<: my $img = Image($dir,'thumb'); :> <:= Get($dir,'href','dir').$img."" :>
<: } else { _:>
<:= Get($dir,'href','dir')."
" :>
<: } :>
<:= Get($dir,'href','dir').Name($dir) :>
<: if (New_Row($dir,4,0)) { _:>
<: } :>
#c # End album loop
<: $dir = Next($dir); :>
<: } :>
#c # End if albums
<: } :>
<: if (Images()) { _:>
Picures in <: print Path('album_name'); :>
<: my $img=First('pics'); :>
#c # Loop on all the images
<: while($img) { _:>
<: print Get($img,'href','image'); :>
<: print Image($img,'thumb') if Get($img,'thumb'); :>
<: if (New_Row($img,4,0)) { _:>
<: } :>
<: $img = Next($img); :>
<: } _:>
#c # End if images
<: } _:>