From: gmc <gmc@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Wed, 9 Jun 2010 15:37:52 +0000 (+0000)
Subject: fix references to ersatz "as_unimarc" method in MARC::Record
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=ab48d579fdd9a6f2edefbda1509d715f9b6e71f7;p=evergreen%2Fpines.git

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 623b34d9cd..f39288aea7 100644
--- 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 0f9c722984..b8c0a4f797 100755
--- 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}++;