[Koha-cvs] koha/C4 Search.pm

[Chris Cormack]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         
Changes by:     Chris Cormack <address@hidden>  06/02/14 04:00:23

Modified files:
        C4             : Search.pm 

Log message:
        Work in progress still, committing for testing

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/koha/C4/Search.pm.diff?tr1=1.110&tr2=1.111&r1=text&r2=text

Patches:
Index: koha/C4/Search.pm
diff -u koha/C4/Search.pm:1.110 koha/C4/Search.pm:1.111
--- koha/C4/Search.pm:1.110     Mon Feb 13 21:03:21 2006
+++ koha/C4/Search.pm   Tue Feb 14 04:00:23 2006
@@ -21,13 +21,16 @@
 use ZOOM;
 use Smart::Comments;
 use C4::Context;
+use MARC::Record;
+use MARC::File::XML;
+use C4::Biblio;
 
 require Exporter;
 
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 
 # set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.110 $' =~ /\d+/g;
+$VERSION = do { my @v = '$Revision: 1.111 $' =~ /\d+/g;
           shift(@v) . "." . join("_", map {sprintf "%03d", $_ } @v); };
 
 =head1 NAME
@@ -55,13 +58,16 @@
 
 sub search {
     my ($search,$type)address@hidden;
+    my $dbh=C4::Context->dbh();
     my $q;
     my $host=C4::Context->config("zebraserver");
     my $port=C4::Context->config("zebraport");
     my $intranetdir=C4::Context->config("intranetdir");
+    my $database="koha3";
     my $Zconn;
+    my $raw;
     eval {
-       $Zconn = new ZOOM::Connection($host,$port);
+       $Zconn = new ZOOM::Connection("$host:$port/$database");
     };
     if ($@) {
        warn "Error ", address@hidden>code(), ": ", address@hidden>message(), 
"\n";                  
@@ -73,17 +79,33 @@
            $string.="$var=\"$search->{$var}\" ";
        }           
        $Zconn->option(cqlfile => "$intranetdir/zebra/pqf.properties");
-       $Zconn->option(preferredRecordSyntax => "xml");
+       $Zconn->option(preferredRecordSyntax => "usmarc");
        $q = new ZOOM::Query::CQL2RPN( $string, $Zconn);        
        }
     eval {
        my $rs = $Zconn->search($q);
        my $n = $rs->size();
-       ###$rs->record(0)->render();
+       if ($n >0){
+           $raw=$rs->record(0)->raw();
+       }
+#      print "here is $n";
+#      $raw=$rs->record(0)->raw();
+       print $raw;
+
+
     };
     if ($@) {
        print "Error ", address@hidden>code(), ": ", address@hidden>message(), 
"\n";
     }   
+    my $record = MARC::Record->new_from_usmarc($raw);
+    ### $record                                                                
                                    
+    # transform it into a meaningul hash                                       
                                
+    my $line = MARCmarc2koha($dbh,$record);                                    
                                
+    ### $line                                                                  
                                    
+    my $biblionumber=$line->{biblionumber};                                    
                                
+    my $title=$line->{title};                                                  
                                
+
+
 }
 1;
 __END__