$template->param(countchanged => $countchanged, loopunchanged=>$listunchanged);
=cut
+
sub EditBiblios{
my ($listbiblios,$tagsubfield,$initvalue,$targetvalue,$test)=@_;
my $countmatched;
# Non-Zebra GetRecords#
#----------------------------------------------------------------------
-=item
+=head2 NZgetRecords
+
NZgetRecords has the same API as zera getRecords, even if some parameters are not managed
+
=cut
sub NZgetRecords {
$scan
) = @_;
my $result = NZanalyse($koha_query);
-# use Data::Dumper;
-# warn "==========".@$sort_by_ref[0];
return (undef,NZorder($result,@$sort_by_ref[0],$results_per_page,$offset),undef);
}
-=item
+=head2 NZanalyse
NZanalyse : get a CQL string as parameter, and returns a list of biblionumber;title,biblionumber;title,...
the list is builded from inverted index in nozebra SQL table
$left='publisher' if $left eq 'pb';
$left='subject' if $left eq 'su';
$left='koha-Auth-Number' if $left eq 'an';
+ $left='keyword' if $left eq 'kw';
if ($operator) {
#do a specific search
my $dbh = C4::Context->dbh;
my $sth = $dbh->prepare("SELECT biblionumbers FROM nozebra WHERE server=? AND value LIKE ?");
# split each word, query the DB and build the biblionumbers result
foreach (split / /,$string) {
-# warn "search on all indexes on $_";
+ #warn "search on all indexes on $_";
my $biblionumbers;
next unless $_;
$sth->execute($server, $_);
}
}
+=head2 NZorder
+
+ $finalresult = NZorder($biblionumbers, $ordering,$results_per_page,$offset);
+
+ TODO :: Description
+
+=cut
+
+
sub NZorder {
my ($biblionumbers, $ordering,$results_per_page,$offset) = @_;
# order title asc by default