Changeset 27646 for main/trunk/greenstone2/perllib/plugouts/BasePlugout.pm

Timestamp:

2013-06-18T10:34:55+12:00 (11 years ago)

Author:

jmt12

Message:

Adding an option to allow me to suppress RSS file writing, -no_rss, as it requires file append, which isn't supported in HDFS-based collections

File:

• main/trunk/greenstone2/perllib/plugouts/BasePlugout.pm (modified) (3 diffs)

main/trunk/greenstone2/perllib/plugouts/BasePlugout.pm

@@ -93 +93 @@
      'type' => "flag",
      'reqd' => "no",
-         'deft' => "no",
-     'hiddengli' => "no"}
+         'deft' => "false",
+     'hiddengli' => "no"},
+       { 'name' => 'no_rss',
+         'desc' => '{BasPlugout.no_rss}',
+         'type' => 'flag',
+         'reqd' => 'no',
+         'hiddengli' => 'yes'}
 ];
 
@@ -868 +873 @@
     ##print STDERR "*** To set in db: \n\t$doc_db\n\t$oid\n\t$doc_db_text\n";
 
-    if (($oid_files->{'index-status'} eq "I") || ($oid_files->{'index-status'} eq "R")) {
+    if (!$self->{'no_rss'})
+    {
+      if (($oid_files->{'index-status'} eq "I") || ($oid_files->{'index-status'} eq "R")) {
     my $top_section = $doc_obj->get_top_section();
 
@@ -888 +895 @@
     }
     else {
-        print STDERR "**** Failed to open $rss_filename\n!$\n";
-    }
-
-
+        print STDERR "**** Failed to open $rss_filename\n$!\n";
+    }
+      }
     }