sub getDivisionList {
    (my ($agency_name, $nodes_only) = @_) or return;

    my $obj = __PACKAGE__->new($agency_name);
    my @node = $obj->{ts}->get_node_list('division');

    return
        (!@node)    ? () :
        $nodes_only ? ($o, @n) :
            map {($n->value('divname'), $n->value('siebel_id'))} @n;
}