%
% create javascript for loading the drop-down list
% with global tree urls
%
_Jsph.Searched
any?
{
 dup "_searched.txt" ofbin write
%
% there are search results, create the javascript
%
 execstr

 empty !srched
 0 !counter

 _Jsph.Searched "SetInfo" Url.(esc) &;
 &"ClearDrop();Searches(0,'','---Results---');"

 exch
 countup
 {
  pop
  _srched third
  <?>
  {
   !srched
   "Searches(" +counter & &",'"
   pull4th escape & &"','" rot escape &
   &"');" &;
   &
  }
  {
   pop2&3
  } ifelse
 } for
%%%dup logs
 Help.!
} if