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 -N -r1.2 -r1.3
--- openacs-4/packages/cms/www/modules/sitemap/attributes.tcl	25 May 2001 02:15:56 -0000	1.2
+++ openacs-4/packages/cms/www/modules/sitemap/attributes.tcl	26 May 2001 19:45:03 -0000	1.3
@@ -101,22 +101,21 @@
 
 
         if { [string equal $allow_subfolders "t"] } {
-            set subfolder_sql "content_folder.register_content_type(:folder_resolved_id,'content_folder');"
+            set subfolder_method "register_content_type"
         } else {
-            set subfolder_sql "content_folder.unregister_content_type(:folder_resolved_id,'content_folder');"
+            set subfolder_method "unregister_content_type"
         }
 
         if { [string equal $allow_symlinks "t"] } {
-            set symlink_sql "content_folder.register_content_type(:folder_resolved_id,'content_symlink');"
+            set symlink_method "register_content_type"
         } else {
-            set symlink_sql "content_folder.unregister_content_type(:folder_resolved_id,'content_symlink');"
+            set symlink_method "unregister_content_type"
         }
 
-        set sql 
-
-        db_exec_plsql content "begin
-             $subfolder_sql
-             $symlink_sql
+        db_exec_plsql content "
+             begin
+               content_folder.${subfolder_method}(:folder_resolved_id,'content_folder');
+               content_folder.${symlink_method}(:folder_resolved_id,'content_symlink');
              end;"
     }