From 24a52ae5668ac75aa9dedac7024b51bfc4b76d90 Mon Sep 17 00:00:00 2001 From: rangi Date: Tue, 14 Feb 2006 22:56:41 +0000 Subject: [PATCH] Back to using xml, a much better idea :) --- C4/Search.pm | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) diff --git a/C4/Search.pm b/C4/Search.pm index 1413a5dd19..460a2dcf2a 100755 --- a/C4/Search.pm +++ b/C4/Search.pm @@ -75,7 +75,7 @@ sub search { $string.="$var=\"$search->{$var}\" "; } $Zconn->option(cqlfile => C4::Context->config("intranetdir")."/zebra/pqf.properties"); - $Zconn->option(preferredRecordSyntax => "usmarc"); + $Zconn->option(preferredRecordSyntax => "xml"); $q = new ZOOM::Query::CQL2RPN( $string, $Zconn); } eval { @@ -84,22 +84,18 @@ sub search { if ($n >0){ $raw=$rs->record(0)->raw(); } -# print "here is $n"; -# $raw=$rs->record(0)->raw(); - print $raw; - - }; if ($@) { print "Error ", $@->code(), ": ", $@->message(), "\n"; } - my $record = MARC::Record->new_from_usmarc($raw); + my $record = MARC::Record->new_from_xml($raw); ### $record # transform it into a meaningul hash my $line = MARCmarc2koha($dbh,$record); ### $line my $biblionumber=$line->{biblionumber}; my $title=$line->{title}; + ### $title } -- 2.39.5