Kumara - predecessor to Koha
Вы не можете выбрать более 25 тем Темы должны начинаться с буквы или цифры, могут содержать дефисы(-) и должны содержать не более 35 символов.

636 строки
18 KiB

package C4::Search; #asummes C4/Search
#requires DBI.pm to be installed
#uses DBD:Pg
use strict;
require Exporter;
use DBI;
use C4::Database;
#use C4::InterfaceCDK;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
# set the version for version checking
$VERSION = 0.01;
@ISA = qw(Exporter);
@EXPORT = qw(&CatSearch &BornameSearch &ItemInfo &KeywordSearch &subsearch
&itemdata &bibdata &GetItems &borrdata &getacctlist &itemnodata &itemcount
&OpacSearch &borrdata2 &NewBorrowerNumber &bibitemdata);
%EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ],
# your exported package globals go here,
# as well as any optionally exported functions
@EXPORT_OK = qw($Var1 %Hashit);
# non-exported package globals go here
use vars qw(@more $stuff);
# initalize package globals, first exported ones
my $Var1 = '';
my %Hashit = ();
# then the others (which are still accessible as $Some::Module::stuff)
my $stuff = '';
my @more = ();
# all file-scoped lexicals must be created before
# the functions below that use them.
# file-private lexicals go here
my $priv_var = '';
my %secret_hash = ();
# here's a file-private function as a closure,
# callable as &$priv_func; it cannot be prototyped.
my $priv_func = sub {
# stuff goes here.
};
# make all your functions, whether exported or not;
sub NewBorrowerNumber {
my $dbh=C4Connect;
my $sth=$dbh->prepare("Select max(borrowernumber) from borrowers");
$sth->execute;
my $data=$sth->fetchrow_hashref;
$sth->finish;
$data->{'max(borrowernumber)'}++;
return($data->{'max(borrowernumber)'});
}
sub OpacSearch {
my ($env,$type,$search,$num,$offset)=@_;
my $dbh = &C4Connect;
my @key=split(' ',$search->{'keyword'});
my $count=@key;
my $i=1;
my @results;
my $query ="Select count(*) from biblio where
(title like '%$key[0]%'";
while ($i < $count){
$query=$query." and title like '%$key[$i]%'";
$i++;
}
$query=$query.") or (author like '%$key[0]%'";
$i=1;
while ($i < $count){
$query=$query." and author like '%$key[$i]%'";
$i++;
}
$query=$query.") order by title";
my $sth=$dbh->prepare($query);
$sth->execute;
my $data=$sth->fetchrow_hashref;
my $count=$data->{'count(*)'};
$sth->finish;
$query=~ s/count\(\*\)/\*/;
$query= $query." limit $offset,$num";
$sth=$dbh->prepare($query);
# print $query;
$sth->execute;
$i=0;
while (my $data=$sth->fetchrow_hashref){
$results[$i]="$data->{'author'}\t$data->{'title'}\t$data->{'biblionumber'}";
$i++;
}
$sth->finish;
$dbh->disconnect;
return($count,@results);
}
sub KeywordSearch {
my ($env,$type,$search,$num,$offset)=@_;
my $dbh = &C4Connect;
$search->{'keyword'}=~ s/ +$//;
my @key=split(' ',$search->{'keyword'});
my $count=@key;
my $i=1;
my @results;
my $query ="Select * from biblio where
(title like '%$key[0]%'";
while ($i < $count){
$query=$query." and title like '%$key[$i]%'";
$i++;
}
$query=$query.") order by author,title";
my $sth=$dbh->prepare($query);
$sth->execute;
$i=0;
while (my $data=$sth->fetchrow_hashref){
$results[$i]="$data->{'author'}\t$data->{'title'}\t$data->{'biblionumber'}\t$data->{'copyrightdate'}";
# print $results[$i];
$i++;
}
$sth->finish;
$sth=$dbh->prepare("Select biblionumber from bibliosubject where subject
like '%$search->{'keyword'}%'");
$sth->execute;
while (my $data=$sth->fetchrow_hashref){
my $sth2=$dbh->prepare("Select * from biblio where
biblionumber=$data->{'biblionumber'}");
$sth2->execute;
while (my $data2=$sth2->fetchrow_hashref){
$results[$i]="$data2->{'author'}\t$data2->{'title'}\t$data2->{'biblionumber'}\t$data->{'copyrightdate'}";
# print $results[$i];
$i++;
}
$sth2->finish;
}
my $i2=1;
@results=sort @results;
my @res;
my $count=@results;
$i=1;
$res[0]=$results[0];
while ($i2 < $count){
if ($results[$i2] ne $res[$i-1]){
$res[$i]=$results[$i2];
$i++;
}
$i2++;
}
$i2=0;
my @res2;
$count=@res;
while ($i2 < $num && $i2 < $count){
$res2[$i2]=$res[$i2+$offset];
# print $res2[$i2];
$i2++;
}
$sth->finish;
$dbh->disconnect;
return($i,@res2);
}
sub CatSearch {
my ($env,$type,$search,$num,$offset)=@_;
my $dbh = &C4Connect;
my $query = '';
my @results;
my $title = lc($search->{'title'});
if ($type eq 'loose') {
if ($search->{'author'} ne ''){
my @key=split(' ',$search->{'author'});
my $count=@key;
my $i=1;
$query="select count(*) from
biblio,biblioitems
where biblioitems.biblionumber=biblio.biblionumber and (biblio.author like '%$key[0]%'";
while ($i < $count){
$query=$query." and author like '%$key[$i]%'";
$i++;
}
$query=$query.")";
if ($search->{'title'} ne ''){
$query=$query. " and title like '%$search->{'title'}%'";
}
if ($search->{'class'} ne ''){
$query.=" and biblioitems.itemtype='$search->{'class'}'";
}
} else {
if ($search->{'title'} ne ''){
my @key=split(' ',$search->{'title'});
my $count=@key;
my $i=1;
$query="select count(*) from biblio,bibliosubtitle
where
(biblio.biblionumber=bibliosubtitle.biblionumber) and
((title like '%$key[0]%' or subtitle like '%$key[0]%')";
while ($i<$count){
$query=$query." and (title like '%$key[$i]%' or subtitle like '%$key[$i]%')";
$i++;
}
$query=$query.")";
# if ($search->{'class'} ne ''){
# $query.=" and biblioitems.itemtype='$search->{'class'}'";
# }
} elsif ($search->{'class'} ne ''){
$query="select count(*) from biblioitems,biblio where itemtype =
'$search->{'class'}' and biblio.biblionumber=biblioitems.biblionumber";
}
}
}
if ($type eq 'subject'){
$query="select distinct(subject) from bibliosubject where subject like
'$search->{'subject'}%'";
}
if ($type eq 'precise'){
$query="select count(*) from items,biblio ";
if ($search->{'item'} ne ''){
my $search2=uc $search->{'item'};
$query=$query." where barcode='$search2' and
items.biblionumber=biblio.biblionumber ";
}
if ($search->{'isbn'} ne ''){
my $search2=uc $search->{'isbn'};
my $query1 = "select * from biblioitems where isbn='$search2'";
my $sth1=$dbh->prepare($query1);
$sth1->execute;
my $i2=0;
while (my $data=$sth1->fetchrow_hashref) {
$query="select * from biblioitems,items,biblio where
biblioitems.biblioitemnumber = '$data->{'biblioitemnumber'}'
and biblioitems.biblionumber =
biblio.biblionumber and items.biblioitemnumber =
biblioitems.biblioitemnumber";
my $sth=$dbh->prepare($query);
$sth->execute;
my $data=$sth->fetchrow_hashref;
$results[$i2]="$data->{'author'}\t$data->{'title'}\t$data->{'biblionumber'}";
$i2++;
$sth->finish;
}
$sth1->finish;
}
}
#print $query;
my $sth=$dbh->prepare($query);
$sth->execute;
my $count=0;
if ($type eq 'subject'){
while (my $data=$sth->fetchrow_arrayref){
$count++;
}
} else {
my $data=$sth->fetchrow_arrayref;
$count=$data->[0];
}
$sth->finish;
$query=~ s/count\(\*\)/\*/g;
if ($type ne 'precise' && $type ne 'subject'){
if ($search->{'author'} ne ''){
$query=$query." order by author,title limit $offset,$num";
} else {
$query=$query." order by title limit $offset,$num";
}
} else {
if ($type eq 'subject'){
$query=$query." order by subject limit $offset,$num";
}
}
$sth=$dbh->prepare($query);
$sth->execute;
my $i=0;
my $i2=0;
my $limit=$num+$offset;
# if ($search->{'title'} ne '' || $search->{'author'} ne '' ){
# while ((my $data=$sth->fetchrow_hashref) && $i < $limit){
# if ($i >= $offset){
#
# $results[$i2]="$data->{'author'}\t$data->{'title'}\t$data->{'biblionumber'}";
# $i2++;
# }
# $i++;
# }
# } else {
while (my $data=$sth->fetchrow_hashref){
if ($type ne 'subject'){
$results[$i]="$data->{'author'}\t$data->{'title'}\t$data->{'biblionumber'}\t$data->{'copyrightdate'}";
} elsif ($search->{'isbn'} ne ''){
} else {
$results[$i]="$data->{'author'}\t$data->{'subject'}\t$data->{'biblionumber'}\t$data->{'copyrightdate'}";
}
$i++;
}
# }
$sth->finish;
# print "$query\n";
#only update stats if search is from opac
# updatesearchstats($dbh,$query);
$dbh->disconnect;
if ($search->{'isbn'} ne ''){
$count=1;
}
return($count,@results);
}
sub updatesearchstats{
my ($dbh,$query)=@_;
}
sub subsearch {
my ($env,$subject)=@_;
my $dbh=C4Connect();
my $query="Select * from biblio,bibliosubject where
biblio.biblionumber=bibliosubject.biblionumber and
bibliosubject.subject='$subject'";
my $sth=$dbh->prepare($query);
$sth->execute;
my $i=0;
# print $query;
my @results;
while (my $data=$sth->fetchrow_hashref){
$results[$i]="$data->{'title'}\t$data->{'author'}\t$data->{'biblionumber'}";
$i++;
}
$sth->finish;
$dbh->disconnect;
return(@results);
}
sub ItemInfo {
my ($env,$biblionumber)=@_;
my $dbh = &C4Connect;
my $query="Select * from items,biblio,biblioitems,branches
where (items.biblioitemnumber = biblioitems.biblioitemnumber)
and biblioitems.biblionumber=biblio.biblionumber
and biblio.biblionumber='$biblionumber' and branches.branchcode=
items.holdingbranch";
my $sth=$dbh->prepare($query);
$sth->execute;
my $i=0;
my @results;
while (my $data=$sth->fetchrow_hashref){
my $iquery = "Select * from issues
where itemnumber = '$data->{'itemnumber'}'
and returndate is null";
my $datedue = '';
my $isth=$dbh->prepare($iquery);
$isth->execute;
if (my $idata=$isth->fetchrow_hashref){
$datedue = $idata->{'date_due'};
}
$isth->finish;
my $class = $data->{'classification'};
my $dewey = $data->{'dewey'};
$dewey =~ s/0+$//;
if ($dewey < 10){$dewey='00'.$dewey;}
if ($dewey < 100 && $dewey > 10){$dewey='0'.$dewey;}
if ($dewey eq "000.") { $dewey = "";};
$class = $class.$dewey;
$class = $class.$data->{'subclass'};
# $results[$i]="$data->{'title'}\t$data->{'barcode'}\t$datedue\t$data->{'branchname'}\t$data->{'dewey'}";
my @temp=split('-',$data->{'datelastseen'});
my $date="$temp[2]/$temp[1]/$temp[0]";
$results[$i]="$data->{'title'}\t$data->{'barcode'}\t$datedue\t$data->{'branchname'}\t$class\t$data->{'itemnumber'}\t$data->{'itemtype'}\t$date\t$data->{'biblioitemnumber'}";
$i++;
}
$sth->finish;
$dbh->disconnect;
return(@results);
}
sub GetItems {
my ($env,$biblionumber)=@_;
#debug_msg($env,"GetItems");
my $dbh = &C4Connect;
my $query = "Select * from biblioitems where (biblionumber = $biblionumber)";
#debug_msg($env,$query);
my $sth=$dbh->prepare($query);
$sth->execute;
#debug_msg($env,"executed query");
my $i=0;
my @results;
while (my $data=$sth->fetchrow_hashref) {
#debug_msg($env,$data->{'biblioitemnumber'});
my $dewey = $data->{'dewey'};
$dewey =~ s/0+$//;
my $line = $data->{'biblioitemnumber'}."\t".$data->{'itemtype'};
$line = $line."\t$data->{'classification'}\t$dewey";
$line = $line."\t$data->{'subclass'}\t$data->{isbn}";
$line = $line."\t$data->{'volume'}\t$data->{number}";
my $isth= $dbh->prepare("select * from items where biblioitemnumber = $data->{'biblioitemnumber'}");
$isth->execute;
while (my $idata = $isth->fetchrow_hashref) {
my $iline = $idata->{'barcode'}."[".$idata->{'holdingbranch'}."[";
if ($idata->{'notforloan'} == 1) {
$iline = $iline."NFL ";
}
if ($idata->{'itemlost'} == 1) {
$iline = $iline."LOST ";
}
$line = $line."\t$iline";
}
$isth->finish;
$results[$i] = $line;
$i++;
}
$sth->finish;
$dbh->disconnect;
return(@results);
}
sub itemdata {
my ($barcode)=@_;
my $dbh=C4Connect;
my $query="Select * from items,biblioitems where barcode='$barcode'
and items.biblioitemnumber=biblioitems.biblioitemnumber";
# print $query;
my $sth=$dbh->prepare($query);
$sth->execute;
my $data=$sth->fetchrow_hashref;
$sth->finish;
$dbh->disconnect;
return($data);
}
sub bibdata {
my ($bibnum)=@_;
my $dbh=C4Connect;
my $query="Select * from biblio,biblioitems,bibliosubject,bibliosubtitle where biblio.biblionumber=$bibnum
and biblioitems.biblionumber=$bibnum and
(bibliosubject.biblionumber=$bibnum or bibliosubject.biblionumber=1) and
(bibliosubtitle.biblionumber=$bibnum or bibliosubtitle.biblionumber=1)";
# print $query;
my $sth=$dbh->prepare($query);
$sth->execute;
my $data=$sth->fetchrow_hashref;
$sth->finish;
$dbh->disconnect;
return($data);
}
sub bibitemdata {
my ($bibitem)=@_;
my $dbh=C4Connect;
my $query="Select * from biblio,biblioitems where biblio.biblionumber=
biblioitems.biblionumber and biblioitemnumber=$bibitem";
# print $query;
my $sth=$dbh->prepare($query);
$sth->execute;
my $data=$sth->fetchrow_hashref;
$sth->finish;
$dbh->disconnect;
return($data);
}
sub itemnodata {
my ($env,$dbh,$itemnumber) = @_;
my $query="Select * from biblio,items,biblioitems
where items.itemnumber = '$itemnumber'
and biblio.biblionumber = items.biblionumber
and biblioitems.biblioitemnumber = items.biblioitemnumber";
my $sth=$dbh->prepare($query);
$sth->execute;
my $data=$sth->fetchrow_hashref;
$sth->finish;
return($data);
}
#used by member enquiries from the intranet
#called by member.pl
sub BornameSearch {
my ($env,$searchstring,$type)=@_;
my $dbh = &C4Connect;
my @data=split(' ',$searchstring);
my $count=@data;
my $query="Select * from borrowers
where ((surname like '%$data[0]%'
or firstname like '%$data[0]%'
or othernames like '%$data[0]%')
";
for (my $i=1;$i<$count;$i++){
$query=$query." and (surname like '%$data[$i]%'
or firstname like '%$data[$i]%'
or othernames like '%$data[$i]%')";
}
$query=$query.") or cardnumber = '$searchstring'
order by surname,firstname";
print $query,"\n";
my $sth=$dbh->prepare($query);
$sth->execute;
my @results;
my $cnt=0;
while (my $data=$sth->fetchrow_hashref){
push(@results,$data);
$cnt ++;
}
# $sth->execute;
$sth->finish;
$dbh->disconnect;
return ($cnt,\@results);
}
sub borrdata {
my ($cardnumber,$bornum)=@_;
$cardnumber = uc $cardnumber;
my $dbh=C4Connect;
my $query;
if ($bornum eq ''){
$query="Select * from borrowers where cardnumber='$cardnumber'";
} else {
$query="Select * from borrowers where borrowernumber='$bornum'";
}
#print $query;
my $sth=$dbh->prepare($query);
$sth->execute;
my $data=$sth->fetchrow_hashref;
$sth->finish;
$dbh->disconnect;
return($data);
}
sub borrdata2 {
my ($env,$bornum)=@_;
my $dbh=C4Connect;
my $query="Select count(*) from issues where borrowernumber='$bornum' and
returndate is NULL";
# print $query;
my $sth=$dbh->prepare($query);
$sth->execute;
my $data=$sth->fetchrow_hashref;
$sth->finish;
$sth=$dbh->prepare("Select count(*) from issues where
borrowernumber='$bornum' and date_due < now() and returndate is NULL");
$sth->execute;
my $data2=$sth->fetchrow_hashref;
$sth->finish;
$sth=$dbh->prepare("Select sum(amountoutstanding) from accountlines where
borrowernumber='$bornum'");
$sth->execute;
my $data3=$sth->fetchrow_hashref;
$sth->finish;
$dbh->disconnect;
return($data2->{'count(*)'},$data->{'count(*)'},$data3->{'sum(amountoutstanding)'});
}
sub getacctlist {
my ($env,$params) = @_;
my $dbh=C4Connect;
my @acctlines;
my $numlines;
my $query = "Select borrowernumber, accountno, date, amount, description,
dispute, accounttype, amountoutstanding, barcode, title
from accountlines,items,biblio
where borrowernumber = $params->{'borrowernumber'} ";
if ($params->{'acctno'} ne "") {
my $query = $query." and accountlines.accountno = $params->{'acctno'} ";
}
my $query = $query." and accountlines.itemnumber = items.itemnumber
and items.biblionumber = biblio.biblionumber
and accountlines.amountoutstanding<>0 order by date";
my $sth=$dbh->prepare($query);
$sth->execute;
my $total=0;
while (my $data=$sth->fetchrow_hashref){
$acctlines[$numlines] = $data;
$numlines++;
$total = $total+ $data->{'amountoutstanding'};
}
return ($numlines,\@acctlines,$total);
}
sub itemcount {
my ($env,$bibnum)=@_;
my $dbh=C4Connect;
my $query="Select * from items where
biblionumber=$bibnum";
my $sth=$dbh->prepare($query);
# print $query;
$sth->execute;
my $count=0;
my $lcount=0;
my $nacount=0;
my $fcount=0;
my $scount=0;
while (my $data=$sth->fetchrow_hashref){
$count++;
my $query2="select * from issues where itemnumber=
'$data->{'itemnumber'}' and returndate is NULL";
my $sth2=$dbh->prepare($query2);
$sth2->execute;
if (my $data2=$sth2->fetchrow_hashref){
$nacount++;
} else {
if ($data->{'holdingbranch'} eq 'C'){
$lcount++;
}
if ($data->{'holdingbranch'} eq 'F' || $data->{'holdingbranch'} eq 'FP'){
$fcount++;
}
if ($data->{'holdingbranch'} eq 'S' || $data->{'holdingbranch'} eq 'SP'){
$scount++;
}
}
$sth2->finish;
}
$sth->finish;
$dbh->disconnect;
return ($count,$lcount,$nacount,$fcount,$scount);
}
END { } # module clean-up code here (global destructor)