@verb #340:"_set_entry" this none this rxdo #7214
@program #340:"_set_entry" this none this
caller == this || raise(E_PERM)
{new_entry} = args
m = match(new_entry, "^[^/]*/%([^/]*%)/")
encname = new_entry[m[3][1][1]..m[3][1][2]]
for e in [1..length(this.entries)]
  m = match(this.entries[e], "^[^/]*/%([^/]*%)/")
  if (this.entries[e][m[3][1][1]..m[3][1][2]] == encname)
    this.entries[e] = new_entry
    return
  endif
endfor
this.entries = {@this.entries, new_entry}
"Last modified by manta (#7165) on Sun May  7 15:43:22 2000 MDT."
.