diff options
Diffstat (limited to 'lib/WebCoso/Common.pm')
-rw-r--r-- | lib/WebCoso/Common.pm | 6 |
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}; } |