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 -r1.8 -r1.9
--- openacs-4/packages/imsld/tcl/imsld-roles-procs.tcl	27 Jun 2006 10:39:11 -0000	1.8
+++ openacs-4/packages/imsld/tcl/imsld-roles-procs.tcl	10 Jul 2006 14:33:26 -0000	1.9
@@ -117,16 +117,24 @@
 } {
     @param roles_list the list of roles to get the name
 } {
-
+    set counter 1
     set roles_names [list]
     foreach role_item_par $roles_list {
 
         set role_item [lindex $role_item_par 0]
         set depth [lindex $role_item_par 1]       
 
         db_1row get_role_name {}
-        set name "[string repeat "    " $depth] $name"
-        lappend roles_names $name
+        if {![string eq "" $name]} {
+            ns_log Notice "nooooooooooooooooombre: $name"
+            set name "[string repeat "    " $depth] $name"
+            lappend roles_names $name
+        } else {
+            set name "role_$counter"
+            set name "[string repeat "    " $depth] $name"
+            lappend roles_names $name
+            set counter [expr $counter + 1]   
+        }
     }
     return $roles_names
 }