From ab48d579fdd9a6f2edefbda1509d715f9b6e71f7 Mon Sep 17 00:00:00 2001 From: gmc Date: Wed, 9 Jun 2010 15:37:52 +0000 Subject: [PATCH] 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 --- Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm | 2 +- Open-ILS/src/support-scripts/marc_export | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) 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}++; -- 2.11.0