Changeset 15872 for gsdl/trunk/perllib/plugins/ConvertToRogPlugin.pm

Timestamp:

2008-06-05T09:29:32+12:00 (16 years ago)

Author:

kjdon

Message:

plugin overhaul: plugins renamed to xxPlugin, and in some cases the names are made more sensible. They now use the new base plugins. Hopefully we have better code reuse. Some of the plugins still need work done as I didn't want to spend another month doing this before committing it. Alos, I haven't really tested anything yet...

File:

• gsdl/trunk/perllib/plugins/ConvertToRogPlugin.pm (modified) (8 diffs)

gsdl/trunk/perllib/plugins/ConvertToRogPlugin.pm

@@ -1 +1 @@
 ###########################################################################
 #
-# ConvertToRogPlug.pm -- plugin that inherits from RogPlug
+# ConvertToRogPlugin.pm -- plugin that inherits from RogPlugin
 #
 # A component of the Greenstone digital library software
@@ -26 +26 @@
 
 
-package ConvertToRogPlug;
-
-use BasPlug;
-use RogPlug;
+package ConvertToRogPlugin;
+
+use RogPlugin;
 use strict;
 no strict 'refs'; # allow filehandles to be variables and viceversa
 
 sub BEGIN {
-    @ConvertToRogPlug::ISA = ('RogPlug');
+    @ConvertToRogPlugin::ISA = ('RogPlugin');
 }
 
 my $arguments = [
          ];
-my $options = { 'name'     => "ConvertToRogPlug",
-        'desc'     => "{ConvertToRogPlug.desc}",
+my $options = { 'name'     => "ConvertToRogPlugin",
+        'desc'     => "{ConvertToRogPlugin.desc}",
         'abstract' => "yes",
         'inherits' => "yes" };
@@ -49 +48 @@
     push(@$pluginlist, $class);
 
-    if(defined $arguments){ push(@{$hashArgOptLists->{"ArgList"}},@{$arguments});}
-    if(defined $options) { push(@{$hashArgOptLists->{"OptList"}},$options)};
-
-    my $self = new RogPlug($pluginlist, $inputargs, $hashArgOptLists);
+    push(@{$hashArgOptLists->{"ArgList"}},@{$arguments});
+    push(@{$hashArgOptLists->{"OptList"}},$options);
+
+    my $self = new RogPlugin($pluginlist, $inputargs, $hashArgOptLists);
 
     $self->{'convert_to'} = "Rog";
@@ -171 +170 @@
 
 
-# Exact copy of read_rog_record from RogPlug 
+# Exact copy of read_rog_record from RogPlugin 
 # Needed for FILE in right scope
 
@@ -271 +270 @@
 }
 
-# Override RogPlug function so rog files are stored as sections (not docs)
+# Override RogPlugin function so rog files are stored as sections (not docs)
 
 sub process_rog_record
@@ -307 +306 @@
 
 
-# Override BasPlug read
+# Override BasePlugin read
 # We don't want to get language encoding stuff until after we've converted
 # our file to Rog format
@@ -347 +346 @@
     $doc_obj->set_OIDtype ($processor->{'OIDtype'}, $processor->{'OIDmetadata'});
     my ($filemeta) = $file =~ /([^\\\/]+)$/;
-    $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "Source", &ghtml::dmsafe($filemeta));
+    $self->set_Source_metadata($doc_obj, $filemeta);
+    
     if ($self->{'cover_image'}) {
     $self->associate_cover_image($doc_obj, $filename);
@@ -436 +436 @@
     my $ret_val = 1;    
 
-#   $ret_val = &RogPlug::process($self, $textref, $pluginfo,
+#   $ret_val = &RogPlugin::process($self, $textref, $pluginfo,
 #                $tmp_dirname, $tmp_tailname,
 #                $metadata, $doc_obj);