Changeset 12202

Timestamp:

2006-07-13T12:45:37+12:00 (18 years ago)

Author:

mdewsnip

Message:

Added new code for parsing the title and author from place references, and improved the RTF to HTML conversion.

File:

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

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

@@ -710 +710 @@
     my $place_references = $place_references_sql_handle->fetchrow();
     if (defined($place_references)) {
-        &new_metadata_entry($place_doc_obj, "References", &rtf_to_html($place_references));
+        $self->add_place_references_metadata($place_doc_obj, $place_id, $place_references);
     }
 
@@ -928 +928 @@
 
 
+sub add_place_references_metadata
+{
+    my $self = shift(@_);
+    my ($place_doc_obj, $place_id, $place_references_rtf_string) = (@_);
+    my $fail_log_handle = $self->{'failhandle'};
+
+    # Convert the place references from RTF to HTML
+    my $place_references_html_string = &rtf_to_html($place_references_rtf_string);
+    &new_metadata_entry($place_doc_obj, "PlaceReferences", $place_references_html_string);
+
+    # Split the references and try to parse title and author
+    $place_references_html_string =~ s/(\r|\n)//g;
+    my @place_references = split(/<br \/><br \/>/, $place_references_html_string);
+    foreach my $place_reference (@place_references) {
+    $place_reference =~ s/(<br \/>\s*)*$//;
+    next if ($place_reference !~ /\w/);
+    &new_metadata_entry($place_doc_obj, "Reference", $place_reference);
+
+    # Case 1: Author (possibly empty), then title in italics or quotes
+    if ($place_reference =~ /^(.*?)<i>(.*?)<\/i>/ || $place_reference =~ /^(.*)"(.*?)"/) {
+        &new_metadata_entry($place_doc_obj, "ReferenceAuthor", $1);
+        &new_metadata_entry($place_doc_obj, "ReferenceTitle", $2);
+    }
+    # Case 2: Zero or one fullstops, assume no author and title is complete text
+    elsif ($place_reference =~ /^[^\.]*\.[^\.]*$/ || $place_reference !~ /\./) {
+        &new_metadata_entry($place_doc_obj, "ReferenceTitle", $place_reference);
+    }
+    else {
+        print STDERR "<ProcessingError n='Place $place_id' p='CICPlug' r='Could not parse reference: $place_reference'>\n" if ($self->{'gli'});
+        print STDERR "Warning: Place $place_id -- Could not parse reference: $place_reference\n";
+        print $fail_log_handle "Warning: Place $place_id -- Could not parse reference: $place_reference\n";
+    }
+    }
+}
+
+
 sub rtf_to_html
 {
     my $rtf_string = shift(@_);
     $rtf_string =~ s/\{(.*?)\}//g;
+    $rtf_string =~ s/\\ldblquote /"/g;
+    $rtf_string =~ s/\\rdblquote /"/g;
     $rtf_string =~ s/\\rquote /'/g;  # ' # (for Emacs)
     $rtf_string =~ s/\\pard//g;
     $rtf_string =~ s/\\par/<br \/>/g;
+    $rtf_string =~ s/\\ul /<i>/g;
+    $rtf_string =~ s/\\ulnone /<\/i>/g;
     $rtf_string =~ s/\\i0 /<\/i>/g;
+    $rtf_string =~ s/\\i0\\/<\/i>\\/g;
     $rtf_string =~ s/\\i /<i>/g;
+    $rtf_string =~ s/\\i\\/<i>\\/g;
     $rtf_string =~ s/\\~/ /g;
     $rtf_string =~ s/\\([A-Za-z0-9]+)//g;