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

Timestamp:

2012-09-20T09:34:45+12:00 (12 years ago)

Author:

kjdon

Message:

new OIDtype, filename, will use the file name without any folders or file extension. Must be unique filenames in the collection. BasePlugin add_OID method returns if an id has already been set

File:

• main/trunk/greenstone2/perllib/doc.pm (modified) (2 diffs)

main/trunk/greenstone2/perllib/doc.pm

@@ -204 +204 @@
     my ($type, $metadata) = @_;
 
-    if (defined $type && $type =~ /^(hash|hash_on_file|hash_on_ga_xml|incremental|dirname|assigned)$/) {
+    if (defined $type && $type =~ /^(hash|hash_on_file|hash_on_ga_xml|incremental|filename|dirname|assigned)$/) {
     $self->{'OIDtype'} = $type;
     } else {
@@ -401 +401 @@
         $OID = "D" . $OIDcount;
         $OIDcount ++;
-      
+    } elsif ($self->{'OIDtype'} eq "filename") {
+        my $filename = $self->get_source_filename();
+        $OID = &File::Basename::fileparse($filename, qr/\.[^.]*/);
+        $OID = &util::tidy_up_oid($OID);
     } elsif ($self->{'OIDtype'} eq "dirname") {
         $OID = 'J';