Consultor Eletrônico



Kbase P83647: RemoveLink does not remove all links
Autor   Progress Software Corporation - Progress
Acesso   Público
Publicação   05/07/2006
Status: Unverified

FACT(s) (Environment):

OpenEdge 10.0x
OpenEdge 10.1x

SYMPTOM(s):

ADM2

RemoveLink does not remove all custom links

Only last created custom link can be removed using removeLink

CAUSE:

This is a known issue being investigated by Development

FIX:

Workaround:

Change modifyUserLinks in smart.p:

...

ELSE IF pcMod = "REMOVE":U THEN
DO:
/* If this object is *not* already there, just exit. */
IF LOOKUP(STRING(phObject), cHandles) EQ 0 THEN
RETURN.
ASSIGN cHandles = REPLACE(",":U + cHandles + ",":U,
",":U + STRING(phObject) + ",":U, ",":U)
cHandles = SUBSTR(cHandles, 2, LENGTH(cHandles) - 2)
cNewEntry = pcLinkName + CHR(4) + cHandles.

LEAVE. /* Adding this leave statement fixes this issue */

END. /* END DO IF REMOVE */

...