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.10 -r1.11 --- openacs-4/packages/imsld/tcl/imsld-roles-procs.tcl 10 Jul 2006 14:41:56 -0000 1.10 +++ openacs-4/packages/imsld/tcl/imsld-roles-procs.tcl 13 Jul 2006 13:11:43 -0000 1.11 @@ -326,7 +326,7 @@ } { Returns the role_id which has a given ref in a run, 0 if no matches found. } { - if{[db_0or1row select_role_id { + if { [db_0or1row select_role_id { select ar1.object_id_one as role_id from imsld_rolesi iri, acs_rels ar1, @@ -337,8 +337,8 @@ and ar2.object_id_two=:run_id and iri.item_id=ar1.object_id_one and iri.identifier=:ref - group by role_id; - }]} { + group by ar1.object_id_one; + }] } { return $role_id } else { return 0