Changeset 10217

Timestamp:

2005-07-06T15:25:48+12:00 (19 years ago)

Author:

kjdon

Message:

moved the addition of lastmodified metadata from the new method, into docsave.process - this way it doesn't affect the HASH id

Location:

trunk/gsdl/perllib

Files:

• doc.pm (modified) (3 diffs)
• docsave.pm (modified) (1 diff)

trunk/gsdl/perllib/doc.pm

@@ -57 +57 @@
               'OIDtype'=>"hash"}, $class;
 
-    #GRB: Added code to set lastmodified for OAI purposes
-    if ((defined $doc_type) && (defined $source_filename) && (-e $source_filename)) {
-    my $file_stat = stat($source_filename);
-    my $mtime = $file_stat->mtime;
-    $self->add_utf8_metadata($self->get_top_section(), "lastmodified", $file_stat->mtime);
-    }
-    #GRB: end inserted code
-
+    # used to set lastmodified here, but this can screw up the HASH ids, so
+    # the docsave processor now calls set_lastmodified
+    
     if (defined $source_filename) {
     my $collect_dir = $ENV{'GSDLCOLLECTDIR'};
@@ -97 +92 @@
 
     return $self;
+}
+# set lastmodified for OAI purposes, added by GRB, moved by kjdon
+sub set_lastmodified {
+    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 $mtime = $file_stat->mtime;
+    $self->add_utf8_metadata($self->get_top_section(), "lastmodified", $file_stat->mtime);
+    } 
 }
 
@@ -192 +199 @@
 }
 
-# returns the source_filename as it was provided
+# returns the gsdldoctype as it was provided
 # the default of "indexed_doc" is used if no document
 # type was provided

trunk/gsdl/perllib/docsave.pm

@@ -150 +150 @@
     my $collection = $self->{'collection'};
 
+    # set the lastmodified time before we write it out.
+    $doc_obj->set_lastmodified();
+
     if ($self->{'groupsize'} > 1) {
     $self->group_process ($doc_obj);