getitemtypes renamed to GetItemTypes

[koha_fer] / authorities / auth_finder.pl

diff --git a/authorities/auth_finder.pl b/authorities/auth_finder.pl
index ba8e5d0..fdf03c0 100755 (executable)
--- a/authorities/auth_finder.pl
+++ b/authorities/auth_finder.pl
@@ -37,7 +37,7 @@ my $query=new CGI;
 my $op = $query->param('op');
 my $authtypecode = $query->param('authtypecode');
 my $index = $query->param('index');
-# my $category = $query->param('category');
+my $tagid=$query->param('tagid');
 my $resultstring = $query->param('result');
 my $dbh = C4::Context->dbh;
 
@@ -92,8 +92,9 @@ if ($op eq "do_search") {
        my @field_data = ();
 
 
+       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[$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] };
                push @field_data, { term => "operator", val=>$operator[$i] };
@@ -132,6 +133,7 @@ if ($op eq "do_search") {
                                                        startfromnext => $startfrom+1,
                                                        startfromprev => $startfrom-1,
                                                index => $index,
+                                               tagid => $tagid,
                                                        searchdata=>\@field_data,
                                                        total=>$total,
                                                        from=>$from,
@@ -150,14 +152,18 @@ if ($op eq "do_search") {
                                debug => 1,
                                });
 
-       $template->param(index => $index,
+       $template->param(index=>$query->param('index')."",
+                                       tagid => $tagid,
                                        resultstring => $resultstring,
                                        );
 }
 
 $template->param(authtypesloop => \@authtypesloop,
-                               authtypecode => $authtypecode);
-warn "CAT : $authtypecode";
+               authtypecode => $authtypecode,
+               intranetcolorstylesheet => C4::Context->preference("intranetcolorstylesheet"),
+               intranetstylesheet => C4::Context->preference("intranetstylesheet"),
+               IntranetNav => C4::Context->preference("IntranetNav"),
+               );
 
 # Print the page
 output_html_with_http_headers $query, $cookie, $template->output;