Index: openacs-4/packages/cms/www/modules/items/create-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/items/create-2.tcl,v diff -u -r1.7.2.2 -r1.7.2.3 --- openacs-4/packages/cms/www/modules/items/create-2.tcl 19 Feb 2007 22:17:43 -0000 1.7.2.2 +++ openacs-4/packages/cms/www/modules/items/create-2.tcl 27 Feb 2007 21:42:17 -0000 1.7.2.3 @@ -87,13 +87,31 @@ -content_method $content_method # added to support content storage selection (OpenACS - DanW) -element create create_item storage_type \ - -datatype keyword \ - -widget radio \ - -label "Content Storage Type" \ - -options { {{Lob Storage} lob } {{File Storage} file} {{Text Storage} text}} \ - -values [list "text"] +switch $content_method { + file_upload { + element create create_item storage_type \ + -datatype text \ + -widget hidden \ + -value file + } + no_content { + element create create_item storage_type \ + -datatype text \ + -widget hidden \ + -optional \ + -value text + } + default { + element create create_item storage_type \ + -datatype keyword \ + -widget radio \ + -label "Content Storage Type" \ + -options { {{Lob Storage} lob } {{Text Storage} text}} \ + -values [list "text"] + } +} + if { [wizard exists] } { set is_wizard t wizard submit create_item