sub clientcrgunit {
 my ($self, @stuff) = @_;
 if ( @stuff == 1 && ref($stuff[0] eq 'ARRAY') ) {
  $self->{clientcrgunit} = $stuff[0];
 } else {
      $self->{clientcrgunit} = \@stuff;
 }
}