Index: openacs-4/packages/xowiki/tcl/xowiki-portlet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/Attic/xowiki-portlet-procs.tcl,v
diff -u -r1.61 -r1.62
--- openacs-4/packages/xowiki/tcl/xowiki-portlet-procs.tcl	15 Jun 2007 07:29:40 -0000	1.61
+++ openacs-4/packages/xowiki/tcl/xowiki-portlet-procs.tcl	15 Jun 2007 09:34:51 -0000	1.62
@@ -1942,9 +1942,15 @@
                  -where_clause " p.page_template = $form_item_id and p.page_instance_id = cr.revision_id " \
                  -folder_id [$package_id folder_id]]
     set count [db_list [my qn count] $sql]
-    return "<div class='wiki-menu'>\
-     <a href='$new_link'>fill out</a> &middot; <a href='$answer_link'>list answers ($count)</a>
-      </div>"
+    set links [list]
+    foreach l [list new_link answer_link] {
+      if {[set $l] ne ""} {
+        set label #xowiki.form-menu-$l#
+        if {$l eq "answer_link"} {append label " ($count) "}
+        lappend links "<a href='[set $l]'>$label</a>"
+      }
+    }
+    return "<div class='wiki-menu'>[join $links {  &middot; }]</div>\n"
   }
 
   #############################################################################