options: -geometry=170x114 <: # Newfloat theme version 0.2 for album # Copyright 2003 Helmar Wieland # License: GPLv2 or later sub helmIsImageCaption { if (($IMAGE_CAPTION_FILES[$IMAGE_CNT] && (-r $IMAGE_CAPTION_FILES[$IMAGE_CNT])) || $IMAGE_CAPTIONS[$IMAGE_CNT]) { return 1; } return 0; } sub helmImageCaption { if ($IMAGE_CAPTION_FILES[$IMAGE_CNT] && (-r $IMAGE_CAPTION_FILES[$IMAGE_CNT])) { my ($buffer) = ""; return 0 unless (open(FILE,"$IMAGE_CAPTION_FILES[$IMAGE_CNT]")); while() { $buffer .= $_; } close FILE; return $buffer; } elsif ($IMAGE_CAPTIONS[$IMAGE_CNT]) { return $IMAGE_CAPTIONS[$IMAGE_CNT]; } return 0; } sub helmStripMarkup { if (@_) { $_ = $_[0]; s/\<(.*?)>//gi; # this is kinda stupid return $_; } return 0; } sub helmMakeNonBsp { if (@_) { $_ = $_[0]; s/\s/ /g; # this is kinda stupid, too return $_; } return 0; } :>// <: pAlbum_Name() :> <: Meta() :>// <: if (!(Parent_Albums_Left() == 1)) { :>// .*<\/a>/$1/; print; :>" /> <: } :>// />

<: pAlbum_Name() :>

    <: while (Parent_Albums()) { print "
  • \n "; pParent_Album(); if (Parent_Albums_Left() > 1) { print " »"; } print "\n
  • \n"; Next_Parent_Album() } :>
<: if (isHeader()) { :>

<:pHeader():>

<: } :>// <: if (Child_Albums()) { :>//
<: } :> <: if (Images()) { :>// <: } :>// <: if (isFooter()) { :>
 
<: } :>
<: Credit() :> on <:=scalar localtime:>
Newfloat theme 0.2 by Helmar Wieland