Changeset 28707

Timestamp:

2013-11-28T15:30:17+13:00 (10 years ago)

Author:

kjdon

Message:

new option no_auxiliary_databases to stop generating archivesinf files

File:

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

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

@@ -90 +90 @@
      'hiddengli' => "yes"},
        { 'name' => 'no_rss',
-         'desc' => '{BasPlugout.no_rss}',
+         'desc' => "{BasPlugout.no_rss}",
          'type' => 'flag',
          'reqd' => 'no',
          'hiddengli' => 'yes'},
+    { 'name' => "no_auxiliary_databases",
+      'desc' => "{BasPlugout.no_auxiliary_databases}",
+      'type' => "flag",
+      'reqd' => "no",
+      'hiddengli' => "yes"}
+
 ];
 
@@ -146 +152 @@
     my $full_file_path = &util::locate_config_file($self->{'xslt_file'});
     if (!defined $full_file_path) {
-        print STDERR "Can not find $self->{'xslt_file'}, please make sure you have supplied the correct file path\n";
+        print STDERR "Can not find $self->{'xslt_file'}, please make sure you have supplied the correct file path or put the file into the collection's etc or greenstone's etc folder\n";
         die "\n";
     }
@@ -158 +164 @@
     $self->{'keep_import_structure'} = 0;
 
+    $self->{'generate_databases'} = 1;
+    if ($self->{'no_auxiliary_databases'}) {
+    $self->{'generate_databases'} = 0;
+    }
+    undef $self->{'no_auxiliary_databases'};
     return bless $self, $class;
 
 }
 
+# implement this in subclass if you want to do some initialization after 
+# loading and setting parameters, and before processing the documents.
+sub begin {
+
+    my $self= shift (@_);
+
+}
 sub print_xml_usage
 {
@@ -460 +478 @@
 
     # write out data to archiveinf-doc.db
-    $self->archiveinf_db($doc_obj); 
-
+    if ($self->{'generate_databases'}) {
+    $self->archiveinf_db($doc_obj); 
+    }
     if ($self->is_group()) {
     $self->{'gs_count'}++; # do we want this for all cases?
@@ -968 +987 @@
 }
 
+
+
 sub open_xslt_pipe
 {