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 -r1.7 -r1.7.4.1
--- 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	18 May 2003 17:25:50 -0000	1.7.4.1
@@ -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 {}]
 }
Index: openacs-4/packages/logger/tcl/ui-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/logger/tcl/ui-procs.xql,v
diff -u -r1.2 -r1.2.4.1
--- openacs-4/packages/logger/tcl/ui-procs.xql	9 May 2003 15:07:27 -0000	1.2
+++ openacs-4/packages/logger/tcl/ui-procs.xql	18 May 2003 17:25:50 -0000	1.2.4.1
@@ -13,5 +13,16 @@
     </querytext>
   </fullquery>
 
+  <fullquery name="logger::ui::project_options.project_options">
+    <querytext>
+        select lp.name, 
+               lp.project_id
+        from   logger_projects lp,
+               logger_project_pkg_map lppm
+        where  lp.project_id = lppm.project_id
+        and    lppm.package_id = :package_id
+        order  by name
+    </querytext>
+  </fullquery>
 
 </queryset>