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.29 -r1.30
--- openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	17 Feb 2007 19:41:08 -0000	1.29
+++ openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	19 Feb 2007 10:01:28 -0000	1.30
@@ -50,12 +50,16 @@
         {autoname 0}
       }
 
+  WikiForm instproc show_page_order {} {
+    my instvar data
+    return [expr {[::xo::db::has_ltree] && [[$data package_id] get_parameter display_page_order 1]}]
+  }
 
   WikiForm instproc mkFields {} {
     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 {[my show_page_order]} {set field_list [linsert $field_list 2 page_order]}
     if {$autoname} {
       my f.name {name:text(hidden),optional}
     }
@@ -257,6 +261,7 @@
   WikiForm instproc new_data {} {
     my instvar data
     my data_from_form -new 1 
+    $data set __autoname_prefix [string range [$data set nls_language] 0 1]:
     set item_id [next]
     $data set creation_user [ad_conn user_id]
     my update_references