X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=scripts%2Fupload_image_form.ml;fp=scripts%2Fupload_image_form.ml;h=3706417998f7e11073ca37a729b90e52774616c3;hb=ca4d4140c5ab4b351dd5483337cf61e8e9fa94e6;hp=bdd18f312d26ed53afe6c7af823197f7604a55a0;hpb=be14a98b78606d8182dd68dbc3907bcba944ccd5;p=cocanwiki.git

diff --git a/scripts/upload_image_form.ml b/scripts/upload_image_form.ml
index bdd18f3..3706417 100644
--- a/scripts/upload_image_form.ml
+++ b/scripts/upload_image_form.ml
@@ -1,7 +1,7 @@
 (* COCANWIKI scripts.
  * Written by Richard W.M. Jones <rich@merjis.com>.
  * Copyright (C) 2004 Merjis Ltd.
- * $Id: upload_image_form.ml,v 1.3 2004/09/07 14:58:34 rich Exp $
+ * $Id: upload_image_form.ml,v 1.4 2004/09/08 09:54:28 rich Exp $
  *)
 
 open Apache
@@ -18,4 +18,4 @@ let run r (q : cgi) (dbh : Dbi.connection) _ _ =
   q#template template
 
 let () =
-  register_script run
+  register_script ~restrict:[CanEdit] run