Changeset 12203

Timestamp:

2006-07-13T12:46:44+12:00 (18 years ago)

Author:

mdewsnip

Message:

Changed the metadata assigned to be consistent with place references (for building indexes), and improved the error reporting.

File:

• trunk/cic-hcap/perllib/plugins/CICWordPlug.pm (modified) (3 diffs)

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

@@ -80 +80 @@
     my $self = shift(@_);
     my $conv_filename = shift(@_);
+    my $fail_log_handle = $self->{'failhandle'};
 
     my $in_record = 0;
@@ -109 +110 @@
         }
 
-        # Error: Could not parse record
+        # Warning: Could not parse record
         elsif ($line_sans_tags =~ /\w/) {
-        print "Unknown type: $line";
+        print STDERR "<ProcessingError n='Bibliography' p='CICWordPlug' r='Could not parse reference: $line'>\n" if ($self->{'gli'});
+        print STDERR "Warning: Bibliography -- Could not parse reference: $line\n";
+        print $fail_log_handle "Warning: Bibliography -- Could not parse reference: $line\n";
+        $num_records++;
+        $self->add_reference_document($num_records, $line, "", "");
         }
     }
@@ -130 +135 @@
     $reference_doc_obj->set_OID("r$reference_id");
     &new_metadata_entry($reference_doc_obj, "DocumentType", "Reference");
-    &new_metadata_entry($reference_doc_obj, "Author", $reference_author);
-    &new_metadata_entry($reference_doc_obj, "Title", $reference_title);
+    &new_metadata_entry($reference_doc_obj, "Reference", $reference);
+    &new_metadata_entry($reference_doc_obj, "ReferenceAuthor", $reference_author);
+    &new_metadata_entry($reference_doc_obj, "ReferenceTitle", $reference_title);
 
-    $reference_doc_obj->add_utf8_text($reference_doc_obj->get_top_section(), $reference);
+    $reference_doc_obj->add_utf8_text($reference_doc_obj->get_top_section(), "Some dummy text.");
     $self->{'processor'}->process($reference_doc_obj);
     $self->{'num_processed'}++;