#dynamic-types.code_necessary#
++Index: openacs-4/packages/dynamic-types/www/dtypes-code.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dynamic-types/www/dtypes-code.tcl,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dynamic-types/www/dtypes-code.tcl 4 Jun 2005 16:09:54 -0000 1.1 @@ -0,0 +1,19 @@ +ad_page_contract { + + @author Timo Hentschel (timo@timohentschel.de) + @creation-date 2005-06-04 + @cvs-id $Id: dtypes-code.tcl,v 1.1 2005/06/04 16:09:54 timoh Exp $ + +} { + {object_type:multiple} +} + +set page_title "[_ dynamic-types.code_export]" +set context [list [list dtypes "[_ dynamic-types.dynamic_types]"] $page_title] + +multirow create types object_type +foreach type $object_type { + multirow append types $type +} + +ad_return_template Index: openacs-4/packages/dynamic-types/www/dtypes.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dynamic-types/www/Attic/dtypes.tcl,v diff -u -N -r1.1 -r1.2 --- openacs-4/packages/dynamic-types/www/dtypes.tcl 4 Jun 2005 12:51:20 -0000 1.1 +++ openacs-4/packages/dynamic-types/www/dtypes.tcl 4 Jun 2005 16:09:54 -0000 1.2 @@ -15,6 +15,7 @@ -multirow dtypes \ -key object_type \ -row_pretty_plural "[_ dynamic-types.dynamic_types]" \ + -bulk_actions [list "[_ dynamic-types.export]" dtypes-code "[_ dynamic-types.code_export]"] \ -elements { pretty_name { label "[_ dynamic-types.pretty_name]"+ ++