Changeset 32332

Timestamp:

2018-08-14T11:43:35+12:00 (6 years ago)

Author:

kjdon

Message:

removed replace_images function. this inherits from HTMLPlugin, and replace images is called from that. don't know why it had its own version of this in the first place as it didn't look customised at all.

File:

• main/trunk/greenstone2/perllib/plugins/StructuredHTMLPlugin.pm (modified) (1 diff)

main/trunk/greenstone2/perllib/plugins/StructuredHTMLPlugin.pm

@@ -337 +337 @@
 }
 
-sub replace_images {
-    my $self = shift (@_);
-    my ($front, $link, $back, $base_dir, 
-    $file, $doc_obj, $section) = @_;
-    # remove quotes from link at start and end if necessary
-    if ($link=~/^\"/) {
-    $link=~s/^\"//;$link=~s/\"$//;
-    $front.='"';
-    $back="\"$back";
-    }
-    
-    $link =~ s/\n/ /g;
-    
-    my ($href, $hash_part, $rl) = $self->format_link ($link, $base_dir, $file);
-    
-##    $href = $self->resize_if_necessary($front,$back,$base_dir,$href);
-    
-    my $middle = $self->add_file ($href, $rl, $hash_part, $base_dir, $doc_obj, $section);
-    
-    return $front . $middle . $back;
-}
 
 sub extract_metadata