fix number missing from individuals

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>

diff --git a/pumpkin-books.ps.pl b/pumpkin-books.ps.pl
index 93b8defad387b3a38383e0c8d5ad21d3b9cf56f5..727645c34daae365115391d69c742baf1e814419 100755 (executable)
--- a/pumpkin-books.ps.pl
+++ b/pumpkin-books.ps.pl
@@ -721,6 +721,11 @@ sub tile {
       $func =~ y/-/_/;
       $func = ${*::}{"book_$func"} // die "$func ?";
       my $data = $func->();
+      $data .= <<END;
+    /Courier-Bold findfont 6 scalefont setfont
+    -0.98 0.94 dc moveto
+    ($index_i) show
+END
       open F, ">book-$stem.ps" or die $!;
       print F $ps_framing, $data, "\nshowpage\n" or die $!;
       close F or die $!;
@@ -765,11 +770,6 @@ END
     }
     $o .= "\n".$d."\n";
     $o .= <<END;
-
-    /Courier-Bold findfont 6 scalefont setfont
-    -0.98 0.94 dc moveto
-    ($index) show
-
 grestore
 END
     $pos++;