Changeset 5077

Timestamp:

2003-08-04T09:08:54+12:00 (21 years ago)

Author:

kjdon

Message:

fixed a bug

File:

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

trunk/gsdl/perllib/mgppbuilder.pm

@@ -308 +308 @@
     my $mgpp_passes_sections = "";
     my ($doc_level) = $self->{'doc_level'};
-    $mgpp_passes_sections .= "-J " . %level_map->{$doc_level};
+    $mgpp_passes_sections .= "-J " . %level_map->{$doc_level} . " ";
     foreach $level (keys %{$self->{'levels'}}) {
     if ($level ne $doc_level && $level ne "paragraph") {
-        $mgpp_passes_sections .= "-K " . %level_map->{$level};
+        $mgpp_passes_sections .= "-K " . %level_map->{$level} . " ";
     }
     }
@@ -325 +325 @@
     $handle = STDOUT;
     } else {
+    #print $outhandle "trying to run (compress 1) mgpp_passes$exe $mgpp_passes_sections -f \"$fulltextprefix\" -T1 $osextra\n";
     if (!-e "$mgpp_passes_exe" || 
         !open (PIPEOUT, "| mgpp_passes$exe $mgpp_passes_sections -f \"$fulltextprefix\" -T1 $osextra")) {
@@ -368 +369 @@
 
     if (!$self->{'debug'}) {
+        #print $outhandle "trying to run (compress 2) mgpp_passes$exe $mgpp_passes_sections -f \"$fulltextprefix\" -T2 $osextra\n";
         if (!-e "$mgpp_passes_exe" || 
         !open ($handle, "| mgpp_passes$exe $mgpp_passes_sections -f \"$fulltextprefix\" -T2 $osextra")) {