Changeset 8220 for trunk/gsdl/perllib/doc.pm

Timestamp:

2004-10-06T05:36:52+13:00 (20 years ago)

Author:

cs025

Message:

Extensions to underpin OAI - e.g. creation of the OAI classifier, adding
modified file dates and ensuring that documents know the parent classifiers
to which they belong.

File:

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

trunk/gsdl/perllib/doc.pm

@@ -37 +37 @@
 use util;
 use ghtml;
+use File::stat;
 ##use hashdoc;
 
@@ -55 +56 @@
               'text'=>"",
               '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
 
     if (defined $source_filename) {
@@ -1051 +1060 @@
 
 # add_metadata assumes the text is in (extended) ascii form. For
-# text which hash been already converted to the UTF-8 format use
+# text which has already been converted to the UTF-8 format use
 # add_utf8_metadata.
 sub add_metadata {