Changeset 14969 for gsdl/trunk/perllib/plugouts/BasPlugout.pm

Timestamp:

2008-02-12T15:26:46+13:00 (15 years ago)

Author:

davidb

Message:

ApplyXSLT java class changed to take -m and -t options. Corresponding part in BasPlugout that calls these changed accordingly.

File:

• gsdl/trunk/perllib/plugouts/BasPlugout.pm (modified) (2 diffs)

gsdl/trunk/perllib/plugouts/BasPlugout.pm

@@ -663 +663 @@
     $xslt_file = "\"".$xslt_file."\"";
 
-    my $cmd = "| java -cp $java_class_path org.nzdl.gsdl.ApplyXSLT $xslt_file "; 
+    my $cmd = "| java -cp $java_class_path org.nzdl.gsdl.ApplyXSLT -t $xslt_file "; 
 
     if (defined $self->{'mapping_file'} and $self->{'mapping_file'} ne ""){
     my $mapping_file_path = "\"".$self->{'mapping_file'}."\""; 
-    $cmd .= $mapping_file_path;
-    }
-  
+    $cmd .= "-m $mapping_file_path";
+    }
+
     open(*XMLWRITER, $cmd)
     or die "can't open pipe to xslt: $!";
@@ -678 +678 @@
     print XMLWRITER "<?DocStart?>\n";       
     print XMLWRITER "$output_file_name\n";
+
  
   }