[open-ils-commits] r7599 - trunk/Open-ILS/src/perlmods/OpenILS/WWW

[svn at svn.open-ils.org]

Author: miker
Date: 2007-07-27 13:45:37 -0400 (Fri, 27 Jul 2007)
New Revision: 7599

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm
Log:


Modified: trunk/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm	2007-07-27 17:41:32 UTC (rev 7598)
+++ trunk/Open-ILS/src/perlmods/OpenILS/WWW/Exporter.pm	2007-07-27 17:45:37 UTC (rev 7599)
@@ -59,6 +59,14 @@
 		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 @@
 			$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
 				)
 			);