[Koha-cvs] koha/C4 Search.pm
Chris Cormack
chris at katipo.co.nz
Tue Feb 14 23:56:41 CET 2006
CVSROOT: /sources/koha
Module name: koha
Branch:
Changes by: Chris Cormack <rangi at savannah.gnu.org> 06/02/14 22:56:41
Modified files:
C4 : Search.pm
Log message:
Back to using xml, a much better idea :)
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/koha/C4/Search.pm.diff?tr1=1.112&tr2=1.113&r1=text&r2=text
Patches:
Index: koha/C4/Search.pm
diff -u koha/C4/Search.pm:1.112 koha/C4/Search.pm:1.113
--- koha/C4/Search.pm:1.112 Tue Feb 14 11:23:38 2006
+++ koha/C4/Search.pm Tue Feb 14 22:56:41 2006
@@ -30,7 +30,7 @@
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
# set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.112 $' =~ /\d+/g;
+$VERSION = do { my @v = '$Revision: 1.113 $' =~ /\d+/g;
shift(@v) . "." . join("_", map {sprintf "%03d", $_ } @v); };
=head1 NAME
@@ -75,7 +75,7 @@
$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 @@
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
}
More information about the Koha-cvs
mailing list