taking tcn from the db instead of the MODS when retriving records
authorerickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Tue, 30 Aug 2005 13:16:57 +0000 (13:16 +0000)
committererickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Tue, 30 Aug 2005 13:16:57 +0000 (13:16 +0000)
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

index 89ffd80..ab15a06 100644 (file)
@@ -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;
        }