From b60b42ccefb3dba990fba7b2d4e3391008602756 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Wed, 20 Apr 2005 19:09:19 +0000
Subject: pg printnames

---
 src/tools/Htmls.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/tools')

diff --git a/src/tools/Htmls.hs b/src/tools/Htmls.hs
index d2c0dfb7a..f9cc8b490 100644
--- a/src/tools/Htmls.hs
+++ b/src/tools/Htmls.hs
@@ -4,9 +4,9 @@
 -- Stability   : (stable)
 -- Portability : (portable)
 --
--- > CVS $Date: 2005/04/17 17:29:51 $ 
+-- > CVS $Date: 2005/04/20 20:09:19 $ 
 -- > CVS $Author: aarne $
--- > CVS $Revision: 1.8 $
+-- > CVS $Revision: 1.9 $
 --
 -- chop an HTML file into separate files, each linked to the next and previous.
 -- the names of the files are n-file, with n = 01,02,...
@@ -64,7 +64,7 @@ separator = "<!-- NEW -->"
 
 link :: FilePath -> Int -> Int -> String
 link file mx n = 
-  (if n >= mx then "" else ("   <a href=\"" ++ file' ++ "\">Next</a>")) ++
+  (if n >= mx-1 then "" else ("   <a href=\"" ++ file' ++ "\">Next</a>")) ++
   (if n == 1  then "" else ("   <a href=\"" ++ file_ ++ "\">Previous</a>")) ++
                            ("   <a href=\"" ++ file0 ++ "\">Contents</a>") ++
                            ("   <a href=\"" ++ file1 ++ "\">First</a>") ++
-- 
cgit v1.2.3