Changeset 24951 for main/trunk/greenstone2/perllib/plugins/DSpacePlugin.pm

Timestamp:

2012-01-16T17:47:14+13:00 (12 years ago)

Author:

ak19

Message:

All perlcode that accesses extrametakeys, extrametadata, extrametafile data structures has been moved into a new perl module called extrametautil.pm. The next step will be to ensure that the file_regexes used to index into these data structures are consistent (using consistent slashes, like URL style slashes).

File:

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

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

@@ -47 +47 @@
 package DSpacePlugin;
 
+use extrametautil;
 use ReadTextFile;
 use plugin;
@@ -298 +299 @@
     }
     }
-    push(@$extrametakeys,$file_re);
+    &extrametautil::addmetakey($extrametakeys, $file_re);
 
     # See Format's Extent section in http://dublincore.org/documents/usageguide/qualifiers.shtml
@@ -331 +332 @@
     }
     
-    $extrametadata->{$file_re} = $self->{'saved_metadata'};
+    &extrametautil::setmetadata($extrametadata, $file_re, $self->{'saved_metadata'});
 
     return 1;