[open-ils-commits] r16632 - in trunk/Open-ILS/src: perlmods/OpenILS/WWW support-scripts (gmc)

[svn at svn.open-ils.org]

Author: gmc
Date: 2010-06-09 11:37:52 -0400 (Wed, 09 Jun 2010)
New Revision: 16632

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm
   trunk/Open-ILS/src/support-scripts/marc_export
Log:
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.


Modified: trunk/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm	2010-06-09 15:32:02 UTC (rev 16631)
+++ trunk/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm	2010-06-09 15:37:52 UTC (rev 16632)
@@ -278,7 +278,7 @@
 				$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);
 			}

Modified: trunk/Open-ILS/src/support-scripts/marc_export
===================================================================
--- trunk/Open-ILS/src/support-scripts/marc_export	2010-06-09 15:32:02 UTC (rev 16631)
+++ trunk/Open-ILS/src/support-scripts/marc_export	2010-06-09 15:37:52 UTC (rev 16632)
@@ -204,9 +204,9 @@
 		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}++;