Index: openacs-4/packages/dotlrn-lorsm/tcl/dotlrn-lorsm-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-lorsm/tcl/dotlrn-lorsm-procs.tcl,v
diff -u -N -r1.5 -r1.6
--- openacs-4/packages/dotlrn-lorsm/tcl/dotlrn-lorsm-procs.tcl	16 Jul 2007 10:28:07 -0000	1.5
+++ openacs-4/packages/dotlrn-lorsm/tcl/dotlrn-lorsm-procs.tcl	14 Nov 2008 14:46:38 -0000	1.6
@@ -13,51 +13,58 @@
 #
 
 ad_library {
-    
+
     Procs to set up the dotLRN LORSm applet
-    
+
     @author Ernie Ghiglione (ErnieG@mm.st)
     @version $Id$
 
 }
 
 namespace eval dotlrn_lorsm {
-    
+
     ad_proc -public applet_key {
     } {
         What's my applet key?
     } {
         return "dotlrn_lorsm"
     }
 
+
     ad_proc -public package_key {
     } {
         What package do I deal with?
     } {
-	return "lorsm"
+        return "lorsm"
     }
 
+
     ad_proc -public my_package_key {
     } {
         What's my package key?
     } {
-	return "dotlrn-lorsm"
+        return "dotlrn-lorsm"
     }
 
+
     ad_proc -public get_pretty_name {
     } {
-	returns the pretty name
+        returns the pretty name
     } {
-       	return "#lorsm.LORS_Management#"
+        return "#lorsm.LORS_Management#"
     }
 
+
     ad_proc -public add_applet {
     } {
-	Add the lorsm applet to dotlrn. One time init - must be repeatable!
+        Add the lorsm applet to dotlrn. One time init - must be repeatable!
     } {
-	    dotlrn_applet::add_applet_to_dotlrn -applet_key [applet_key] -package_key [my_package_key]
+        dotlrn_applet::add_applet_to_dotlrn \
+            -applet_key [applet_key] \
+            -package_key [my_package_key]
     }
 
+
     ad_proc -public remove_applet {
         community_id
         package_id
@@ -67,64 +74,72 @@
         ad_return_complaint 1 "[applet_key] remove_applet not implemented!"
     }
 
+
     ad_proc -public add_applet_to_community {
-	community_id
+        community_id
     } {
-	Add the lorsm applet to a specifc dotlrn community
+        Add the lorsm applet to a specifc dotlrn community
     } {
-	set portal_id [dotlrn_community::get_portal_id -community_id $community_id]
+        set portal_id [dotlrn_community::get_portal_id \
+                        -community_id $community_id]
 
-	# create the lorsm package instance (all in one, I've mounted it)
-	set package_id [dotlrn::instantiate_and_mount $community_id [package_key]]
+        # create the lorsm package instance (all in one, I've mounted it)
+        set package_id [dotlrn::instantiate_and_mount $community_id [package_key]]
 
-	# set up the admin portal
+        # set up the admin portal
         set admin_portal_id [dotlrn_community::get_admin_portal_id \
-                                 -community_id $community_id
-        ]
+                                -community_id $community_id]
 
-	lorsm_admin_portlet::add_self_to_page \
+        lorsm_admin_portlet::add_self_to_page \
             -portal_id $admin_portal_id \
             -package_id $package_id
 
         # add the portlet to the comm's portal using
-	# add_portlet_helper
-         set args [ns_set create]
+        # add_portlet_helper
+        set args [ns_set create]
         ns_set put $args package_id $package_id
         add_portlet_helper $portal_id $args
 
-	return $package_id
+        return $package_id
     }
 
+
     ad_proc -public remove_applet_from_community {
-	community_id
+        community_id
     } {
-	remove the applet from the community
+        remove the applet from the community
     } {
         ad_return_complaint 1 "[applet_key] remove_applet_from_community not implemented!"
     }
 
+
     ad_proc -public add_user {
-	user_id
+        user_id
     } {
-	one time user-specifuc init
+        one time user-specifuc init
     } {
         # noop
     }
 
+
     ad_proc -public remove_user {
         user_id
     } {
     } {
         # noop
     }
 
+
     ad_proc -public add_user_to_community {
-	community_id
-	user_id
+        community_id
+        user_id
     } {
-	Add a user to a specifc dotlrn community
+        Add a user to a specifc dotlrn community
     } {
-        set package_id [dotlrn_community::get_applet_package_id -community_id $community_id -applet_key [applet_key]]
+        set package_id [dotlrn_community::get_applet_package_id \
+                            -community_id $community_id \
+                            -applet_key [applet_key]]
+
         set portal_id [dotlrn::get_portal_id -user_id $user_id]
 
         # use "append" here since we want to aggregate
@@ -134,26 +149,30 @@
         add_portlet_helper $portal_id $args
     }
 
+
     ad_proc -public remove_user_from_community {
         community_id
         user_id
     } {
         Remove a user from a community
     } {
-        set package_id [dotlrn_community::get_applet_package_id -community_id $community_id -applet_key [applet_key]]
+        set package_id [dotlrn_community::get_applet_package_id \
+                            -community_id $community_id \
+                            -applet_key [applet_key]]
+
         set portal_id [dotlrn::get_portal_id -user_id $user_id]
 
         set args [ns_set create]
         ns_set put $args package_id $package_id
-
         remove_portlet $portal_id $args
     }
-	
+
+
     ad_proc -public add_portlet {
         portal_id
     } {
-        A helper proc to add the underlying portlet to the given portal. 
-        
+        A helper proc to add the underlying portlet to the given portal.
+
         @param portal_id
     } {
         # simple, no type specific stuff, just set some dummy values
@@ -164,6 +183,7 @@
         add_portlet_helper $portal_id $args
     }
 
+
     ad_proc -public add_portlet_helper {
         portal_id
         args
@@ -179,20 +199,22 @@
             -param_action [ns_set get $args param_action]
     }
 
+
     ad_proc -public remove_portlet {
         portal_id
         args
     } {
-        A helper proc to remove the underlying portlet from the given portal. 
-        
+        A helper proc to remove the underlying portlet from the given portal.
+
         @param portal_id
         @param args A list of key-value pairs (possibly user_id, community_id, and more)
-    } { 
+    } {
         lorsm_portlet::remove_self_from_page \
             -portal_id $portal_id \
             -package_id [ns_set get $args package_id]
     }
 
+
     ad_proc -public clone {
         old_community_id
         new_community_id
@@ -202,46 +224,40 @@
         ns_log notice "Cloning: [applet_key]"
         set new_package_id [add_applet_to_community $new_community_id]
         set old_package_id [dotlrn_community::get_applet_package_id \
-            -community_id $old_community_id \
-            -applet_key [applet_key]
-        ]
+                                -community_id $old_community_id \
+                                -applet_key [applet_key]]
 
-	set clone_courses [db_list_of_lists course_clone {
-	    SELECT man_id, lorsm_instance_id, community_id, class_key, isenabled, istrackable 
-	    FROM ims_cp_manifest_class
-            WHERE community_id = :old_community_id
-	}]
+        set clone_courses [db_list_of_lists course_clone { SELECT man_id,
+            lorsm_instance_id, community_id, class_key, isenabled, istrackable
+            FROM ims_cp_manifest_class
+                WHERE community_id = :old_community_id }]
 
-	if {![empty_string_p $clone_courses]} {
+        if {![empty_string_p $clone_courses]} {
+            foreach course $clone_courses {
+                set man_id [lindex $course 0]
+                set isenabled [lindex $course 4]
+                set istrackable [lindex $course 5]
+                set class_key [dotlrn_community::get_community_type_from_community_id $new_community_id]
 
-	    foreach course $clone_courses {
-		set man_id [lindex $course 0]
-		set isenabled [lindex $course 4]
-		set istrackable [lindex $course 5]
-		set class_key [dotlrn_community::get_community_type_from_community_id $new_community_id]
-
-		db_dml add-course {
-		    insert into ims_cp_manifest_class \
-			(man_id, lorsm_instance_id, community_id, class_key, isenabled, istrackable) \
-			values \
-			(:man_id, :new_package_id, :new_community_id, :class_key, :isenabled, :istrackable)
-		}
-
-	    }
-
-	}
-				   
+                db_dml add-course {
+                    insert into ims_cp_manifest_class \
+                    (man_id, lorsm_instance_id, community_id, class_key, isenabled, istrackable) \
+                    values \
+                    (:man_id, :new_package_id, :new_community_id, :class_key, :isenabled, :istrackable)
+                }
+            }
+        }
         return $new_package_id
     }
 
+
     ad_proc -public change_event_handler {
         community_id
         event
         old_value
         new_value
-    } { 
-        listens for the following events: 
-    } { 
-    }   
-
+    } {
+        listens for the following events:
+    } {
+    }
 }