sub Dataset::dump_new_id {
    my $self = shift();
    print "\n\n new_id is undefined\n\n" unless defined ($self->member->{new_id});
}