From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Fri, 27 Jul 2007 17:45:37 +0000 (+0000)
Subject: git-svn-id: svn://svn.open-ils.org/ILS/trunk@7599 dcc99617-32d9-48b4-a31d-7c20da2025e4
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=f67332ddbb24087548106e7c092fda4ba04601ba;p=Evergreen.git

git-svn-id: svn://svn.open-ils.org/ILS/trunk@7599 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 c9d6aded72..60341b5928 100644
--- a/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm
+++ b/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm
@@ -59,6 +59,14 @@ sub handler {
 		die "Bad record type: $type";
 	}
 
+	my $tcn_v = 'tcn_value';
+	my $tcn_s = 'tcn_source';
+
+	if ($type eq 'authority') {
+		$tcn_v = 'arn_value';
+		$tcn_s = 'arn_source';
+	}
+
 	my $holdings = $cgi->param('holdings') if ($type eq 'biblio');
 	my $location = $cgi->param('location') || 'gaaagpl'; # just because...
 
@@ -151,8 +159,8 @@ sub handler {
 			$r->append_fields(
 				MARC::Field->new(
 					901, '', '', 
-					a => $bib->tcn_value,
-					b => $bib->tcn_source,
+					a => $bib->$tcn_v,
+					b => $bib->$tcn_s,
 					c => $bib->id
 				)
 			);