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.1.2.2 -r1.1.2.3
--- openacs-4/packages/lorsm/tcl/lorsm-sc-procs.tcl	1 Feb 2006 15:17:54 -0000	1.1.2.2
+++ openacs-4/packages/lorsm/tcl/lorsm-sc-procs.tcl	2 Feb 2006 10:33:58 -0000	1.1.2.3
@@ -22,8 +22,9 @@
     returns the url for the lorsm man
 
 } {
+        # TODO find a better way to lookup the package_id to get the URL
 	set package_id [db_string package_id {	
-        select package_id from cr_folders where folder_id=(select context_id from acs_objects where object_id=:man_id)
+        select context_id from acs_objects where object_id=(select context_id from acs_objects where object_id=:man_id)
     }]
 	set url [apm_package_url_from_id $package_id]
 	return "${url}delivery-no-index/?man_id=$man_id"