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

Timestamp:

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

Author:

kjdon

Message:

check for xslt_mets and xslt_txt files

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(defined $self->{'xslt_txt'} &&  $self->{'xslt_txt'} ne "")
+    {
+    my $full_file_path = &util::locate_config_file($self->{'xslt_txt'});
+    if (!defined $full_file_path) {
+        print STDERR "Can not find $self->{'xslt_txt'}, please make sure you have supplied the correct file path or put the file into collection or greenstone etc folder\n";
+        die "\n";
+    }
+    $self->{'xslt_txt'} = $full_file_path;
+    }
+    if(defined $self->{'xslt_mets'} &&  $self->{'xslt_mets'} ne "")
+    {
+    my $full_file_path = &util::locate_config_file($self->{'xslt_mets'});
+    if (!defined $full_file_path) {
+        print STDERR "Can not find $self->{'xslt_mets'}, please make sure you have supplied the correct file path or put the file into collection or greenstone etc folder\n";
+        die "\n";
+    }
+    $self->{'xslt_mets'} = $full_file_path;
+    }
+
     return bless $self, $class;
 }