structure NM = BinaryMapFn(IntKey)
-val outputDir = "/home/hcoop/new-hcoop-website/"
+val outputDir = "/home/hcoop/public_html/"
fun generate () =
let
if not isAnon then
(TextIO.output (outf, "<tr> <td><a href=\"member/");
TextIO.output (outf, name);
- TextIO.output (outf, ".shtml\">");
+ TextIO.output (outf, "\">");
TextIO.output (outf, name);
TextIO.output (outf, "</a></td> <td>");
TextIO.output (outf, rname);
val outf = TextIO.openOut (String.concat [outputDir, "member/", name, ".shtml"])
val _ = header (outf, "HCoop Member: " ^ name)
- val _ = TextIO.output (outf, "<p><a href=\"/members.shtml\">Return to members directory</a></p>\n\n");
+ val _ = TextIO.output (outf, "<p><a href=\"/members\">Return to members directory</a></p>\n\n");
val _ = TextIO.output (outf, "<table>\n<tr> <td align=\"right\"><b>Member</b>:</td> <td>")
val _ = TextIO.output (outf, name)
val _ = TextIO.output (outf, "</td> </tr>\n<tr> <td align=\"right\"><b>Name</b>:</td> <td>")
TextIO.output (outf, Web.html descr);
TextIO.output (outf, "</td> <td><a href=\"member/");
TextIO.output (outf, name);
- TextIO.output (outf, ".shtml\">");
+ TextIO.output (outf, "\">");
TextIO.output (outf, name);
TextIO.output (outf, "</a></td> </tr>\n"))
in