[Koha-cvs] CVS: koha/search.marc search.pl,1.11,1.12

[Paul POULAIN]

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, address@hidden, 
address@hidden, address@hidden,
!                                                                               
        address@hidden, address@hidden, address@hidden,
!                                                                               
        $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,address@hidden);
!       my ($results,$total) = catalogsearch($dbh, 
address@hidden,address@hidden,
!                                                                               
address@hidden, address@hidden, address@hidden,
!                                                                               
$startfrom*$resultsperpage, $resultsperpage);
  
        ($template, $loggedinuser, $cookie)