Index: openacs-4/packages/lorsm/tcl/lorsm-sc-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/tcl/lorsm-sc-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/lorsm/tcl/lorsm-sc-procs.tcl	17 Nov 2008 13:36:43 -0000	1.3
+++ openacs-4/packages/lorsm/tcl/lorsm-sc-procs.tcl	12 Dec 2008 14:25:34 -0000	1.4
@@ -23,13 +23,7 @@
 
 } {
     # TODO find a better way to lookup the package_id to get the URL
-    set package_id [db_string package_id {
-        select context_id
-        from acs_objects
-        where object_id=
-            (select context_id
-            from acs_objects
-            where object_id=:man_id)}]
+    set package_id [db_string package_id {}]
 
     set url [apm_package_url_from_id $package_id]
     return "${url}delivery-no-index/?man_id=$man_id"