[nurpawiki commit] r465 - trunk

[codesite...@google.com]

Author: jjhellst
Date: Sun Mar 8 09:00:05 2009
New Revision: 465

Modified:
trunk/ (props changed)
trunk/gen_ocsigen_config
trunk/main.ml

Log:
- Apply bug fix to external links as reported by Bjoern Appel in issue 63.
- Fix gen_ocsigen_config to point to _build/nurpawiki.cma by default.
- Add some svn:ignores.

Modified: trunk/gen_ocsigen_config
==============================================================================
--- trunk/gen_ocsigen_config (original)
+++ trunk/gen_ocsigen_config Sun Mar 8 09:00:05 2009
@@ -7,7 +7,7 @@

set -e # Bail out on errors

-site_cma="nurpawiki.cma"
+site_cma="_build/nurpawiki.cma"
static_root="."
if [ -z $1 ]; then
true

Modified: trunk/main.ml
==============================================================================
--- trunk/main.ml (original)
+++ trunk/main.ml Sun Mar 8 09:00:05 2009
@@ -258,11 +258,7 @@
else (* External link *)
let url = scheme^":"^page in
let t = if text = "" then url else text in
- a (new_external_service
- ~prefix:url
- ~path:[]
- ~get_params:unit
- ~post_params:unit ()) sp [pcdata t; ext_img] () in
+ XHTML.M.a ~a:[a_href (uri_of_string url)] [pcdata t] in

let add_html html_acc html =
html::html_acc in