next.

[hmh/wiki.git] / lib-wikifunc.ml

diff --git a/lib-wikifunc.ml b/lib-wikifunc.ml
index 8fda1a6..54d86d5 100644 (file)
--- a/lib-wikifunc.ml
+++ b/lib-wikifunc.ml
@@ -79,6 +79,10 @@
        )
 )
 
+(defun-wiki-link NewPageForm ()
+       (motor-raw "gotoPage($F($(this)['Page']),{'Edit':'1'});return false;")
+)
+
 (defun-wiki-link Logout ()
        (motor-raw "opLogout();")
 )