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

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm b/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm
index 89ffd80..ab15a06 100644 (file)
--- 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());
                        $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;
                        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());
                $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;
        }
 
                push @results, $mods;
        }