Changeset 12605

Timestamp:

2006-08-30T11:31:53+12:00 (18 years ago)

Author:

shaoqun

Message:

added code that supports the mapping_file option

File:

• trunk/gsdl/perllib/plugouts/MARCXMLPlugout.pm (modified) (3 diffs)

trunk/gsdl/perllib/plugouts/MARCXMLPlugout.pm

@@ -43 +43 @@
                    'deft' => "0",
            'reqd' => "no",    
+           'hiddengli' => "no"},
+         { 'name' => "mapping_file", 
+           'desc' => "{MARCXMLPlugout.mapping_file}",
+           'type' => "string",
+           'deft' => "$ENV{'GSDLHOME'}/etc/dc2marc-mapping.xml",
+           'reqd' => "yes",    
            'hiddengli' => "no"}
                 ];
@@ -66 +72 @@
    $self->{'buffered_output'} ="";
 
+    if (!defined $self->{'mapping_file'} ||  (defined $self->{'mapping_file'} && $self->{'mapping_file'} eq "")){
+    $self->{'mapping_file'} = "$ENV{'GSDLHOME'}/etc/dc2marc-mapping.xml";
+    }
+    
+    if (!defined $self->{'xslt_file'} || (defined $self->{'xslt_file'} && $self->{'xslt_file'} eq "")){
+    $self->{'xslt_file'} = "$ENV{'GSDLHOME'}/etc/dc2marc.xsl";
+    }
+  
+    if(defined $self->{'mapping_file'} &&  $self->{'mapping_file'} ne "")
+    {
+    print STDERR "Can not find $self->{'mapping_file'}, please make sure you have supplied the correct file path\n" and  die "\n" unless (-e $self->{'mapping_file'});
+    }
+
+    if(defined $self->{'xslt_file'} &&  $self->{'xslt_file'} ne "")
+    {
+    print STDERR "Can not find $self->{'xslt_file'}, please make sure you have supplied the correct file path\n" and  die "\n" unless (-e $self->{'xslt_file'});
+    }
+
    return bless $self, $class;
 }
@@ -72 +96 @@
     my $self = shift (@_);
     my ($doc_obj,$doc_dir) = @_;
- 
+
+   
     if ($self->{'group'}){
-        $self->{buffered_output} .= $doc_obj->get_top_metadata_list()."\n";  
+        $self->{buffered_output} .= $doc_obj->get_top_metadata_list()."\n"; 
         return;
     }
+    
  
     my $output_dir = $self->get_output_dir();