Index: openacs-4/packages/datamanager/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/datamanager/www/index.tcl,v
diff -u -r1.1.2.2 -r1.1.2.3
--- openacs-4/packages/datamanager/www/index.tcl	10 Oct 2005 12:59:34 -0000	1.1.2.2
+++ openacs-4/packages/datamanager/www/index.tcl	19 Oct 2005 08:16:01 -0000	1.1.2.3
@@ -1,5 +1,5 @@
 ad_page_contract {
-    Show the list of communities where an object can be moved
+    Show the list of datamanager supported objects
     @author Luis de la Fuente(lfuente@it.uc3m.es)
     @creation_date 2005-07-05
     
@@ -16,49 +16,46 @@
 
 # prevent this page from being called when not in a community
 # (i.e. the main dotlrn instance
-if {[empty_string_p $community_id]]} {
+if {[empty_string_p $community_id]} {
     ad_returnredirect "[dotlrn::get_url]"
 }
 
 db_1row datamanager::select_folder_package_id {}
-set prueba_id [dotlrn_community::get_applet_package_id -community_id $community_id -applet_key 'dotlrn_fs']
-
-nslog Notice "$package_id $prueba_id"
-
-
 set root_folder_id [fs::get_root_folder -package_id $package_id]
 
-template::list::create \
-    -name objects \
-    -multirow objects \
-    -elements {
-        name {
-            label {[_ datamanager.Name]]}
-      }
-        object_type {
-            label {[_ datamanager.Type]}
-      }
-        move {
-            display_template {[_ datamanager.Move]}        
-    	    link_url_col move_object_url
-        }
-        copy {
-            display_template {[_ datamanager.Copy]}
-    	    link_url_col copy_object_url
-        }
-        delete { 
-            display_template {[_ datamanager.Delete]}
-    	    link_url_col delete_object_url
-        }
+set supported_types_list {Assessments Faqs Forums Folders News Static-Portlet}
+set next_url select-objects
 
-    }
-
-db_multirow -extend { move_object_url
-                      copy_object_url
-                      delete_object_url                         
-} objects datamanager::select_objects {
-} {
-    set move_object_url [export_vars -base one-object-move { object_id }]
-    set copy_object_url [export_vars -base one-object-copy { object_id }]       
-    set delete_object_url [export_vars -base one-object-delete { object_id }]       
-}
+#template::list::create \
+#    -name objects \
+#    -multirow objects \
+#    -elements {
+#        name {
+#            label {[_ datamanager.Name]]}
+#      }
+#        object_type {
+#            label {[_ datamanager.Type]}
+#      }
+#        move {
+#            display_template {[_ datamanager.Move]}        
+#    	    link_url_col move_object_url
+#        }
+#        copy {
+#            display_template {[_ datamanager.Copy]}
+#    	    link_url_col copy_object_url
+#        }
+#        delete { 
+#            display_template {[_ datamanager.Delete]}
+#    	    link_url_col delete_object_url
+#        }
+#
+#    }
+#db_multirow -extend { move_object_url
+#                      copy_object_url
+#                      delete_object_url                         
+#} objects datamanager::select_objects {
+#} {
+#    set move_object_url [export_vars -base one-object-move { object_id }]
+#    set copy_object_url [export_vars -base one-object-copy { object_id }]       
+#    set delete_object_url [export_vars -base one-object-delete { object_id }]       
+#}