fix bug introduced in add_basic_metadata when trying to eliminate possible redundnant entry
When nexml has no metadata, m <- get_metadata(nexml) returns and empty (length 0) list, and m[dc:pubdate] is NULL. If it is not empty but no element is named dc:pubdate, than m[dc:pubdate] is NA instead of NULL.  Very annoying.  anyway, handles both cases now.