Index: openacs-4/packages/imsld/www/support-activity-roles.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/imsld/www/support-activity-roles.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/imsld/www/support-activity-roles.tcl 25 Jul 2006 17:28:18 -0000 1.4 +++ openacs-4/packages/imsld/www/support-activity-roles.tcl 20 Sep 2006 15:04:05 -0000 1.5 @@ -13,7 +13,7 @@ } set users_in_role [list] - set counter 0 +set counter 0 foreach instances_group $supported_role_instances { set users_in_instance [list] foreach instance $instances_group { @@ -28,8 +28,7 @@ set username [join [db_list_of_lists get_user_name "select first_names, last_name from dotlrn_users where user_id=$member_id"]] } - set counter [expr $counter + 1] - + set counter [expr $counter + 1] }