Index: openacs-4/packages/cms/www/modules/templates/properties.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/templates/properties.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/cms/www/modules/templates/properties.tcl	8 Jun 2001 01:44:53 -0000	1.2
+++ openacs-4/packages/cms/www/modules/templates/properties.tcl	19 Aug 2002 04:07:50 -0000	1.3
@@ -6,32 +6,26 @@
 
 if { ! [string equal $path {}] } {
 
-  template::query get_id id onevalue "
-    select 
-      content_item.get_id(:path, content_template.get_root_folder) 
-    from dual"
+    set id [db_string get_id ""]
 
-  if { [string equal $id {}] } {
+    if { [string equal $id {}] } {
 
-    set msg "The requested folder <tt>$path</tt> does not exist."
-    request error invalid_path $msg
-  }
+        set msg "The requested folder <tt>$path</tt> does not exist."
+        request error invalid_path $msg
+    }
 
 } else {
 
   if { [string equal $id {}] } {
-    template::query get_root_id onevalue "
-      select content_template.get_root_folder from dual"
+      set id [db_string get_root_id ""]
   }
 
-  template::query get_path path onevalue "
-    select content_item.get_path(:id) from dual"
+  set path [db_string get_path ""]
 }
 
 # query for the content type and redirect if a folder
 
-template::query get_type type onevalue "
-  select content_type from cr_items where item_id = :id"
+set type [db_string get_type ""]
 
 if { [string equal $type content_folder] } {
   template::forward index?id=$id