[Koha-cvs] CVS: koha/search.marc search.pl,1.11,1.12
Paul POULAIN
tipaul at users.sourceforge.net
Sat Mar 6 21:26:15 CET 2004
Update of /cvsroot/koha/koha/search.marc
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5077/search.marc
Modified Files:
search.pl
Log Message:
adding seealso feature in MARC searches
Index: search.pl
===================================================================
RCS file: /cvsroot/koha/koha/search.marc/search.pl,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -r1.11 -r1.12
*** search.pl 5 Sep 2003 11:29:48 -0000 1.11
--- search.pl 6 Mar 2004 20:26:13 -0000 1.12
***************
*** 112,124 ****
# builds tag and subfield arrays
my @tags;
- my @subfields;
foreach my $marc (@marclist) {
! push @tags, substr($marc,0,3);
! push @subfields, substr($marc,3,1);
}
! my ($results,$total) = catalogsearch($dbh, \@tags, \@subfields, \@and_or,
! \@excluding, \@operator, \@value,
! $startfrom*$resultsperpage, $resultsperpage);
($template, $loggedinuser, $cookie)
--- 112,123 ----
# builds tag and subfield arrays
my @tags;
foreach my $marc (@marclist) {
! push @tags, $dbh->quote(substr($marc,0,4));
}
! findseealso($dbh,\@tags);
! my ($results,$total) = catalogsearch($dbh, \@tags,\@and_or,
! \@excluding, \@operator, \@value,
! $startfrom*$resultsperpage, $resultsperpage);
($template, $loggedinuser, $cookie)
More information about the Koha-cvs
mailing list