[- $escmode =0; -] [$ var $strip_id $strip $s @strips $] [- opendir ARCHIVE, $_[0]->component->cwd; #"."; #$r->component->cwd; @strips = ( undef, sort { $a cmp $b } grep /^Seraphi1_\d+/, readdir ARCHIVE ); closedir ARCHIVE; $strip_id = $fdat{ 'page' }; $strip = $strips[ $strip_id ]; unless( $strip ) { $strip_id = 1; $strip = $strips[ 1 ]; } -] [- sub page_title { my $s = shift; $s =~ s/^.*_(.*)\..*$/page $1/; $s =~ s/page/pages/ if $s =~ s/_/ and /; return $s; } -] [$ sub page $]
[+ page_title( $strip ) +]
[$ endsub $] Andrew Dabb and Michel Lacombe's SERAPHI [- page() -]

Isabelle Stephen is my model for this book's main character.

[$ if $strip_id > 1 $]Previous: [+ page_title( $strips[ $strip_id -1 ] ) +][$ endif $] 		[$ if $strip_id < $#strips $] Next: [+ page_title( $strips[ $strip_id +1 ] ) +][$ endif $]
[$ var $i $s $]

[$ foreach $i (1..$#strips) $] [- $s = $strips[ $i ]; $s =~ /1_(\d+_?\d+)\.gif/; $s = $1; $s =~ y/_/-/; -] [+ $s +] [$ endforeach $]