(: : Copyright (c) 2004 raff@aromatic.org : original source: xfaqtor (see following copyright) : : : Copyright (c) 2004 Mark Logic Corporation : : Licensed under the Apache License, Version 2.0 (the "License"); : you may not use this file except in compliance with the License. : You may obtain a copy of the License at : : http://www.apache.org/licenses/LICENSE-2.0 : : Unless required by applicable law or agreed to in writing, software : distributed under the License is distributed on an "AS IS" BASIS, : WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. : See the License for the specific language governing permissions and : limitations under the License. : : The use of the Apache License does not indicate that this project is : affiliated with the Apache Software Foundation. :) import module "http://www.w3.org/2003/05/xpath-functions" at "xqlog-lib.xqy" import module "http://www.w3.org/2003/05/xpath-functions" at "xqlog-display.xqy" xdmp:set-response-content-type("text/html"), {get-title()} { print-intro() } { print-search() } { if (is-login()) then

Enter a new log entry

else () } { (: We could also have logic to display a single category :) let $names := get-live-category-names() return if (empty($names)) then
No 'live' entries yet
else for $cat in $names return print-category($cat) }

download the source code here