Index: openacs-4/packages/evaluation/www/view/index.vuh
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/www/view/index.vuh,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/evaluation/www/view/index.vuh	28 Apr 2004 11:09:54 -0000	1.1
+++ openacs-4/packages/evaluation/www/view/index.vuh	22 May 2004 01:20:26 -0000	1.2
@@ -15,14 +15,9 @@
 set package_id [ad_conn package_id]
 
 # Get the IDs
-set content_type [db_string get_content_type "select cri.content_type
-                                              from cr_items cri, cr_revisions crr
-                                              where cri.item_id = crr.item_id 
- 											    and crr.revision_id = :revision_id"]
+set content_type [db_string get_content_type { *SQL* }]
 
-set content_root [db_string get_folder_id "select crf.folder_id 
-										   from cr_folders crf
-										   where crf.label = :content_type||'_'||:package_id"]
+set content_root [db_string get_folder_id { *SQL* }]
 
 set template_root ""