<: # 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; } :>// <: pAlbum_Name() :> | <:=helmStripMarkup(Image_Name()):> <: if (helmIsImageCaption()) { :>// <: } :>// <: Meta() :>//

<:=helmStripMarkup(Image_Name()):>

    <: while (Parent_Albums_Left() > 0) { print "
  • \n "; pParent_Album(); if (Parent_Albums_Left() > 1) { print " »"; } print "\n
  • \n"; Next_Parent_Album() } :>//
<: if ($#IMAGE_NAMES > 6 && $#IMAGE_NAMES - $THIS_IMAGE < 3) { $helmLower = $#IMAGE_NAMES - 6; } elsif ($#IMAGE_NAMES > 6 && $THIS_IMAGE > 3) { $helmLower = $THIS_IMAGE - 3; } else { $helmLower = 0; } $helmUpper = $helmLower + 6; if ($helmUpper > $#IMAGE_NAMES) { $helmUpper = $#IMAGE_NAMES; } # print "Size: " . $#IMAGE_NAMES . "\nCurrent: " . $THIS_IMAGE . "\nLower: " . $helmLower . "\nUpper: " . $helmUpper . "\n"; print "
 
> <: pImage_Src() :>
<:=Image_Name():>
<: if (helmIsImageCaption()) { :>//
<: pImage_Caption() :>
<: } :>//
<: Credit() :> on <:=scalar localtime:>
Newfloat theme 0.2 by Helmar Wieland