changed return value for these methods
authorphasefx <phasefx@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Sun, 19 Feb 2006 17:00:50 +0000 (17:00 +0000)
committerphasefx <phasefx@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Sun, 19 Feb 2006 17:00:50 +0000 (17:00 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@3117 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm

index dfbd5ab..0d061fe 100755 (executable)
@@ -123,11 +123,21 @@ sub z39_search_by_string {
                if($err) {
                        $logger->error("z3950: Error turning doc into nodeset/node tree: $err");
                } else {
-                       push @$records, $tree;
+                       my $mods;
+                       
+                       my $u = OpenILS::Utils::ModsParser->new();
+                       $u->start_mods_batch( $marcxml );
+                       $mods = $u->finish_mods_batch();
+
+                       push @$records, { 'mvr' => $mods, 'brn' => $tree };
+
+                       #push @$records, $tree;
                }
 
        }
 
+       $logger->debug("z3950: got here near the end with " . scalar(@$records) . " records." );
+
        $hash->{records} = $records;
        return $hash;