Changeset 25673 for main/trunk/greenstone2/perllib/plugins/HTMLPlugin.pm
- Timestamp:
- 2012-05-24T14:11:40+12:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/plugins/HTMLPlugin.pm
r25555 r25673 844 844 $back =~ s/target=\"?_parent\"?//is; 845 845 846 return $front . $link . $back if $link =~ m/^\#/s; 846 if($link =~ m/^\#/s) 847 { 848 return $front . "_httpsamepagelink_" . $link . $back; 849 } 850 847 851 $link =~ s/\n/ /g; 848 852 … … 855 859 $href =~ s/\\/\//g; 856 860 my ($filename) = $href =~ m/^(?:.*?):(?:\/\/)?(.*)/; 857 858 861 859 862 ##### leave all these links alone (they won't be picked up by intermediate
Note:
See TracChangeset
for help on using the changeset viewer.