From deb51de8b1b5d87c073e28826beded5752f13cb4 Mon Sep 17 00:00:00 2001 From: erickson Date: Tue, 30 Aug 2005 13:16:57 +0000 Subject: [PATCH] taking tcn from the db instead of the MODS when retriving records git-svn-id: svn://svn.open-ils.org/ILS/trunk@1762 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm | 2 ++ 1 file changed, 2 insertions(+) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm b/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm index 89ffd80baf..ab15a067e8 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm @@ -89,6 +89,7 @@ sub _records_to_mods { $u->start_mods_batch( $last_content->marc ); my $mods = $u->finish_mods_batch(); $mods->doc_id($last_content->id()); + $mods->tcn($last_content->tcn_value); warn "Turning doc " . $mods->doc_id() . " into MODS\n"; $last_content = undef; push @results, $mods; @@ -109,6 +110,7 @@ sub _records_to_mods { $u->start_mods_batch( $last_content->marc ); my $mods = $u->finish_mods_batch(); $mods->doc_id($last_content->id()); + $mods->tcn($last_content->tcn_value); push @results, $mods; } -- 2.43.2