Changeset 12603

Timestamp:

2006-08-30T11:00:43+12:00 (18 years ago)

Author:

shaoqun

Message:

added codes that uses the mapping file

File:

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

trunk/gsdl/perllib/plugouts/BasPlugout.pm

@@ -122 +122 @@
 
  
-    if($self->{'xslt_file'} ne "")
+    if(defined $self->{'xslt_file'} &&  $self->{'xslt_file'} ne "")
     {
       ##$self->{'xslt_file'} =~ s/\"//g;##working on Windows???
@@ -518 +518 @@
 
     $doc_dir .= ".dir";
-    &util::mk_all_dir (&util::filename_cat ($working_dir, $doc_dir));
+    if (!defined $self->{'group'} || !$self->{'group'}){
+    &util::mk_all_dir (&util::filename_cat ($working_dir, $doc_dir));
+    }
     return $doc_dir;
 }
@@ -631 +633 @@
 
     my $java_class_path =  &util::filename_cat ($ENV{'GSDLHOME'},"bin","java");
-    my $cmd = "| java -cp $java_class_path ApplyXSLT $xslt_file"; 
-
+    my $cmd = "| java -cp $java_class_path org.nzdl.gsdl.ApplyXSLT $xslt_file "; 
+
+    if (defined $self->{'mapping_file'} and $self->{'mapping_file'} ne ""){
+    $cmd .= $self->{'mapping_file'};
+    }
+  
     open(*XMLWRITER, $cmd)
     or die "can't open pipe to xslt: $!";