[r2003-09-25 20:34:40 by cvscast] Empty log message

Original author: cvscast
Date: 2003-09-25 20:34:40+00:00

web/site.cd

@@ -134,10 +134,10 @@ let display_sitemap (h : Tree) :  Xli =
 
 
 let boxes_of  (Page -> [Xul?])
-     <page>[ (items::Item | _)*] ->
+     <page name=n>[ (items::Item | _)*] ->
         let toc = 
          transform items with 
-          <box title=t link=l>_ -> [ <li>[ <a href=('#',l)>t ] ] in
+          <box title=t link=l>_ -> [ <li>[ <a href=((url_of_name n)@('#',l))>t ] ] in
         (match toc with [] -> [] | lis -> [ <ul>lis ])
  
 let link_to (Page -> Xa)