Changeset 13152
- Timestamp:
- 2006-10-20T12:54:58+13:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/cic-hcap/perllib/plugins/CICPlug.pm
r13109 r13152 882 882 # Convert the place references from RTF to HTML 883 883 my $place_references_html_raw = &rtf_to_html($place_references_rtf_string); 884 if ($place_references_html_raw =~ / 884 if ($place_references_html_raw =~ /[ <](http|www\.)/) { 885 885 print STDERR "<ProcessingError n='Place $place_id' p='CICPlug' r='Warning: Found possible web address in references without hyperlink tag.'>\n" if ($self->{'gli'}); 886 886 print STDERR "Warning: Place $place_id -- Found possible web address in references without hyperlink tag.\n"; … … 1104 1104 } 1105 1105 1106 # Remove extra less-than and greater-than symbols 1107 $rtf_string =~ s/< </</g; 1108 $rtf_string =~ s/<(<+)/</g; 1109 $rtf_string =~ s/> >/>/g; 1110 $rtf_string =~ s/>(>+)/>/g; 1111 1106 1112 # Remove empty tags for HTML 4 compliance 1107 1113 $rtf_string =~ s/<i>\s*<\/i>/ /g;
Note:
See TracChangeset
for help on using the changeset viewer.