Index: openacs-4/packages/acs-subsite/tcl/apm-callback-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/apm-callback-procs.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/acs-subsite/tcl/apm-callback-procs.tcl 27 Feb 2005 22:45:39 -0000 1.4 +++ openacs-4/packages/acs-subsite/tcl/apm-callback-procs.tcl 10 Jun 2005 17:20:21 -0000 1.5 @@ -28,13 +28,14 @@ -spec { 5.2.0d2 5.2.0d3 { set type_id [content::type::new -content_type "email_image" -pretty_name "Email_Image" \ - -pretty_plural "Email_Images" -table_name "users_email_image" -id_column "email_image_id"] - + -pretty_plural "Email_Images" -table_name "users_email_image" -id_column "email_image_id"] + set folder_id [content::folder::new -name "Email_Images" -label "Email_Images"] - + content::folder::register_content_type -folder_id $folder_id -content_type "email_image" - + apm_parameter_register "AsmForRegisterId" "Assessment used on the registration process." "acs-subsite" "0" "number" "user-login" + + } } } -