Got rid of multiples in the ACTOR array

2008-07-01 17:38:34 +00:00 · 2008-07-01 17:38:34 +00:00 · 7f1b7be2fd
parent cbee619c02
commit 7f1b7be2fd
1 changed files with 5 additions and 1 deletions
--- a/p/GPLCCR.m
+++ b/p/GPLCCR.m
@ -83,7 +83,11 @@ ACTLST(AXML,ACTRTN) ; RETURN THE ACTOR LIST FOR THE XML IN AXML
        . I @AXML@(I)?.E1"<ActorID>".E D  ; THERE IS AN ACTOR ON THIS LINE
        . . S J=$P($P(@AXML@(I),"<ActorID>",2),"</ActorID>",1)
        . . W "<ActorID>=>",J,!
-        . . D PUSH^GPLXPATH(ACTRTN,J)
+        . . S K(J)="" ; HASHING ACTOR TO GET RID OF MULTIPLES
+        S I="" ; GOING TO $O THROUGH THE HASH
+        F J=0:0 D  Q:$O(K(I))=""
+        . S I=$O(K(I)) ; WALK THROUGH THE HASH OF ACTORS
+        . D PUSH^GPLXPATH(ACTRTN,I) ; ADD THE ACTOR TO THE RETURN ARRAY
        Q
        ;
 TEST   ; RUN ALL THE TEST CASES