@verb #8484:"get_login" this none this rxdo #9988
@program #8484:"get_login" this none this
{who} = args
if (caller != this)
  raise(E_PERM)
endif
value = `listassoc(who, this.current_login)[2..$] ! E_RANGE => 0'
if (value && !value[1])
  this:update_login(who)
  value = `listassoc(who, this.current_login)[2..$] ! E_RANGE => 0'
endif
return value
"Last modified by Cecil (#7407) on Sat Apr 21 16:33:58 2001 MDT."
.