Index: openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl,v
diff -u -r1.27 -r1.28
--- openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	1 Jan 2007 16:41:24 -0000	1.27
+++ openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	29 Jan 2007 07:55:23 -0000	1.28
@@ -47,14 +47,18 @@
         {with_categories true}
         {submit_link "view"}
         {folderspec ""}
+        {autoname 0}
       }
 
 
   WikiForm instproc mkFields {} {
-    my instvar data
+    my instvar data autoname
     set __fields ""
     set field_list [my field_list]
     if {[::xo::db::has_ltree]} {set field_list [linsert $field_list 2 page_order]}
+    if {$autoname} {
+      my f.name {name:text(hidden),optional}
+    }
     foreach __field $field_list {
       set __spec [my set f.$__field]
       if {[string first "richtext" [lindex $__spec 0]] > -1} {
@@ -168,7 +172,10 @@
       if {![regexp {^..:} $name]} {
         if {![info exists nls_language]} {set nls_language ""}
         if {$nls_language eq ""} {set nls_language [lang::conn::locale]}
-        set name [string range $nls_language 0 1]:$name
+        if {$name ne ""} {
+          # prepend the language prefix only, if the entry is not empty
+          set name [string range $nls_language 0 1]:$name
+        }
       }
       set name [::$package_id normalize_name $name]
     }