Changeset 12618

Timestamp:

2006-08-30T16:34:07+12:00 (18 years ago)

Author:

kjdon

Message:

now can pass in OIDmetadata to set_OIDtype

File:

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

trunk/gsdl/perllib/plugouts/BasPlugout.pm

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