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.45 -r1.46
--- openacs-4/packages/xowiki/tcl/xowiki-portlet-procs.tcl	9 May 2007 18:37:49 -0000	1.45
+++ openacs-4/packages/xowiki/tcl/xowiki-portlet-procs.tcl	10 May 2007 10:08:42 -0000	1.46
@@ -1724,6 +1724,24 @@
       </div>"
   }
 
+
+  Class create form-instance-menu \
+      -superclass ::xowiki::Portlet \
+      -parameter {
+        {__decoration none}
+        {parameter_declaration {
+        }}
+      }
+  
+  form-instance-menu instproc render {} {
+    my get_parameters
+    my instvar __including_page
+    set form [$__including_page page_template]
+    set base [$package_id pretty_link [$form name]]
+    return "<div class='wiki-menu'><a href='$base'>Form</a></div>\n"
+  }
+
+  #############################################################################
   Class create form-instances \
       -superclass ::xowiki::Portlet \
       -parameter {
@@ -1736,8 +1754,10 @@
   
   form-instances instproc render {} {
     my get_parameters
+    my instvar __including_page
 
     ::xowiki::Page requireCSS "/resources/acs-templating/lists.css"
+
     TableWidget t1 -volatile \
         -columns {
           Field last_modified -label "Modification Date" -orderby last_modified
@@ -1761,7 +1781,11 @@
             -creation_user [::xo::get_user_name $creation_user] \
             -last_modified $publish_date
       }
-    return [t1 asHTML]
+
+    set base [$package_id pretty_link [$__including_page name]]
+    set label "[$__including_page title] ([$__including_page name])"
+    append html "<p>Instances of Form <a href='$base'>$label</a></p>\n" [t1 asHTML]
+    return $html
   }
 }
  
\ No newline at end of file