fixed

git-svn-id: svn://svn.open-ils.org/ILS/trunk@720 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm b/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm
index 239ba29..b46572b 100755 (executable)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm
@@ -102,7 +102,7 @@ sub z39_search_by_string {
 
                warn $doc->toString . "\n";
 
-               my $nodes = $flat->xmldoc_to_nodeset($doc);
+               my $nodes = OpenILS::Utils::FlatXML->new->xmldoc_to_nodeset($doc);
 
                warn "turning nodeset into tree\n";
                my $tree = $utils->nodeset2tree( $nodes->nodeset );
@@ -110,6 +110,9 @@ sub z39_search_by_string {
                push @$records, $tree;
        }
 
+       use Data::Dumper;
+       warn "Returning marc tree " . Dumper($records) . "\n";
+
        $hash->{records} = $records;
        return $hash;