Changeset 12430

Timestamp:

2006-08-11T11:33:26+12:00 (18 years ago)

Author:

mdewsnip

Message:

Now handles hyperlinks in RTF properly.

File:

• trunk/cic-hcap/perllib/plugins/CICPlug.pm (modified) (2 diffs)

trunk/cic-hcap/perllib/plugins/CICPlug.pm

@@ -982 +982 @@
     # Convert the place references from RTF to HTML
     my $place_references_html_string = &rtf_to_html($place_references_rtf_string);
+    if ($place_references_html_string =~ / (http|www\.)/) {
+    print STDERR "<ProcessingError n='Place $place_id' p='CICPlug' r='Warning: Found possible web address in references without hyperlink tag.'>\n" if ($self->{'gli'});
+    print STDERR "Warning: Place $place_id -- Found possible web address in references without hyperlink tag.\n";
+    print $fail_log_handle "Warning: Place $place_id -- Found possible web address in references without hyperlink tag.\n";
+    }
     &new_metadata_entry($place_doc_obj, "PlaceReferences", $place_references_html_string);
 
@@ -1013 +1018 @@
 {
     my $rtf_string = shift(@_);
-    $rtf_string =~ s/\{(.*?)\}//g;
+ 
+    # Remove everything in curly braces, but keep any hyperlinks
+    while ($rtf_string =~ /\{(.*?)\}/) {
+    if ($1 =~ /HYPERLINK (.*)/) {
+        my $link_url = $1;
+        $link_url =~ s/^\"(.*?)\"$/$1/;  # Remove surrounding quotes
+        $link_url =~ s/^\s*(.*?)\s*$/$1/;  # Remove surrounding whitespace
+        $rtf_string =~ s/\{(.*?)\}/<a href=\"$link_url\">$link_url<\/a>/;
+    }
+    else {
+        $rtf_string =~ s/\{(.*?)\}//;
+    }
+    }
     $rtf_string =~ s/\\ldblquote /"/g;
     $rtf_string =~ s/\\rdblquote /"/g;