Index: openacs-4/packages/xowiki/tcl/includelet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/includelet-procs.tcl,v
diff -u -r1.154 -r1.155
--- openacs-4/packages/xowiki/tcl/includelet-procs.tcl	22 Jun 2010 17:18:39 -0000	1.154
+++ openacs-4/packages/xowiki/tcl/includelet-procs.tcl	4 Jul 2010 16:47:35 -0000	1.155
@@ -3279,9 +3279,11 @@
           {-form}
           {-parent_id}
           {-package_ids ""}
-          {-orderby "__last_modified,desc"}
+          {-orderby "_last_modified,desc"}
+	  {-view_field _name}
           {-publish_status "ready"}
           {-field_names}
+          {-hidden_field_names ""}
           {-extra_form_constraints ""}
           {-inherit_from_forms ""}
           {-category_id}
@@ -3351,8 +3353,8 @@
       switch $attr {
         orderby {set $attr _[::xowiki::formfield::FormField fc_decode $value]}
         buttons - publish_status - category_id - unless -
-        where -   with_categories - with_form_link - csv - voting_form -
-        voting_form_form - voting_form_anon_instances {
+        where -   with_categories - with_form_link - csv - view_field - 
+	voting_form - voting_form_form - voting_form_anon_instances {
           set $attr $value
           #my msg " set $attr $value"
         }
@@ -3371,6 +3373,11 @@
       set raw_field_names $field_names
     }
 
+    foreach fn $hidden_field_names {
+      set __hidden($fn) 1
+      lappend raw_field_names $fn
+    }
+
     if {$raw_field_names eq ""} {
       set raw_field_names {_name _last_modified _creation_user}
     }
@@ -3410,6 +3417,7 @@
                        -html {style "padding: 2px;"} -no_csv 1 -richtext 1} \n
     }
     foreach fn $field_names {
+      if {[info exists __hidden($fn)]} continue
       append cols [list AnchorField _$fn \
 		       -label [$__ff($fn) label] \
 		       -richtext 1 \
@@ -3533,9 +3541,9 @@
 	#
 	# Set always a view link, if we have no view button ...
 	#
-	if {[info exists __ff(_name)]} {
-	  # .... on _name ....
-	  $__c set __name.href $view_link
+	if {[info exists __ff($view_field)]} {
+	  # .... on $view_field) (per default: _name) ....
+	  $__c set _$view_field.href $view_link
 	} else {
 	  # .... otherwise on the first form_field
 	  $__c set _[lindex $field_names 0].href $view_link