Index: openacs-4/packages/imsld/tcl/imsld-roles-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/tcl/imsld-roles-procs.tcl,v
diff -u -N -r1.15 -r1.16
--- openacs-4/packages/imsld/tcl/imsld-roles-procs.tcl	25 Sep 2006 13:13:31 -0000	1.15
+++ openacs-4/packages/imsld/tcl/imsld-roles-procs.tcl	25 Apr 2007 10:52:30 -0000	1.16
@@ -104,14 +104,14 @@
 } {
     @param imsld_id identifier of the imsld from wich roles will be searched
 } {
-   set main_roles [db_list roles_list {}]
-   set roles_list [list]
-   foreach role $main_roles {
-       set depth [imsld::roles::get_depth -role_id $role]
-       lappend roles_list [list $role $depth]
-
-   }
-   return $roles_list
+    set main_roles [db_list roles_list {}]
+    set roles_list [list]
+    foreach role $main_roles {
+	set depth [imsld::roles::get_depth -role_id $role]
+	lappend roles_list [list $role $depth]
+	
+    }
+    return $roles_list
 }
 
 ad_proc -public imsld::roles::get_roles_names {