diff options
Diffstat (limited to 'lib')
-rw-r--r-- | lib/WebCoso/Common.pm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lib/WebCoso/Common.pm b/lib/WebCoso/Common.pm index 513a562..f8d64fa 100644 --- a/lib/WebCoso/Common.pm +++ b/lib/WebCoso/Common.pm @@ -131,9 +131,15 @@ sub getAtomIdFor { LOGWARN("No document for <$doc_name>, returning ''"); return ''; } + my $atomId=$xpath->findnodes( q{/document/docinfo/field[field_name='Id']/field_body}, $doc); + unless (defined $atomId) { + LOGWARN("No Id field for <$doc_name>, returning ''"); + return ''; + } + $atomId=~s{(?:\A\s+)|(?:\s+\z)}{}smgx; return $atomId; } |