Index: openacs-4/packages/lorsm/tcl/lorsm-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lorsm/tcl/lorsm-callback-procs.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/lorsm/tcl/lorsm-callback-procs.tcl	30 May 2006 16:23:25 -0000	1.3
+++ openacs-4/packages/lorsm/tcl/lorsm-callback-procs.tcl	17 Nov 2008 13:36:43 -0000	1.4
@@ -7,27 +7,28 @@
     @cvs-id $Id$
 }
 
+
 ad_proc -callback application-track::getApplicationName -impl lorsm {} {
         callback implementation
 } {
     return "lorsm"
 }
 
+
 ad_proc -callback application-track::getGeneralInfo -impl lorsm {} {
     callback implementation
 } {
     db_1row my_query {
-	select count(1) as result
-		from (
-			select distinct l.course_id
-				from lorsm_student_track l
-	    			where l.community_id=:comm_id	
-	    			group by l.course_id) as t
-    }
+    select count(1) as result
+        from (select distinct l.course_id
+            from lorsm_student_track l
+            where l.community_id=:comm_id
+            group by l.course_id) as t}
 
     return "$result"
 }
 
+
 ad_proc -callback application-track::getSpecificInfo -impl lorsm {} {
     callback implementation
 } {
@@ -36,30 +37,29 @@
     upvar $elements_name my_elements
 
     set my_query {
-	select d.id,i.course_name,l.start_time,l.end_time
-		from lorsm_student_track l, dotlrn_users d, ims_cp_manifests i
-		where l.course_id IN
-		 (
-			select distinct l.course_id
-				from lorsm_student_track l
-	    			where l.community_id=:class_instance_id	
-	    			group by l.course_id)
-			and l.user_id = d.user_id
-			and l.course_id = i.man_id
-	}
-
+        select d.id,i.course_name,l.start_time,l.end_time
+        from lorsm_student_track l, dotlrn_users d, ims_cp_manifests i
+        where l.course_id IN (
+            select distinct l.course_id
+            from lorsm_student_track l
+            where l.community_id=:class_instance_id
+                group by l.course_id)
+            and l.user_id = d.user_id
+            and l.course_id = i.man_id
+    }
     set my_elements ""
 
     return "OK"
 }
 
+
 ad_proc -public -callback imsld::import -impl lors {} {
     this is the imsld lors importer
 } {
-	if {$res_type == "imscp_xmlv1p0"} {
-	    return [lorsm::register_xml_object_id \
-			-xml_file $tmp_dir/$res_href \
-			-tmp_dir $tmp_dir \
-			-community_id $community_id]
-	}
+    if {$res_type == "imscp_xmlv1p0"} {
+        return [lorsm::register_xml_object_id \
+                    -xml_file $tmp_dir/$res_href \
+                    -tmp_dir $tmp_dir \
+                    -community_id $community_id]
+    }
 }