aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lib/WebCoso/Common.pm6
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;
}