Changeset 16697 for gsdl/trunk/perllib/plugins/MARCXMLPlugin.pm

Timestamp:

2008-08-11T14:04:23+12:00 (16 years ago)

Author:

kjdon

Message:

if marc mapping file cannot be located, print a warning about can't extract metadata but continue to process the file - get the record in the text so at least get something in the collection

File:

• gsdl/trunk/perllib/plugins/MARCXMLPlugin.pm (modified) (3 diffs)

gsdl/trunk/perllib/plugins/MARCXMLPlugin.pm

@@ -111 +111 @@
     my $msg = "MARCXMLPlugin ERROR: Can't locate mapping file \"" .
         $self->{'metadata_mapping_file'} . "\".\n " .
-        "    No marc files can be processed.\n";
+        "    No metadata will be extracted from MARCXML files.\n";
 
     print $outhandle $msg;
@@ -206 +206 @@
 
     my $outhandle = $self->{'outhandle'};
-    print $outhandle "Record $self->{'record_count'} - MARCXMLPlugin: processing $self->{'file'}\n" if $self->{'verbosity'} > 1;
+    print $outhandle "Record $self->{'record_count'}\n" if $self->{'verbosity'} > 1; 
 
         $self->{'record_count'}++;
@@ -322 +322 @@
 
     ## map the xmlmarc to gsdl metadata
-    if ($element eq "datafield" and defined $self->{'doc_obj'} and defined $self->{'marc_mapping'}){
+    if ($element eq "datafield" and defined $self->{'doc_obj'} and defined $self->{'marc_mapping'} and defined $self->{'metadata_mapping'}){
     my $metadata_mapping = $self->{'metadata_mapping'};
     my $marc_mapping = $self->{'marc_mapping'};