From 24a52ae5668ac75aa9dedac7024b51bfc4b76d90 Mon Sep 17 00:00:00 2001
From: rangi <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.20.1