Changeset 32332 for main/trunk
- Timestamp:
- 2018-08-14T11:43:35+12:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/plugins/StructuredHTMLPlugin.pm
r24600 r32332 337 337 } 338 338 339 sub replace_images {340 my $self = shift (@_);341 my ($front, $link, $back, $base_dir,342 $file, $doc_obj, $section) = @_;343 # remove quotes from link at start and end if necessary344 if ($link=~/^\"/) {345 $link=~s/^\"//;$link=~s/\"$//;346 $front.='"';347 $back="\"$back";348 }349 350 $link =~ s/\n/ /g;351 352 my ($href, $hash_part, $rl) = $self->format_link ($link, $base_dir, $file);353 354 ## $href = $self->resize_if_necessary($front,$back,$base_dir,$href);355 356 my $middle = $self->add_file ($href, $rl, $hash_part, $base_dir, $doc_obj, $section);357 358 return $front . $middle . $back;359 }360 339 361 340 sub extract_metadata
Note:
See TracChangeset
for help on using the changeset viewer.