Changeset 32511 for main/trunk/greenstone2/perllib/plugouts/METSPlugout.pm

Timestamp:

2018-10-10T21:25:13+13:00 (6 years ago)

Author:

ak19

Message:

Running plugoutinfo.pl with describeall or listall flag would break on FedoraMETSPlugout when either FEDORA_HOME or FEDORA_VERSION aren't set (as is often the case), as there's a die statement in the BEGIN of FedoraMETSPlugout. Needed to run die if either FEDORA env var is not set only if the plugout is NOT in info_only mode in plugout constructor. However, info_only mode was never set in any of the plugouts, so had to add set up the infrastructure for it in plugoutinfo.pl and plugout.pm. Then added the info_only test to all teh plugouts, even though it's redundant in most of them for making sure future changes to any plugout's constructors does not break plugoutinfo.pl.

File:

• main/trunk/greenstone2/perllib/plugouts/METSPlugout.pm (modified) (1 diff)

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

@@ -71 +71 @@
 
     my $self = new BasePlugout($plugoutlist,$inputargs,$hashArgOptLists);
-
+    
+    if ($self->{'info_only'}) {
+        # don't worry about any options etc
+        return bless $self, $class;
+    }
+    
     if(defined $self->{'xslt_txt'} &&  $self->{'xslt_txt'} ne "")
     {