# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
#
-# You should have received a copy of the GNU General Public License along with
-# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
-# Suite 330, Boston, MA 02111-1307 USA
+# You should have received a copy of the GNU General Public License along
+# with Koha; if not, write to the Free Software Foundation, Inc.,
+# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
use strict;
use warnings;
my $index = $query->param('index');
my $tagid = $query->param('tagid');
my $resultstring = $query->param('result');
+my $relationship = $query->param('relationship');
my $dbh = C4::Context->dbh;
my $startfrom = $query->param('startfrom');
my @and_or = $query->param('and_or');
my @excluding = $query->param('excluding');
my @operator = $query->param('operator');
- my @value = ($query->param('value_mainstr'), $query->param('value_main'), $query->param('value_any'));
+ my @value = ($query->param('value_mainstr')||undef, $query->param('value_main')||undef, $query->param('value_any')||undef, $query->param('value_match')||undef);
my $orderby = $query->param('orderby');
$resultsperpage = $query->param('resultsperpage');
SearchAuthorities( \@marclist, \@and_or, \@excluding, \@operator, \@value,
$startfrom * $resultsperpage,
$resultsperpage, $authtypecode, $orderby);
+
+ # If an authority heading is repeated, add an arrayref to those repetions
+ # First heading -- Second heading
+ for my $heading ( @$results ) {
+ my @repets = split / -- /, $heading->{summary};
+ if ( @repets > 1 ) {
+ my @repets_loop;
+ for (my $i = 0; $i < @repets; $i++) {
+ push @repets_loop,
+ { index => $index, repet => $i+1, value => $repets[$i] };
+ }
+ $heading->{repets} = \@repets_loop;
+ }
+ }
# multi page display gestion
my $displaynext = 0;
my $displayprev = $startfrom;
push @field_data, { term => "value_mainstr", val => $query->param('value_mainstr') || "" };
push @field_data, { term => "value_main", val => $query->param('value_main') || "" };
push @field_data, { term => "value_any", val => $query->param('value_any') || ""};
+ push @field_data, { term => "value_match", val => $query->param('value_match') || ""};
my @numbers = ();
}
( $template, $loggedinuser, $cookie ) = get_template_and_user(
{
- template_name => "authorities/searchresultlist-auth.tmpl",
+ template_name => "authorities/searchresultlist-auth.tt",
query => $query,
type => 'intranet',
authnotrequired => 0,
value_mainstr => $query->param('value_mainstr') || "",
value_main => $query->param('value_main') || "",
value_any => $query->param('value_any') || "",
+ value_match => $query->param('value_match') || "",
);
} else {
( $template, $loggedinuser, $cookie ) = get_template_and_user(
{
- template_name => "authorities/auth_finder.tmpl",
+ template_name => "authorities/auth_finder.tt",
query => $query,
type => 'intranet',
authnotrequired => 0,
}
$template->param(
+ value_mainstr => $query->param('value_mainstr') || "",
+ value_main => $query->param('value_main') || "",
+ value_any => $query->param('value_any') || "",
+ value_match => $query->param('value_match') || "",
tagid => $tagid,
index => $index,
authtypesloop => \@authtypesloop,
authtypecode => $authtypecode,
- value_mainstr => $query->param('value_mainstr') || "",
- value_main => $query->param('value_main') || "",
- value_any => $query->param('value_any') || "",
);
+$template->{VARS}->{source} = $query->param('source') || '';
+$template->{VARS}->{relationship} = $query->param('relationship') || '';
+
# Print the page
output_html_with_http_headers $query, $cookie, $template->output;