[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 => address@hidden,
                                authtypecode => $authtypecode);
- warn "CAT : $authtypecode";
  
  # Print the page
--- 159,162 ----