Changeset 22215

Timestamp:

2010-06-01T15:54:17+12:00 (14 years ago)

Author:

kjdon

Message:

added store_original_file option, used for eg Text, HTML plugins to store the source file as an associated file so that it can be referred to when serving over OAI

File:

• main/trunk/greenstone2/perllib/plugins/BasePlugin.pm (modified) (3 diffs)

main/trunk/greenstone2/perllib/plugins/BasePlugin.pm

@@ -115 +115 @@
     'type' => "regexp",
     'deft' => "",
+    'reqd' => "no" },
+      { 'name' => "store_original_file",
+    'desc' => "{BasePlugin.store_original_file}",
+    'type' => "flag",
     'reqd' => "no" },
       { 'name' => "associate_ext",
@@ -923 +927 @@
     $self->associate_cover_image($doc_obj, $filename);
     }
+    # store the original (used for eg TextPlugin to store the original for OAI)
+    if ($self->{'store_original_file'}) {
+    $self->associate_source_file($doc_obj, $filename);
+    }
    
 
@@ -1126 +1134 @@
 
 }
+sub associate_source_file {
+    my $self = shift(@_);
+    
+    my ($doc_obj, $filename) = @_;
+    my $cursection = $doc_obj->get_top_section();
+    my $assocfilename = $doc_obj->get_assocfile_from_sourcefile();
+    
+    $doc_obj->associate_file($filename, $assocfilename, undef, $cursection);
+    $doc_obj->add_utf8_metadata ($cursection, "srclink_file", "[SourceFile]");
+}
 
 sub associate_cover_image {
-    my $self = shift;
+    my $self = shift(@_);
     my ($doc_obj, $filename) = @_;