function get_categories() {
  var categories = new Array();
  categories['equipment'] = 'Agriculture|Aircraft|Boats|Construction|Food Processing|Logging|Machine Tools|Material Handling|Medical/Dental|Misc|Oil Field|Printing|Restaurant|Textile|Trucks/Trailers';
  categories['businesses'] = 'Food Service|Manufacturing|Misc|Professional Service|Recreation|Retail|Service Business|Wholesale/Dist';
  var type = formval('frm_search', 'type');
  if (categories[type]) {
    set_categories(categories[type]);
  }
}


function set_categories(s) {
  if (!s) {
    alert('Failed to retrieve categories.');
    return;
  }
  var lst = document['frm_search']['category'];
  var rows = s.split('|');
  lst.options[0] = new Option('All Categories', '');
  for (var i = 0; i < rows.length; i++) {
    lst.options[i+1] = new Option(rows[i], rows[i]);
  }
}


function search() {
  var type = formval('frm_search', 'type');
  if (!type) {
    alert('Please select a listing type to search.');
    return;
  }
  if(type == 'businesses'){
    type = 'business';
  }
  var cat = formval('frm_search', 'category');
  var kw = formval('frm_search', 'keyword');
  window.open('http://www.nebbinstitute.org/' + type + '/remote.php?sort_by=listingID&sort_dir=ASC&remote_id=887&category=' + cat + '&keyword=' + kw,
	      'search', 'target=search,width=600,height=400,toolbar=0,directories=0,menubar=0,status=0,resizable=1,location=0,scrollbars=yes,copyhistory=0');
}


function resize_iframe() {
  var frame = document.getElementById('results');
  frame.height = window.screen.height;
}
function formval(form_name, ctl_name) {
  form = document[form_name];
  ctl = form[ctl_name];
  switch (ctl.type) {
  case "select-one":
    val = ctl.options[ctl.selectedIndex].value;
    break;
  case "select-multiple":
    val = new Array();
    for (opt in ctl.options) {
      if (opt.selected) {
	val = val.concat(new Array(opt.value));
      }
    }
    break;
  case "text":
  case "textarea":
  case "checkbox":
  case "password":
  case "hidden":
    val = ctl.value;
    break;
  default:
    val = null;
    break;
  }
  return val;
}