Changeset 12268 for trunk/gsdl/perllib/docproc.pm

Timestamp:

2006-07-20T15:59:42+12:00 (18 years ago)

Author:

kjdon

Message:

set_OIDtype now takes a second argument which is the metadata element to use for the unique id

File:

• trunk/gsdl/perllib/docproc.pm (modified) (2 diffs)

trunk/gsdl/perllib/docproc.pm

@@ -49 +49 @@
 sub set_OIDtype {
     my $self = shift (@_);
-    my ($type) = @_;
+    my ($type, $metadata) = @_;
 
     if ($type =~ /^(hash|incremental|dirname|assigned)$/) {
@@ -55 +55 @@
     } else {
     $self->{'OIDtype'} = "hash";
+    }
+    if ($type =~ /^assigned$/) {
+    if (defined $metadata) {
+        $self->{'OIDmetadata'} = $metadata;
+    } else {
+        $self->{'OIDmetadata'} = "dc.Identifier";
+    }
     }
 }