aboutsummaryrefslogtreecommitdiff
path: root/lib/WebCoso/Common.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/WebCoso/Common.pm')
-rw-r--r--lib/WebCoso/Common.pm6
1 files changed, 4 insertions, 2 deletions
diff --git a/lib/WebCoso/Common.pm b/lib/WebCoso/Common.pm
index 31adfbc..cc61d50 100644
--- a/lib/WebCoso/Common.pm
+++ b/lib/WebCoso/Common.pm
@@ -126,13 +126,15 @@ sub getDates {
my %dates;
for my $doc_name (uniq(@docs)) {
- my $doc=$fc->get($doc_name);
+ my $xml_name=typedAs($doc_name,'du.xml');
+ my $doc=$fc->get($xml_name);
my ($creation_date)=map {$_->textContent}
$xpath->findnodes(
q{/document/docinfo/field[field_name='CreationDate']/field_body},
$doc);
$creation_date=DateTime::Format::DateParse->parse_datetime($creation_date);
- my $last_change=DateTime->from_epoch($doc->stat->mtime);
+ my $last_change=DateTime->from_epoch(epoch=>
+ $fc->stat($doc_name)->mtime);
$dates{$doc_name}={creation=>$creation_date,
last_change=>$last_change};
}