add support for authority export

git-svn-id: svn://svn.open-ils.org/ILS/trunk@7597 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm b/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm
index fba67a8..e452cb1 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm
+++ b/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm
@@ -54,7 +54,12 @@ sub handler {
 
        return 200 unless (@records);
 
-       my $holdings = $cgi->param('holdings');
+       my $type = $cgi->param('rectype') || 'biblio';
+       if ($type ne 'biblio && $type ne 'authority') {
+               die "Bad record type: $type";
+       }
+
+       my $holdings = $cgi->param('holdings') if ($type eq 'biblio');
        my $location = $cgi->param('location') || 'gaaagpl'; # just because...
 
        my $format = $cgi->param('format') || 'USMARC';
@@ -73,8 +78,8 @@ sub handler {
        }
 
        if ($format ne 'XML') {
-               my $type = 'MARC::File::' . $format;
-               $type->require;
+               my $ftype = 'MARC::File::' . $format;
+               $ftype->require;
        }
 
        my $ses = OpenSRF::AppSession->create('open-ils.cstore');
@@ -124,7 +129,7 @@ sub handler {
                try {
                        local $SIG{ALRM} = sub { die "TIMEOUT\n" };
                        alarm(1);
-                       $bib = $ses->request( 'open-ils.cstore.direct.biblio.record_entry.retrieve', $i, $flesh )->gather(1);
+                       $bib = $ses->request( "open-ils.cstore.direct.$type.record_entry.retrieve", $i, $flesh )->gather(1);
                        alarm(0);
                } otherwise {
                        warn "\n!!!!!! Timed out trying to read record $i\n";