[open-ils-commits] r8226 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Search

[svn at svn.open-ils.org]

Author: miker
Date: 2007-12-16 14:52:03 -0500 (Sun, 16 Dec 2007)
New Revision: 8226

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm
Log:
adding "bibid" result peer to the marcxml

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm	2007-12-16 19:48:16 UTC (rev 8225)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm	2007-12-16 19:52:03 UTC (rev 8226)
@@ -575,7 +575,7 @@
                         $u->start_mods_batch( $rec->marc );
                         my $mods = $u->finish_mods_batch();
 
-			push @{ $result->{records} }, { mvr => $mods, marcxml => $rec->marc };
+			push @{ $result->{records} }, { mvr => $mods, marcxml => $rec->marc, bibid => $rec->id };
 
 		}