Changeset 36481 for main/trunk/greenstone2/perllib/plugins/MetadataCSVDeprecatedPlugin.pm

Timestamp:

2022-08-25T09:13:34+12:00 (20 months ago)

Author:

kjdon

Message:

now fixed up the files to use the new names

File:

• main/trunk/greenstone2/perllib/plugins/MetadataCSVDeprecatedPlugin.pm (modified) (7 diffs)

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

@@ -1 +1 @@
 ###########################################################################
 #
-# MetadataCSVPlugin.pm -- A plugin for metadata in comma-separated value format
+# MetadataCSVDeprecatedPlugin.pm -- A plugin for metadata in comma-separated value format
 #
 # A component of the Greenstone digital library software
@@ -25 +25 @@
 ###########################################################################
 
-package MetadataCSVPlugin;
+package MetadataCSVDeprecatedPlugin;
 
 
@@ -43 +43 @@
 # methods with identical signatures take precedence in the order given in the ISA list.
 sub BEGIN {
-    @MetadataCSVPlugin::ISA = ('MetadataRead', 'BaseImporter', 'CSVFieldSeparator');
+    @MetadataCSVDeprecatedPlugin::ISA = ('MetadataRead', 'BaseImporter', 'CSVFieldSeparator');
 }
 
@@ -58 +58 @@
 
 
-my $options = { 'name'     => "MetadataCSVPlugin",
-        'desc'     => "{MetadataCSVPlugin.desc}",
+my $options = { 'name'     => "MetadataCSVDeprecatedPlugin",
+        'desc'     => "{MetadataCSVDeprecatedPlugin.desc}",
         'abstract' => "no",
         'inherits' => "yes",
@@ -115 +115 @@
     return undef unless $self->can_process_this_file_for_metadata($filename_full_path);
     
-    print STDERR "\n<Processing n='$file' p='MetadataCSVPlugin'>\n" if ($gli);
-    print STDERR "MetadataCSVPlugin: processing $file\n" if ($self->{'verbosity'}) > 1;
+    print STDERR "\n<Processing n='$file' p='MetadataCSVDeprecatedPlugin'>\n" if ($gli);
+    print STDERR "MetadataCSVDeprecatedPlugin: processing $file\n" if ($self->{'verbosity'}) > 1;
 
     my $outhandle = $self->{'outhandle'};
@@ -129 +129 @@
     open(CSV_FILE, "$filename_full_path");
     my $csv_file_reader = new multiread();
-    $csv_file_reader->set_handle('MetadataCSVPlugin::CSV_FILE');
+    $csv_file_reader->set_handle('MetadataCSVDeprecatedPlugin::CSV_FILE');
     $csv_file_reader->read_file(\$csv_file_content);
 
-    # Would be nice if MetadataCSVPlugin was extended to support a minus
+    # Would be nice if MetadataCSVDeprecatedPlugin was extended to support a minus
     # option to choose the character encoding the CSV file is in 
     # For now we will assume it is always in UTF8
@@ -280 +280 @@
     my ($outhandle, $failhandle, $gli, $file, $error) = @_;
 
-    print $outhandle "MetadataCSVPlugin Error: $file: $error\n";
-    print $failhandle "MetadataCSVPlugin Error: $file: $error\n";
+    print $outhandle "MetadataCSVDeprecatedPlugin Error: $file: $error\n";
+    print $failhandle "MetadataCSVDeprecatedPlugin Error: $file: $error\n";
     print STDERR "<ProcessingError n='$file' r='$error'/>\n" if ($gli);
 }