Index: openacs-4/packages/lors/tcl/lors-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lors/tcl/lors-test-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/lors/tcl/lors-test-procs.tcl	7 Jun 2006 13:45:20 -0000	1.2
+++ openacs-4/packages/lors/tcl/lors-test-procs.tcl	17 Nov 2008 13:35:04 -0000	1.3
@@ -1,9 +1,9 @@
-# 
+#
 
 ad_library {
-    
+
     Test lorsm-manifest procs
-    
+
     @author devopenacs5 (devopenacs5@www)
     @creation-date 2005-08-20
     @arch-tag: /usr/local/bin/bash: line 1: uuidgen: command not found
@@ -18,17 +18,22 @@
         -test_code {
             # get folder_id (where?)
             set folder_id [content::folder::new -name "__lors_test__"]
+
             content::folder::register_content_type \
                 -folder_id $folder_id \
                 -content_type content_revision \
                 -include_subtypes t
 
             # get fs_package_id (where?)
             set fs_package_id ""
+
             # get package_id
-            set __package_id [db_string get_package "select package_id from apm_packages where package_key='lorsm' limit 1"]
+            set __package_id [db_string get_package \
+                "select package_id
+                from apm_packages
+                where package_key='lorsm' limit 1"]
             # get community_id
-           
+
             # create a new manifest
             set man_id \
                 [db_exec_plsql man {
@@ -68,7 +73,7 @@
                                            :__package_id
                                            )
                 }]
-            
+
             # create some resources
             set res_id \
                 [db_exec_plsql res {
@@ -86,7 +91,7 @@
                                        :__package_id
                                        )
                 }]
-            
+
             # create some items
             set item_id \
                 [db_exec_plsql item {
@@ -113,6 +118,7 @@
                                     :__package_id
                                     )
                 }]
+
             # create some files
             set file_id \
                 [package_exec_plsql \
@@ -134,17 +140,21 @@
             }
 
             # create item_to_resource mapping
-            db_dml i_to_r "insert into ims_cp_items_to_resources
-        (item_id,res_id) values (:item_id,:res_id)"
+            db_dml i_to_r \
+                "insert into ims_cp_items_to_resources (item_id,res_id)
+                values (:item_id,:res_id)"
 
             # create student_tracking
-            
+
             # create cmi_core (whatever that is)
-            
+
             # create some metadata
 
             # try to delete the whole couse
             lors::imscp::manifest_delete -man_id $man_id -delete_all t
         }
-    aa_false "Manifest $man_id deleted" [db_0or1row get_man "select man_id from ims_cp_manifests where man_id=:man_id"]
-}
\ No newline at end of file
+    aa_false "Manifest $man_id deleted" [db_0or1row get_man \
+                                            "select man_id
+                                            from ims_cp_manifests
+                                            where man_id=:man_id"]
+}