Changeset 16792 for gsdl/trunk/perllib/doc.pm
- Timestamp:
- 2008-08-14T16:45:07+12:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/doc.pm
r16670 r16792 132 132 $self->{'OIDtype'} = "hash"; 133 133 } 134 134 135 if ($type =~ /^assigned$/) { 135 136 if (defined $metadata) { … … 154 155 # resulting string is ASCII (utf8). 155 156 156 print STDERR "******URLencoding the gsdl_source_filename $source_filename ";157 # print STDERR "******URLencoding the gsdl_source_filename $source_filename "; 157 158 158 159 # URLencode just the gsdl_source_filename, not the directory. Then prepend dir 159 160 my ($srcfilename,$dirname,$suffix) 160 161 = &File::Basename::fileparse($source_filename, "\\.[^\\.]+\$"); 161 print STDERR "-> $srcfilename -> ";162 # print STDERR "-> $srcfilename -> "; 162 163 $srcfilename = &unicode::url_encode($srcfilename.$suffix); 163 164 $source_filename = &util::filename_cat($dirname, $srcfilename); 164 print STDERR "$source_filename\n";165 # print STDERR "$source_filename\n"; 165 166 166 167 $self->set_utf8_metadata_element ($self->get_top_section(),
Note:
See TracChangeset
for help on using the changeset viewer.