sub getDivisionList {

  my ($agency_name, $nodes_only) = @_;
  $agency_name   or return undef; #die "must supply agency name";

  my $o = __PACKAGE__->new($agency_name);

  my @n = $o->{ts}->get_node_list('division');

  @n or return; #die "no divisions under $agency_name";
  return ($o, @n) if $nodes_only;

  my %N;

  for my $n (@n) {
    $N { $n->value('divname') } = $n->value('siebel_id') ;
  }

  %N

}