Changeset 34506
- Timestamp:
- 2020-10-22T01:35:22+13:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/doc.pm
r34394 r34506 125 125 # For Unix-based systems, there is no difference between the two 126 126 $self->{'source_path'} = $source_filename; 127 } 128 127 } 128 129 ## Unused. 129 130 # On Windows, the code above has ensured source_path is the Win long (full) path name. 130 # To help GLI associate metadata with an easily calculated and accurate representation of131 # filenames, we now store the Win long path name, hex encoded.131 # To help GLI associate DocXML metadata with an easily calculated and accurate representation 132 # of filenames, we now store the Win long path name, hex encoded. 132 133 # We're not using this field on Linux, as I can't get the hex encodings generated to match 133 134 # what GLI Java code generates. But for symmetry we store this field on Unix too, but we need 134 135 # to hex-encode source_path on Unix too, or it may not be UTF-8 and doc.xml will be invalid 135 my $hexencodedlongsourcepath = &unicode::debug_unicode_string($self->{'source_path'});136 $self->set_utf8_metadata_element ($self->get_top_section(), "gsdlfullsourcepath", $hexencodedlongsourcepath);136 ##my $hexencodedlongsourcepath = &unicode::debug_unicode_string($self->{'source_path'}); 137 ##$self->set_utf8_metadata_element ($self->get_top_section(), "gsdlfullsourcepath", $hexencodedlongsourcepath); 137 138 138 139 }
Note:
See TracChangeset
for help on using the changeset viewer.