[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, \@tags,\@and_or,
  										\@excluding, \@operator, \@value,
  										$startfrom*$resultsperpage, $resultsperpage,$authtypecode);# $orderby);
--- 69,73 ----
  	$resultsperpage = 19 if(!defined $resultsperpage);
  
! 	my ($results,$total) = authoritysearch($dbh, \@marclist,\@and_or,
  										\@excluding, \@operator, \@value,
  										$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 => \@authtypesloop);
! $template->param(category => $category);
  
  # Print the page
--- 152,162 ----
  
  	$template->param(index => $index,
! 					resultstring => $resultstring,
  					);
  }
  
! $template->param(authtypesloop => \@authtypesloop,
! 				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, \@tags,\@and_or,
  										\@excluding, \@operator, \@value,
  										$startfrom*$resultsperpage, $resultsperpage,$authtypecode);
--- 66,70 ----
  	$resultsperpage = 19 if(!defined $resultsperpage);
  	my @tags;
! 	my ($results,$total) = authoritysearch($dbh, \@marclist,\@and_or,
  										\@excluding, \@operator, \@value,
  										$startfrom*$resultsperpage, $resultsperpage,$authtypecode);