Changeset 13770

Timestamp:

2007-01-24T10:08:17+13:00 (17 years ago)

Author:

shaoqun

Message:

now use the absolute source path to get the last modified time

File:

• trunk/gsdl/perllib/doc.pm (modified) (3 diffs)

trunk/gsdl/perllib/doc.pm

@@ -50 +50 @@
     my ($source_filename, $doc_type) = @_;
 
+
     my $self = bless {'associated_files'=>[],
               'subsection_order'=>[],
@@ -60 +61 @@
     # used to set lastmodified here, but this can screw up the HASH ids, so
     # the docsave processor now calls set_lastmodified
+
+    $self->{'source_path'} = $source_filename;
     
     if (defined $source_filename) {
@@ -98 +101 @@
     my $self = shift (@_);
 
-    my $source_filename = $self->get_source_filename();
-    if ((defined $self->get_metadata_element ($self->get_top_section(), "gsdldoctype")) &&
-    (defined $source_filename) && (-e $source_filename)) {
-    my $file_stat = stat($source_filename);
+    my $source_path = $self->{'source_path'};
+   
+    if (defined $source_path && (-e $source_path)) {
+
+        my $file_stat = stat($source_path);
     my $mtime = $file_stat->mtime;
     $self->add_utf8_metadata($self->get_top_section(), "lastmodified", $file_stat->mtime);