(* COCANWIKI - a wiki written in Objective CAML.
* Written by Richard W.M. Jones <rich@merjis.com>.
* Copyright (C) 2004 Merjis Ltd.
(* COCANWIKI - a wiki written in Objective CAML.
* Written by Richard W.M. Jones <rich@merjis.com>.
* Copyright (C) 2004 Merjis Ltd.
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
(* Host-specific fields. *)
let sth = dbh#prepare_cached "select css is not null,
feedback_email is not null,
(* Host-specific fields. *)
let sth = dbh#prepare_cached "select css is not null,
feedback_email is not null,
t#conditional "user_logged_in" true;
t#set "username" username);
(* If logged in, we want to update the recently_visited table. *)
if pageid <> None then (
match user with
t#conditional "user_logged_in" true;
t#set "username" username);
(* If logged in, we want to update the recently_visited table. *)
if pageid <> None then (
match user with
(* Recently visited URLs, but don't repeat any from the 'what
* links here' section, and don't link to self.
*)
let not_urls = page' :: wlh_urls in
(* Recently visited URLs, but don't repeat any from the 'what
* links here' section, and don't link to self.
*)
let not_urls = page' :: wlh_urls in
let table = List.map f rv in
t#table "recently_visited" table;
t#conditional "has_recently_visited" (rv <> []);
let table = List.map f rv in
t#table "recently_visited" table;
t#conditional "has_recently_visited" (rv <> []);