- Timestamp:
- 2013-05-06T15:29:38+12:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/plugins/GreenstoneXMLPlugin.pm
r23753 r27306 36 36 37 37 use ReadXMLFile; 38 use util; 39 use FileUtils; 38 40 39 41 use strict; … … 118 120 119 121 my $dirname = dirname($filename_full_path); 120 my $full_gsdl_assoc_filename = & util::filename_cat($dirname,$gsdl_assoc_file);122 my $full_gsdl_assoc_filename = &FileUtils::filenameConcatenate($dirname,$gsdl_assoc_file); 121 123 if ($self->{'verbosity'}>2) { 122 124 print $outhandle " Storing block list item: $full_gsdl_assoc_filename\n"; … … 316 318 { 317 319 # And if not, append it so as to make this absolute 318 $assoc_filepath = & util::filename_cat($self->{'base_dir'}, $assoc_filepath);320 $assoc_filepath = &FileUtils::filenameConcatenate($self->{'base_dir'}, $assoc_filepath); 319 321 } 320 322 } … … 331 333 #rint STDERR "mime_type: $mime_type\n"; 332 334 #rint STDERR "dir: $dir\n"; 333 my $real_dir = & util::filename_cat($assoc_filepath, $assoc_file),335 my $real_dir = &FileUtils::filenameConcatenate($assoc_filepath, $assoc_file), 334 336 my $assoc_dir = (defined $dir && $dir ne "") 335 ? & util::filename_cat($dir, $assoc_file) : $assoc_file;337 ? &FileUtils::filenameConcatenate($dir, $assoc_file) : $assoc_file; 336 338 $self->{'doc_obj'}->associate_file($real_dir, $assoc_dir, $mime_type); 337 339 #rint STDERR "According to me the real assoc_filepath is: $real_dir\n";
Note:
See TracChangeset
for help on using the changeset viewer.