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.2 -r1.3
--- openacs-4/packages/lorsm/tcl/lorsm-sc-procs.tcl	30 May 2006 16:32:52 -0000	1.2
+++ openacs-4/packages/lorsm/tcl/lorsm-sc-procs.tcl	17 Nov 2008 13:36:43 -0000	1.3
@@ -22,34 +22,42 @@
     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 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"
+    # 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 url [apm_package_url_from_id $package_id]
+    return "${url}delivery-no-index/?man_id=$man_id"
 }
 
+
 ad_proc -private lorsm::sc::register_implementations {} {
     Register the ims_manifest_object content type fts contract
 } {
     lorsm::sc::register_fts_impl
 }
 
+
 ad_proc -private lorsm::sc::unregister_implementations {} {
-    acs_sc::impl::delete -contract_name FtsContentProvider -impl_name ims_manifest_object
+    acs_sc::impl::delete \
+        -contract_name FtsContentProvider \
+        -impl_name ims_manifest_object
 }
 
 ad_proc -private lorsm::sc::register_fts_impl {} {
-    set spec {
-        name "ims_manifest_object"
-        aliases {
-            datasource lorsm::datasource
-            url lorsm::url
-        }
+    set spec \
+        {name "ims_manifest_object"
+            aliases {
+                datasource lorsm::datasource
+                url lorsm::url
+            }
         contract_name FtsContentProvider
         owner lorsm
     }
-
     acs_sc::impl::new_from_spec -spec $spec
 }