[Koha-cvs] CVS: koha/authorities auth_finder.pl,1.8,1.9

[Paul POULAIN]

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

Modified Files:
	auth_finder.pl 
Log Message:
synch'ing 2.2 and head

Index: auth_finder.pl
===================================================================
RCS file: /cvsroot/koha/koha/authorities/auth_finder.pl,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -r1.8 -r1.9
*** auth_finder.pl	17 May 2005 14:54:16 -0000	1.8
--- auth_finder.pl	4 Aug 2005 12:13:35 -0000	1.9
***************
*** 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 ----