[Koha-cvs] CVS: koha/authorities auth_finder.pl,1.5.2.2,1.5.2.3

[Paul POULAIN]

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

Modified Files:
      Tag: rel_2_2
	auth_finder.pl 
Log Message:
bugfix for next/previous and number links on result list, when long list of results

Index: auth_finder.pl
===================================================================
RCS file: /cvsroot/koha/koha/authorities/auth_finder.pl,v
retrieving revision 1.5.2.2
retrieving revision 1.5.2.3
diff -C2 -r1.5.2.2 -r1.5.2.3
*** auth_finder.pl	7 Apr 2005 10:03:24 -0000	1.5.2.2
--- auth_finder.pl	21 Jun 2005 14:50:26 -0000	1.5.2.3
***************
*** 93,98 ****
  
  
  	for(my $i = 0 ; $i <= $#marclist ; $i++) {
! 		push @field_data, { term => "marclist", val=>$marclist[$i] };
  		push @field_data, { term => "and_or", val=>$and_or[$i] };
  		push @field_data, { term => "excluding", val=>$excluding[$i] };
--- 93,99 ----
  
  
+ 	my @marclist_ini = $query->param('marclist'); # get marclist again, as the previous one has been modified by catalogsearch (mainentry replaced by field name
  	for(my $i = 0 ; $i <= $#marclist ; $i++) {
! 		push @field_data, { term => "marclist", val=>$marclist_ini[$i] };
  		push @field_data, { term => "and_or", val=>$and_or[$i] };
  		push @field_data, { term => "excluding", val=>$excluding[$i] };
***************
*** 158,162 ****
  $template->param(authtypesloop => \@authtypesloop,
  				authtypecode => $authtypecode);
- warn "CAT : $authtypecode";
  
  # Print the page
--- 159,162 ----