- Timestamp:
- 2013-05-06T15:29:38+12:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/plugouts/GreenstoneXMLPlugout.pm
r22839 r27306 32 32 eval {require bytes}; 33 33 use util; 34 use FileUtils; 34 35 use BasePlugout; 35 36 use docprint; … … 72 73 &util::mk_all_dir ($output_dir) unless -e $output_dir; 73 74 74 my $working_dir = & util::filename_cat($output_dir, $doc_dir);75 my $working_dir = &FileUtils::filenameConcatenate($output_dir, $doc_dir); 75 76 &util::mk_all_dir ($working_dir) unless -e $working_dir; 76 77 … … 79 80 $self->process_metafiles_metadata ($doc_obj); 80 81 81 my $output_file = util::filename_cat($working_dir, "doc.xml");82 my $output_file = &FileUtils::filenameConcatenate($working_dir, "doc.xml"); 82 83 83 84 $self->open_xslt_pipe($output_file, $self->{'xslt_file'}); … … 107 108 } 108 109 109 $self->{'short_doc_file'} = util::filename_cat($doc_dir, "doc.xml");110 $self->{'short_doc_file'} = &FileUtils::filenameConcatenate($doc_dir, "doc.xml"); 110 111 111 112 $self->store_output_info_reference($doc_obj);
Note:
See TracChangeset
for help on using the changeset viewer.