[Koha-cvs] CVS: koha/opac opac-search.pl,1.27,1.28
Waylon Robertson
genjimoto at users.sourceforge.net
Fri Jun 3 05:51:28 CEST 2005
Update of /cvsroot/koha/koha/opac
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6543
Modified Files:
opac-search.pl
Log Message:
Search for availablilty feature implemented.
Index: opac-search.pl
===================================================================
RCS file: /cvsroot/koha/koha/opac/opac-search.pl,v
retrieving revision 1.27
retrieving revision 1.28
diff -C2 -r1.27 -r1.28
*** opac-search.pl 2 Jun 2005 13:47:47 -0000 1.27
--- opac-search.pl 3 Jun 2005 03:51:26 -0000 1.28
***************
*** 16,20 ****
my $firstbiblionumber; # needed for directly sending user to first item
# use C4::Search;
!
my $itemtypelist;
--- 16,20 ----
my $firstbiblionumber; # needed for directly sending user to first item
# use C4::Search;
! my $totalresults;
my $itemtypelist;
***************
*** 56,60 ****
my $op = $query->param("op");
my $type=$query->param('type');
!
my $itemtypesstring=$query->param("itemtypesstring");
$itemtypesstring =~s/"//g;
--- 56,60 ----
my $op = $query->param("op");
my $type=$query->param('type');
! my $avail=$query->param('avail');
my $itemtypesstring=$query->param("itemtypesstring");
$itemtypesstring =~s/"//g;
***************
*** 141,145 ****
$sqlstring .= '))'
}
!
my ($results,$total) = catalogsearch($dbh, \@tags,\@and_or,
\@excluding, \@operator, \@value,
--- 141,147 ----
$sqlstring .= '))'
}
! if ($avail){
! $sqlstring .= "and biblioitems.biblioitemnumber=items.biblioitemnumber and items.itemnumber !=issues.itemnumber and biblio.biblionumber !=reserves.biblionumber and (items.itemlost IS NULL or items.itemlost = 0) and (items.notforloan IS NULL or items.notforloan =0) and (items.wthdrawn IS NULL or items.wthdrawn =0) ";
! }
my ($results,$total) = catalogsearch($dbh, \@tags,\@and_or,
\@excluding, \@operator, \@value,
More information about the Koha-cvs
mailing list