fix references to ersatz "as_unimarc" method in MARC::Record

No such method exists in MARC::Record; MARC::Record->as_usmarc()
should be used instead; think of as_usmarc() as if it were
named as_iso2709_blob().

As general note, UNIMARC support in Evergreen is currently
rather theoretical at this point.

git-svn-id: svn://svn.open-ils.org/ILS/trunk@16632 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 623b34d..f39288a 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm
+++ b/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm
@@ -278,7 +278,7 @@ sub handler {
                                $x =~ s/^<\?xml version="1.0" encoding="UTF-8"\?>//o;
                                $r->print($x);
                        } elsif (uc($format) eq 'UNIMARC') {
-                               $r->print($req->as_unimarc);
+                               $r->print($req->as_usmarc);
                        } elsif (uc($format) eq 'USMARC') {
                                $r->print($req->as_usmarc);
                        }

diff --git a/Open-ILS/src/support-scripts/marc_export b/Open-ILS/src/support-scripts/marc_export
index 0f9c722..b8c0a4f 100755 (executable)
--- a/Open-ILS/src/support-scripts/marc_export
+++ b/Open-ILS/src/support-scripts/marc_export
@@ -204,9 +204,9 @@ while ( my $i = <> ) {
                if (uc($format) eq 'XML') {
                        print $r->as_xml_record;
                } elsif (uc($format) eq 'UNIMARC') {
-                       print $r->as_unimarc
+                       print $r->as_usmarc;
                } elsif (uc($format) eq 'USMARC') {
-                       print $r->as_usmarc
+                       print $r->as_usmarc;
                }
 
         $count{did}++;