Changeset 27517 for main/trunk
- Timestamp:
- 2013-05-30T14:53:20+12:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/plugouts/GreenstoneXMLPlugout.pm
r27516 r27517 68 68 $outhandler = STDOUT; 69 69 # can we do the xslt and still do debug mode? 70 } 70 } 71 71 else { 72 72 my $output_dir = $self->get_output_dir(); 73 &FileUtils::makeAllDirectories($output_dir) unless -e $output_dir; 74 75 my $working_dir = &FileUtils::filenameConcatenate($output_dir, $doc_dir); 76 &FileUtils::makeAllDirectories($working_dir) unless -e $working_dir; 77 73 if (!&FileUtils::directoryExists($output_dir)) 74 { 75 &FileUtils::makeAllDirectories($output_dir); 76 } 77 78 my $working_dir = &FileUtils::filenameConcatenate($output_dir, $doc_dir); 79 if (!&FileUtils::directoryExists($working_dir)) 80 { 81 &FileUtils::makeAllDirectories($working_dir); 82 } 83 78 84 $self->process_assoc_files ($doc_obj, $doc_dir, ''); 79 85 80 86 $self->process_metafiles_metadata ($doc_obj); 81 87 82 88 my $output_file = &FileUtils::filenameConcatenate($working_dir, "doc.xml"); 83 89 84 90 $self->open_xslt_pipe($output_file, $self->{'xslt_file'}); 85 86 91 87 92 if (defined $self->{'xslt_writer'}){ 88 93 $outhandler = $self->{'xslt_writer'}; … … 92 97 } 93 98 } 94 99 95 100 binmode($outhandler,":utf8"); 96 101
Note:
See TracChangeset
for help on using the changeset viewer.