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 @@ " } + + 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 "
Form
\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 "

Instances of Form $label

\n" [t1 asHTML] + return $html } } \ No newline at end of file