Changeset 17066

Timestamp:

2008-08-28 17:20:44 (3 months ago)

Author:

ak19

Message:

OAIPlugin now works again: 1. needs to inherit from ReadTextFile? as well in order to have access to the method textcat_get_language_encoding; 2. if dc is not specified as a prefix in each metadata element tag, looks inside the containing/wrapper element to see if that is set to dc and if so, uses that as the prefix.

Files:

• gsdl/trunk/perllib/plugins/OAIPlugin.pm (modified) (4 diffs)

gsdl/trunk/perllib/plugins/OAIPlugin.pm

@@ -34 +34 @@
-
-use ReadXMLFile;
+use ReadTextFile; # needed for subroutine textcat_get_language_encoding
-
-sub BEGIN {
-
+, 'ReadTextFile'
-}
-
@@ -46 +47 @@
-        'reqd' => "no",
-        'deft' => &get_default_process_exp() },
+      { 'name' => "input_encoding", # needed by subroutine textcat_get_language_encoding
+        'desc' => "{ReadTextFile.input_encoding}",
+        'type' => "enum",
+        'list' => $ReadTextFile::encoding_plus_auto_list,
+        'reqd' => "no" ,
+        'deft' => "auto" }
-      ];
-
@@ -410 +417 @@
-        my($namespace,$top_level_prefix) = ($wrapper_metadata_xml =~ m/^(.*?):(.*?)$/);
-
-
+
+
+
+
+
+
+
+
+
-            print $outhandle "Warning: OAIPlugin currently only designed for Dublin Core (or variant) metadata\n";
-            print $outhandle "         This recorded metadata section '$top_level_prefix' does not appear to match.\n";
@@ -434 +449 @@
-            {
-                $metaname = "$top_level_prefix.$metaname";
+#               print STDERR "*** metaname = $metaname\tmetavalue = $metavalue\n";
-            }
-            $metaname =~ s/\.(.)/\.\u$1/;