Index: openacs-4/packages/cms/www/modules/sitemap/attributes.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/sitemap/attributes.tcl,v diff -u -r1.5 -r1.6 --- openacs-4/packages/cms/www/modules/sitemap/attributes.tcl 8 Jun 2001 01:44:53 -0000 1.5 +++ openacs-4/packages/cms/www/modules/sitemap/attributes.tcl 19 Aug 2002 03:54:52 -0000 1.6 @@ -19,9 +19,7 @@ cms_folder::get_registered_types $folder_id multirow content_types # Get other misc values -template::query get_folder_name folder_name onevalue " - select label from cr_folders where folder_id = :folder_id -" +set folder_name [db_string get_folder_name ""] set page_title "Folder Attributes - $folder_name" set register_marked_content_types \ @@ -38,16 +36,8 @@ # Determine registered types -template::query get_options folder_options onerow " - select - content_folder.is_registered(:folder_id,'content_folder') allow_subfolders, - content_folder.is_registered(:folder_id,'content_symlink') allow_symlinks, - content_folder.is_registered(:folder_id,'content_template') allow_templates - from dual -" +db_1row get_options "" -column_array folder_options - - # Create the form for registering special types to the folder form create register_types