Changeset 31415 for main/trunk

Timestamp:

2017-02-15T03:51:39+13:00 (7 years ago)

Author:

Georgiy Litvinov

Message:

Modified html links pointed to different section in the same document.

File:

• main/trunk/greenstone2/perllib/plugins/HTMLPlugin.pm (modified) (2 diffs)

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

@@ -631 +631 @@
         unless $self->{'no_metadata'};
     }
-    
+    $self->replace_section_links($doc_obj);
     } else {
 
@@ -1126 +1126 @@
 }
 
+sub replace_section_links {
+    my $self = shift(@_);
+    my ($doc_obj) = @_;
+    my %anchors;
+    my $top_section = $doc_obj->get_top_section();
+    my $thissection = $doc_obj->get_next_section($top_section);
+    while ( defined $thissection ) {
+        my $text = $doc_obj->get_text($thissection);
+        while ( $text =~ /(?:(?:id|name)\s*=\s*[\'\"])([^\'\"]+)/gi ) {
+            $anchors{$1} = $thissection;
+        }
+        $thissection = $doc_obj->get_next_section($thissection);
+    }
+    $thissection = $top_section;
+    while (defined $thissection) {
+        my $text = $doc_obj->get_text($thissection);
+        $text =~ s/(href\s*=\s*[\"\'])(_httpsamepagelink_#)([^\'\"]+)/$self->replace_link_to_anchor($1,$2,$3,$thissection,$anchors{$3})/ige;
+        $doc_obj->delete_text( $thissection);
+        $doc_obj->add_utf8_text( $thissection, $text );
+        $thissection = $doc_obj->get_next_section ($thissection);
+    }
+}
+sub replace_link_to_anchor {
+    my $self = shift(@_);
+    my ($href_part,$old_link,$identifier,$current_section,$target_section) = @_;
+    if (length $target_section && $current_section ne $target_section){
+        return $href_part . "javascript:goToAnchor(\'" . $target_section . "\',\'" . $identifier . "\');" ;  
+    }
+    return $href_part . $old_link . $identifier ;
+}
 
 sub format_link {