Threaded Mode | Linear Mode

Sir.Nicklas · 11-05-2019 01:09 AM

Hey,
I don't know if this is the correct place but i want to share a Fix, which was missed after <SERV.CLIENT.x> behavior was updated. After "Page" function gained a
revised version, there is a subroutine called "[FUNCTION GMPageDelete]". While walking trough the online clients, it will now try to find the uid clients like telnet logins. It cant, of course. So there is a small fix to be added, and no forther errors will show up.

ORIGINAL:

Code:

[FUNCTION GMPageDelete]

SERV.GMPAGE.<ARGS>.DELETE

CTAG.Dialog.GMPage.Selected=

IF (<SERV.CLIENTS>)

 FOR 0 <eval <SERV.CLIENTS>-1>

  REF1=<SERV.CLIENT.<LOCAL._FOR>.UID>

  IF !(<isempty <REF1.CTAG.Dialog.GMPage.Selected>>)

   IF (<REF1.CTAG0.Dialog.GMPage.Selected> > <ARGS>)

    REF1.CTAG0.Dialog.GMPage.Selected --

   ELIF (<REF1.CTAG0.Dialog.GMPage.Selected> == <ARGS>)

    REF1.SYSMESSAGE @035 GM page cleared from queue

    REF1.CTAG.Dialog.GMPage.Selected=

    REF1.SDIALOG d_gmpage_queue

   ENDIF

  ELIF (<REF1.ISDIALOGOPEN.d_gmpage_queue>)

   REF1.DIALOGCLOSE d_gmpage_queue

   REF1.SDIALOG d_gmpage_queue

  ENDIF

 ENDFOR

ENDIF

FIXED:

Code:

[FUNCTION GMPageDelete]

SERV.GMPAGE.<ARGS>.DELETE

CTAG.Dialog.GMPage.Selected=

IF (<SERV.CLIENTS>)

 FOR 0 <eval <SERV.CLIENTS>-1>

 IF (<SERV.CLIENT.<LOCAL._FOR>>)

  REF1=<SERV.CLIENT.<LOCAL._FOR>.UID>

  IF !(<isempty <REF1.CTAG.Dialog.GMPage.Selected>>)

   IF (<REF1.CTAG0.Dialog.GMPage.Selected> > <ARGS>)

    REF1.CTAG0.Dialog.GMPage.Selected --

   ELIF (<REF1.CTAG0.Dialog.GMPage.Selected> == <ARGS>)

    REF1.SYSMESSAGE @035 GM page cleared from queue

    REF1.CTAG.Dialog.GMPage.Selected=

    REF1.SDIALOG d_gmpage_queue

   ENDIF

  ELIF (<REF1.ISDIALOGOPEN.d_gmpage_queue>)

   REF1.DIALOGCLOSE d_gmpage_queue

   REF1.SDIALOG d_gmpage_queue

  ENDIF

  ENDIF

 ENDFOR

ENDIF

Threaded Mode \| Linear Mode [CORE][FIX] GMPageDelete - Missing Catch for Clients without Chars
Author	Message