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.2 -r1.3 --- openacs-4/packages/acs-subsite/tcl/apm-callback-procs.tcl 18 Jan 2005 17:08:25 -0000 1.2 +++ openacs-4/packages/acs-subsite/tcl/apm-callback-procs.tcl 22 Jan 2005 18:05:03 -0000 1.3 @@ -14,8 +14,6 @@ content::folder::register_content_type -folder_id $folder_id -content_type "email_image" - rel_types::new email_image_rel "Email Image" "Email Images" user 0 1 content_item 0 1 - } ad_proc -public subsite::after_upgrade { @@ -33,8 +31,7 @@ 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" - - rel_types::new email_image_rel "Email Image" "Email Images" user 0 1 content_item 0 1 + } } }