Changeset 273 for ccr

Timestamp:

Nov 11, 2008, 6:31:54 PM (16 years ago)

Author:

George Lilly

Message:

fix for object id

File:

• ccr/trunk/p/GPLLABS.m (modified) (1 diff)

ccr/trunk/p/GPLLABS.m

@@ -142 +142 @@
  . . S @C0CLB@(0)=@C0CLB@(0)+1 ; INCREMENT COUNT
  . . S C0CLI=@C0CLB@(0) ; INDEX FOR THIS RESULT
+ . . S @C0CLB@(C0CLI,"RESULTOBJECTID")="RESULT_"_C0CLI
  . . M @C0CLB@(C0CLI)=C0CVAR ; PERSIST THE OBR VARS
- . . S @C0CLB@(C0CLI,"RESULTOBJECTID")="RESULT_"_C0CLI
  . . S C0CLOBX=0 ; MARK THE BEGINNING OF A NEW SECTION
  . I C0CTYP="OBX" D  ; SPECIAL CASE FOR OBX3