Changeset 14733

Timestamp:

2007-10-26T16:27:46+13:00 (16 years ago)

Author:

shaoqun

Message:

make it use the new version of plugout.pm

File:

• gsdl/trunk/bin/script/export.pl (modified) (1 diff)

gsdl/trunk/bin/script/export.pl

@@ -472 +472 @@
         $export_info -> load_info ($export_info_filename);  
         
-        if ($saveas !~ /^(GA|METS|DSpace|MARCXML)$/) {
-        if (defined $collectcfg->{'plugout'} && $collectcfg->{'plugout'}[0] =~ /^(GAPlugout|METSPlugout)$/) {
-            $saveas = $collectcfg->{'plugout'}[0];
-        } else {
-            $saveas ="GAPlugout";
-        }
-        }
-        
-        
-        ####Use Plugout####
-        my ($plugout_name);
-        if ($saveas !~ /^(GA|METS|DSpace|MARCXML)Plugout$/  ){      
-        $plugout_name = $saveas."Plugout";
-        }
-        else {
-        $plugout_name = $saveas;
-        } 
-        
-        my $opts=[];
-        
-        push @$opts,("-output_info",$export_info) if (defined $export_info); 
-        push @$opts,("-verbosity",$verbosity) if (defined $verbosity);
-        push @$opts,("-debug") if ($debug);
-        push @$opts,("-gzip_output",$gzip) if (defined $gzip);
-        push @$opts,("-group_size",$groupsize) if (defined $groupsize);
-        push @$opts,("-output_handle",$out) if (defined $out);
-        push @$opts,("-xslt_file",$xsltfile) if (defined $xsltfile);
-        push @$opts,("-group") if ($group_marc && $plugout_name =~ /^MARCXMLPlugout$/);
-        push @$opts,("-mapping_file",$mapping_file) if (defined $mapping_file && $plugout_name =~ /^MARCXMLPlugout$/);
-        push @$opts,("-saveas_version",$saveas_version) if (defined $saveas_version && $plugout_name =~ /^METSPlugout$/);
-        push @$opts,("-xslt_mets",$xslt_mets) if (defined $xslt_mets && $plugout_name =~ /^METSPlugout$/);
-        push @$opts,("-xslt_txt",$xslt_txt) if (defined $xslt_txt && $plugout_name =~ /^METSPlugout$/);
-        $processor = &plugout::load_plugout($plugout_name,$opts);    
+        my ($plugout); 
+        if (defined $collectcfg->{'plugout'}) {
+        $plugout = $collectcfg->{'plugout'};
+        }
+        else{
+        if ($saveas !~ /^(GA|METS|DSpace|MARCXML)$/) {
+            push @$plugout,"GAPlugout";
+        }
+        else{
+            push @$plugout,$saveas."Plugout";
+        }
+        }
+
+        my $plugout_name = $plugout->[0];
+        
+        push @$plugout,("-output_info",$export_info) if (defined $export_info); 
+        push @$plugout,("-verbosity",$verbosity) if (defined $verbosity);
+        push @$plugout,("-debug") if ($debug);
+        push @$plugout,("-gzip_output",$gzip) if (defined $gzip);
+        push @$plugout,("-group_size",$groupsize) if (defined $groupsize);
+        push @$plugout,("-output_handle",$out) if (defined $out);
+        push @$plugout,("-xslt_file",$xsltfile) if (defined $xsltfile);
+        push @$plugout,("-group") if ($group_marc && $plugout_name =~ /^MARCXMLPlugout$/);
+        push @$plugout,("-mapping_file",$mapping_file) if (defined $mapping_file && $plugout_name =~ /^MARCXMLPlugout$/);
+        push @$plugout,("-saveas_version",$saveas_version) if (defined $saveas_version && $plugout_name =~ /^METSPlugout$/);
+        push @$plugout,("-xslt_mets",$xslt_mets) if (defined $xslt_mets && $plugout_name =~ /^METSPlugout$/);
+        push @$plugout,("-xslt_txt",$xslt_txt) if (defined $xslt_txt && $plugout_name =~ /^METSPlugout$/);
+        $processor = &plugout::load_plugout($plugout);    
         
         $processor->setoutputdir ($exportdir);