Index: openacs-4/packages/logger/tcl/ui-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/logger/tcl/ui-procs.tcl,v
diff -u -N -r1.7 -r1.8
--- openacs-4/packages/logger/tcl/ui-procs.tcl	9 May 2003 15:07:27 -0000	1.7
+++ openacs-4/packages/logger/tcl/ui-procs.tcl	28 Aug 2003 09:45:30 -0000	1.8
@@ -101,18 +101,5 @@
     @author Peter Marklund
 } {
     set package_id [ad_conn package_id]
-
-    set project_options [list]
-    db_foreach project_options {
-    select lp.project_id,
-           lp.name
-    from logger_projects lp,
-         logger_project_pkg_map lppm
-    where lp.project_id = lppm.project_id
-      and lppm.package_id = :package_id
-    } {
-        lappend project_options [list $name $project_id] 
-    }
-
-    return $project_options
+    return [db_list_of_lists project_options {}]
 }