[Koha-cvs] CVS: koha/authorities auth_finder.pl,1.5,1.5.2.1 authorities-home.pl,1.8,1.8.2.1

[Paul POULAIN]

Update of /cvsroot/koha/koha/authorities
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16041/authorities

Modified Files:
      Tag: rel_2_2
        auth_finder.pl authorities-home.pl 
Log Message:
* adding search on "main entry" (ie $a subfield) on a given authority (the 
"search everywhere" field is still here).
* adding a select box to requet "contain" or "begin with" search.
* fixing some bug in authority search (related to "main entry" search)

Index: auth_finder.pl
===================================================================
RCS file: /cvsroot/koha/koha/authorities/auth_finder.pl,v
retrieving revision 1.5
retrieving revision 1.5.2.1
diff -C2 -r1.5 -r1.5.2.1
*** auth_finder.pl      18 Aug 2004 16:05:42 -0000      1.5
--- auth_finder.pl      28 Feb 2005 14:03:12 -0000      1.5.2.1
***************
*** 38,42 ****
  my $authtypecode = $query->param('authtypecode');
  my $index = $query->param('index');
! my $category = $query->param('category');
  my $resultstring = $query->param('result');
  my $dbh = C4::Context->dbh;
--- 38,42 ----
  my $authtypecode = $query->param('authtypecode');
  my $index = $query->param('index');
! # my $category = $query->param('category');
  my $resultstring = $query->param('result');
  my $dbh = C4::Context->dbh;
***************
*** 69,76 ****
        $resultsperpage = 19 if(!defined $resultsperpage);
  
!       # builds tag and subfield arrays
!       my @tags;
! 
!       my ($results,$total) = authoritysearch($dbh, 
address@hidden,address@hidden,
                                                                                
address@hidden, address@hidden, address@hidden,
                                                                                
$startfrom*$resultsperpage, $resultsperpage,$authtypecode);# $orderby);
--- 69,73 ----
        $resultsperpage = 19 if(!defined $resultsperpage);
  
!       my ($results,$total) = authoritysearch($dbh, 
address@hidden,address@hidden,
                                                                                
address@hidden, address@hidden, address@hidden,
                                                                                
$startfrom*$resultsperpage, $resultsperpage,$authtypecode);# $orderby);
***************
*** 128,132 ****
        }
        $template->param(result => $results) if $results;
!       $template->param(index => $query->param('index'));
        $template->param(startfrom=> $startfrom,
                                                        displaynext=> 
$displaynext,
--- 125,129 ----
        }
        $template->param(result => $results) if $results;
!       $template->param(index => $query->param('index')."");
        $template->param(startfrom=> $startfrom,
                                                        displaynext=> 
$displaynext,
***************
*** 155,164 ****
  
        $template->param(index => $index,
!                                       resultstring => $resultstring
                                        );
  }
  
! $template->param(authtypesloop => address@hidden);
! $template->param(category => $category);
  
  # Print the page
--- 152,162 ----
  
        $template->param(index => $index,
!                                       resultstring => $resultstring,
                                        );
  }
  
! $template->param(authtypesloop => address@hidden,
!                               authtypecode => $authtypecode);
! warn "CAT : $authtypecode";
  
  # Print the page

Index: authorities-home.pl
===================================================================
RCS file: /cvsroot/koha/koha/authorities/authorities-home.pl,v
retrieving revision 1.8
retrieving revision 1.8.2.1
diff -C2 -r1.8 -r1.8.2.1
*** authorities-home.pl 13 Dec 2004 16:39:14 -0000      1.8
--- authorities-home.pl 28 Feb 2005 14:03:12 -0000      1.8.2.1
***************
*** 66,70 ****
        $resultsperpage = 19 if(!defined $resultsperpage);
        my @tags;
!       my ($results,$total) = authoritysearch($dbh, 
address@hidden,address@hidden,
                                                                                
address@hidden, address@hidden, address@hidden,
                                                                                
$startfrom*$resultsperpage, $resultsperpage,$authtypecode);
--- 66,70 ----
        $resultsperpage = 19 if(!defined $resultsperpage);
        my @tags;
!       my ($results,$total) = authoritysearch($dbh, 
address@hidden,address@hidden,
                                                                                
address@hidden, address@hidden, address@hidden,
                                                                                
$startfrom*$resultsperpage, $resultsperpage,$authtypecode);