Changeset 23939 for main/trunk/greenstone2/perllib/doc.pm

Timestamp:

2011-04-20T21:27:19+12:00 (13 years ago)

Author:

ak19

Message:

GS3's OAIserver passes final official oaiserver validation tests: to do with earliestDatestamp. 1. Perl code (inexport, basebuilder, colcfg, buildconfigxml.pm perl files) write out the earliestDatestamp into GS3's buildconfig.xml. Whenever a full-build is performed, the archives directory is recreated. At this stage, inexport creates a new file in archives called earliestDatestamp containing the current time. Whenever an incremental build is performed, this file already exists in archive, so it is left untouched, preserving the time of the full-build (which is the earliestDatestamp). The other perl files are concerned with obtaining this value from the archives directory and writing it out to the build config file. 2. doc.pm and BasePlugout.pm write out the current date and time for each document processed under the new fields oailastmodified and oailastmodifieddate. Changes made in this commit are related to GS3 java src code changes that work in tandem.

File:

• main/trunk/greenstone2/perllib/doc.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/doc.pm

@@ -126 +126 @@
 
 # set lastmodified for OAI purposes, added by GRB, moved by kjdon
+sub set_oailastmodified {
+    my $self = shift (@_);
+
+    my $source_path = $self->{'terse_source_path'};
+   
+    if (defined $source_path && (-e $source_path)) {
+    my $current_time = time;
+
+    my ($seconds, $minutes, $hours, $day_of_month, $month, $year,
+        $wday, $yday, $isdst) = localtime($current_time);
+
+    my $date_modified = sprintf("%d%02d%02d",1900+$year,$month+1,$day_of_month);
+
+    $self->add_utf8_metadata($self->get_top_section(), "oailastmodified", $current_time);
+    $self->add_utf8_metadata($self->get_top_section(), "oailastmodifieddate", $date_modified);
+    } 
+}
+
+# no longer used for OAI purposes, since lastmodified is not what we want as the
+# Datestamp of a document. This doc metadata may be useful for general purposes.
 sub set_lastmodified {
     my $self = shift (@_);