From cbf218c28ed95e0c579cffff6dadf16e3821a180 Mon Sep 17 00:00:00 2001
From: doxulting <doxulting>
Date: Mon, 5 Jul 2004 13:29:35 +0000
Subject: [PATCH] First step for working authorities

---
 authorities/blinddetail-biblio-search.pl      | 184 ++++++++++++++++++
 authorities/detail-biblio-search.pl           | 184 ++++++++++++++++++
 .../blinddetail-biblio-search.tmpl            |  24 +++
 .../en/authorities/detail-biblio-search.tmpl  |  68 +++++++
 .../en/authorities/searchresultlist-auth.tmpl |  89 +++++++++
 .../en/authorities/searchresultlist.tmpl      |  10 +-
 .../en/includes/auth-search-bottom.inc        |  18 ++
 .../default/en/includes/auth-search-top.inc   |  70 +++++++
 .../intranet-tmpl/default/images/arrow.gif    | Bin 0 -> 1648 bytes
 9 files changed, 646 insertions(+), 1 deletion(-)
 create mode 100755 authorities/blinddetail-biblio-search.pl
 create mode 100755 authorities/detail-biblio-search.pl
 create mode 100644 koha-tmpl/intranet-tmpl/default/en/authorities/blinddetail-biblio-search.tmpl
 create mode 100644 koha-tmpl/intranet-tmpl/default/en/authorities/detail-biblio-search.tmpl
 create mode 100644 koha-tmpl/intranet-tmpl/default/en/authorities/searchresultlist-auth.tmpl
 create mode 100644 koha-tmpl/intranet-tmpl/default/en/includes/auth-search-bottom.inc
 create mode 100644 koha-tmpl/intranet-tmpl/default/en/includes/auth-search-top.inc
 create mode 100644 koha-tmpl/intranet-tmpl/default/images/arrow.gif

diff --git a/authorities/blinddetail-biblio-search.pl b/authorities/blinddetail-biblio-search.pl
new file mode 100755
index 0000000000..a9c3bc7181
--- /dev/null
+++ b/authorities/blinddetail-biblio-search.pl
@@ -0,0 +1,184 @@
+#!/usr/bin/perl
+
+# Copyright 2000-2002 Katipo Communications
+#
+# This file is part of Koha.
+#
+# Koha is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
+# 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
+
+=head1 NAME
+
+etail.pl : script to show an authority in MARC format
+
+=head1 SYNOPSIS
+
+
+=head1 DESCRIPTION
+
+This script needs an authid
+
+It shows the authority in a (nice) MARC format depending on authority MARC
+parameters tables.
+
+=head1 FUNCTIONS
+
+=over 2
+
+=cut
+
+
+use strict;
+require Exporter;
+use C4::AuthoritiesMarc;
+use C4::Auth;
+use C4::Context;
+use C4::Output;
+use C4::Interface::CGI::Output;
+use CGI;
+use C4::Search;
+use MARC::Record;
+use C4::Koha;
+# use C4::Biblio;
+# use C4::Catalogue;
+use HTML::Template;
+
+my $query=new CGI;
+
+my $dbh=C4::Context->dbh;
+
+my $authid = $query->param('authid');
+my $index = $query->param('index');
+my $authtypecode = &AUTHfind_authtypecode($dbh,$authid);
+my $tagslib = &AUTHgettagslib($dbh,1,$authtypecode);
+
+my $record =AUTHgetauthority($dbh,$authid);
+# open template
+my ($template, $loggedinuser, $cookie)
+		= get_template_and_user({template_name => "authorities/blinddetail-biblio-search.tmpl",
+			     query => $query,
+			     type => "intranet",
+			     authnotrequired => 0,
+			     flagsrequired => {catalogue => 1},
+			     debug => 1,
+			     });
+
+# fill arrays
+my @loop_data =();
+my $tag;
+# loop through each tab 0 through 9
+# for (my $tabloop = 0; $tabloop<=10;$tabloop++) {
+# loop through each tag
+	my @fields = $record->fields();
+	my @loop_data =();
+	foreach my $field (@fields) {
+			my @subfields_data;
+		# if tag <10, there's no subfield, use the "@" trick
+		if ($field->tag()<10) {
+# 			next if ($tagslib->{$field->tag()}->{'@'}->{tab}  ne $tabloop);
+			next if ($tagslib->{$field->tag()}->{'@'}->{hidden});
+			my %subfield_data;
+			$subfield_data{marc_lib}=$tagslib->{$field->tag()}->{'@'}->{lib};
+			$subfield_data{marc_value}=$field->data();
+			$subfield_data{marc_subfield}='@';
+			$subfield_data{marc_tag}=$field->tag();
+			push(@subfields_data, \%subfield_data);
+		} else {
+			my @subf=$field->subfields;
+	# loop through each subfield
+			for my $i (0..$#subf) {
+				$subf[$i][0] = "@" unless $subf[$i][0];
+# 				next if ($tagslib->{$field->tag()}->{$subf[$i][0]}->{tab}  ne $tabloop);
+				next if ($tagslib->{$field->tag()}->{$subf[$i][0]}->{hidden});
+				my %subfield_data;
+				$subfield_data{marc_lib}=$tagslib->{$field->tag()}->{$subf[$i][0]}->{lib};
+				if ($tagslib->{$field->tag()}->{$subf[$i][0]}->{isurl}) {
+					$subfield_data{marc_value}="<a href=\"$subf[$i][1]\">$subf[$i][1]</a>";
+				} else {
+					$subfield_data{marc_value}=$subf[$i][1];
+				}
+				$subfield_data{marc_subfield}=$subf[$i][0];
+				$subfield_data{marc_tag}=$field->tag();
+				push(@subfields_data, \%subfield_data);
+			}
+		}
+		if ($#subfields_data>=0) {
+			my %tag_data;
+			$tag_data{tag}=$field->tag().' -'. $tagslib->{$field->tag()}->{lib};
+			$tag_data{subfield} = \@subfields_data;
+			push (@loop_data, \%tag_data);
+		}
+	}
+	$template->param("0XX" =>\@loop_data);
+# }
+# now, build item tab !
+# the main difference is that datas are in lines and not in columns : thus, we build the <th> first, then the values...
+# loop through each tag
+# warning : we may have differents number of columns in each row. Thus, we first build a hash, complete it if necessary
+# then construct template.
+# my @fields = $record->fields();
+# my %witness; #---- stores the list of subfields used at least once, with the "meaning" of the code
+# my @big_array;
+# foreach my $field (@fields) {
+# 	next if ($field->tag()<10);
+# 	my @subf=$field->subfields;
+# 	my %this_row;
+# # loop through each subfield
+# 	for my $i (0..$#subf) {
+# 		next if ($tagslib->{$field->tag()}->{$subf[$i][0]}->{tab}  ne 10);
+# 		$witness{$subf[$i][0]} = $tagslib->{$field->tag()}->{$subf[$i][0]}->{lib};
+# 		$this_row{$subf[$i][0]} =$subf[$i][1];
+# 	}
+# 	if (%this_row) {
+# 		push(@big_array, \%this_row);
+# 	}
+# }
+# #fill big_row with missing datas
+# foreach my $subfield_code  (keys(%witness)) {
+# 	for (my $i=0;$i<=$#big_array;$i++) {
+# 		$big_array[$i]{$subfield_code}="&nbsp;" unless ($big_array[$i]{$subfield_code});
+# 	}
+# }
+# # now, construct template !
+# my @item_value_loop;
+# my @header_value_loop;
+# for (my $i=0;$i<=$#big_array; $i++) {
+# 	my $items_data;
+# 	foreach my $subfield_code (keys(%witness)) {
+# 		$items_data .="<td>".$big_array[$i]{$subfield_code}."</td>";
+# 	}
+# 	my %row_data;
+# 	$row_data{item_value} = $items_data;
+# 	push(@item_value_loop,\%row_data);
+# }
+# foreach my $subfield_code (keys(%witness)) {
+# 	my %header_value;
+# 	$header_value{header_value} = $witness{$subfield_code};
+# 	push(@header_value_loop, \%header_value);
+# }
+
+my $authtypes = getauthtypes;
+my @authtypesloop;
+foreach my $thisauthtype (keys %$authtypes) {
+	my $selected = 1 if $thisauthtype eq $authtypecode;
+	my %row =(value => $thisauthtype,
+				selected => $selected,
+				authtypetext => $authtypes->{$thisauthtype}{'authtypetext'},
+			);
+	push @authtypesloop, \%row;
+}
+
+$template->param(authid => $authid,
+				authtypesloop => \@authtypesloop, index => $index);
+output_html_with_http_headers $query, $cookie, $template->output;
+
diff --git a/authorities/detail-biblio-search.pl b/authorities/detail-biblio-search.pl
new file mode 100755
index 0000000000..5bfe7620a0
--- /dev/null
+++ b/authorities/detail-biblio-search.pl
@@ -0,0 +1,184 @@
+#!/usr/bin/perl
+
+# Copyright 2000-2002 Katipo Communications
+#
+# This file is part of Koha.
+#
+# Koha is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
+# 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
+
+=head1 NAME
+
+etail.pl : script to show an authority in MARC format
+
+=head1 SYNOPSIS
+
+
+=head1 DESCRIPTION
+
+This script needs an authid
+
+It shows the authority in a (nice) MARC format depending on authority MARC
+parameters tables.
+
+=head1 FUNCTIONS
+
+=over 2
+
+=cut
+
+
+use strict;
+require Exporter;
+use C4::AuthoritiesMarc;
+use C4::Auth;
+use C4::Context;
+use C4::Output;
+use C4::Interface::CGI::Output;
+use CGI;
+use C4::Search;
+use MARC::Record;
+use C4::Koha;
+# use C4::Biblio;
+# use C4::Catalogue;
+use HTML::Template;
+
+my $query=new CGI;
+
+my $dbh=C4::Context->dbh;
+
+my $authid = $query->param('authid');
+my $index = $query->param('index');
+my $authtypecode = &AUTHfind_authtypecode($dbh,$authid);
+my $tagslib = &AUTHgettagslib($dbh,1,$authtypecode);
+
+my $record =AUTHgetauthority($dbh,$authid);
+# open template
+my ($template, $loggedinuser, $cookie)
+		= get_template_and_user({template_name => "authorities/detail-biblio-search.tmpl",
+			     query => $query,
+			     type => "intranet",
+			     authnotrequired => 0,
+			     flagsrequired => {catalogue => 1},
+			     debug => 1,
+			     });
+
+# fill arrays
+my @loop_data =();
+my $tag;
+# loop through each tab 0 through 9
+# for (my $tabloop = 0; $tabloop<=10;$tabloop++) {
+# loop through each tag
+	my @fields = $record->fields();
+	my @loop_data =();
+	foreach my $field (@fields) {
+			my @subfields_data;
+		# if tag <10, there's no subfield, use the "@" trick
+		if ($field->tag()<10) {
+# 			next if ($tagslib->{$field->tag()}->{'@'}->{tab}  ne $tabloop);
+			next if ($tagslib->{$field->tag()}->{'@'}->{hidden});
+			my %subfield_data;
+			$subfield_data{marc_lib}=$tagslib->{$field->tag()}->{'@'}->{lib};
+			$subfield_data{marc_value}=$field->data();
+			$subfield_data{marc_subfield}='@';
+			$subfield_data{marc_tag}=$field->tag();
+			push(@subfields_data, \%subfield_data);
+		} else {
+			my @subf=$field->subfields;
+	# loop through each subfield
+			for my $i (0..$#subf) {
+				$subf[$i][0] = "@" unless $subf[$i][0];
+# 				next if ($tagslib->{$field->tag()}->{$subf[$i][0]}->{tab}  ne $tabloop);
+				next if ($tagslib->{$field->tag()}->{$subf[$i][0]}->{hidden});
+				my %subfield_data;
+				$subfield_data{marc_lib}=$tagslib->{$field->tag()}->{$subf[$i][0]}->{lib};
+				if ($tagslib->{$field->tag()}->{$subf[$i][0]}->{isurl}) {
+					$subfield_data{marc_value}="<a href=\"$subf[$i][1]\">$subf[$i][1]</a>";
+				} else {
+					$subfield_data{marc_value}=$subf[$i][1];
+				}
+				$subfield_data{marc_subfield}=$subf[$i][0];
+				$subfield_data{marc_tag}=$field->tag();
+				push(@subfields_data, \%subfield_data);
+			}
+		}
+		if ($#subfields_data>=0) {
+			my %tag_data;
+			$tag_data{tag}=$field->tag().' -'. $tagslib->{$field->tag()}->{lib};
+			$tag_data{subfield} = \@subfields_data;
+			push (@loop_data, \%tag_data);
+		}
+	}
+	$template->param("0XX" =>\@loop_data);
+# }
+# now, build item tab !
+# the main difference is that datas are in lines and not in columns : thus, we build the <th> first, then the values...
+# loop through each tag
+# warning : we may have differents number of columns in each row. Thus, we first build a hash, complete it if necessary
+# then construct template.
+# my @fields = $record->fields();
+# my %witness; #---- stores the list of subfields used at least once, with the "meaning" of the code
+# my @big_array;
+# foreach my $field (@fields) {
+# 	next if ($field->tag()<10);
+# 	my @subf=$field->subfields;
+# 	my %this_row;
+# # loop through each subfield
+# 	for my $i (0..$#subf) {
+# 		next if ($tagslib->{$field->tag()}->{$subf[$i][0]}->{tab}  ne 10);
+# 		$witness{$subf[$i][0]} = $tagslib->{$field->tag()}->{$subf[$i][0]}->{lib};
+# 		$this_row{$subf[$i][0]} =$subf[$i][1];
+# 	}
+# 	if (%this_row) {
+# 		push(@big_array, \%this_row);
+# 	}
+# }
+# #fill big_row with missing datas
+# foreach my $subfield_code  (keys(%witness)) {
+# 	for (my $i=0;$i<=$#big_array;$i++) {
+# 		$big_array[$i]{$subfield_code}="&nbsp;" unless ($big_array[$i]{$subfield_code});
+# 	}
+# }
+# # now, construct template !
+# my @item_value_loop;
+# my @header_value_loop;
+# for (my $i=0;$i<=$#big_array; $i++) {
+# 	my $items_data;
+# 	foreach my $subfield_code (keys(%witness)) {
+# 		$items_data .="<td>".$big_array[$i]{$subfield_code}."</td>";
+# 	}
+# 	my %row_data;
+# 	$row_data{item_value} = $items_data;
+# 	push(@item_value_loop,\%row_data);
+# }
+# foreach my $subfield_code (keys(%witness)) {
+# 	my %header_value;
+# 	$header_value{header_value} = $witness{$subfield_code};
+# 	push(@header_value_loop, \%header_value);
+# }
+
+my $authtypes = getauthtypes;
+my @authtypesloop;
+foreach my $thisauthtype (keys %$authtypes) {
+	my $selected = 1 if $thisauthtype eq $authtypecode;
+	my %row =(value => $thisauthtype,
+				selected => $selected,
+				authtypetext => $authtypes->{$thisauthtype}{'authtypetext'},
+			);
+	push @authtypesloop, \%row;
+}
+
+$template->param(authid => $authid,
+				authtypesloop => \@authtypesloop, index => $index);
+output_html_with_http_headers $query, $cookie, $template->output;
+
diff --git a/koha-tmpl/intranet-tmpl/default/en/authorities/blinddetail-biblio-search.tmpl b/koha-tmpl/intranet-tmpl/default/en/authorities/blinddetail-biblio-search.tmpl
new file mode 100644
index 0000000000..07ff6ee062
--- /dev/null
+++ b/koha-tmpl/intranet-tmpl/default/en/authorities/blinddetail-biblio-search.tmpl
@@ -0,0 +1,24 @@
+<html>
+<body>
+<script language="JavaScript" type="text/javascript">
+
+function go()
+{
+var val = 0;
+	opener.opener.document.f.field_value[<!-- TMPL_VAR name="index" --> - 2].value = <!-- TMPL_VAR name="authid" -->;
+	<!-- TMPL_LOOP name="0XX" -->
+		<!-- TMPL_LOOP name="subfield" -->
+	opener.opener.document.f.field_value[<!-- TMPL_VAR name="index" --> + val].value = '<!-- TMPL_VAR name="marc_value" -->';
+	val += 1;
+		<!-- /TMPL_LOOP -->
+	<!-- /TMPL_LOOP -->
+	opener.close();
+	self.close();
+	return false;
+}
+</script>
+<script>
+window.onload = go();
+</script>
+</body>
+</html>
diff --git a/koha-tmpl/intranet-tmpl/default/en/authorities/detail-biblio-search.tmpl b/koha-tmpl/intranet-tmpl/default/en/authorities/detail-biblio-search.tmpl
new file mode 100644
index 0000000000..6d1eaf0072
--- /dev/null
+++ b/koha-tmpl/intranet-tmpl/default/en/authorities/detail-biblio-search.tmpl
@@ -0,0 +1,68 @@
+<!-- TMPL_INCLUDE NAME="auth-top.inc" -->
+<link rel="stylesheet" type="text/css" href="<!-- TMPL_VAR name="themelang" -->/includes/marc-editor.css">
+<div class="tabbed">
+	<h1 class="authority">Authority number : <!-- TMPL_VAR name="authid" --></h1>
+	<a href="authorities.pl?authid=<!-- TMPL_VAR name="authid" -->">
+		<img border="0" src="<!-- TMPL_VAR name="interface" -->/<!-- TMPL_VAR name="theme" -->/images/fileopen.png">
+	</a>
+	<a href="javascript:confirm_deletion()">
+		<img border="0" src="<!-- TMPL_VAR name="interface" -->/<!-- TMPL_VAR name="theme" -->/images/edittrash.png">
+	</a>
+	<a href="javascript:Dopop('detailprint.pl?authid=<!-- TMPL_VAR name="authid" -->&index=<!-- TMPL_VAR name="index" -->')" class="button authority">
+		Print
+	</a>
+	<a href="javascript:CopyValues()">	<img border="0" src="<!-- TMPL_VAR name="interface" -->/<!-- TMPL_VAR name="theme" -->/images/arrow.gif" height=45 width=45 ">
+
+	</a>
+</div>
+<br><br><br>
+<div name="0XX" id="0XX" class="tab" style="visibility:visible">
+	<!-- TMPL_LOOP name="0XX" -->
+			<p class="MARCtag">
+				<!-- TMPL_VAR name="tag" -->
+			</p>
+		<!-- TMPL_LOOP name="subfield" -->
+			<p>
+				<label class="labelsubfield">
+				<a href="search.marc/search.pl?op=do_search&marclist=<!-- TMPL_VAR name="marc_tag" --><!-- TMPL_VAR name="marc_subfield" -->&operator=&#x003D&type=intranet&value=<!-- TMPL_VAR name="marc_value" ESCAPE=URL -->">
+					<img border="0" src="<!-- TMPL_VAR name="interface" -->/<!-- TMPL_VAR name="theme" -->/images/filefind.png" height=15>
+				</a>
+				<!-- TMPL_VAR name="marc_subfield" -->
+				<!-- TMPL_VAR name="marc_lib" --></label>
+				<!-- TMPL_VAR name="marc_value" -->
+			</p>
+		<!-- /TMPL_LOOP -->
+	<!-- /TMPL_LOOP -->
+</div>
+	
+<script language="JavaScript" type="text/javascript">
+
+function confirm_deletion() {
+	var is_confirmed = confirm('Are you sure you want to delete this biblio?');
+	if (is_confirmed) {
+		window.location="acqui.simple/addbiblio.pl?op=delete&bibid=<!-- TMPL_VAR name="bibid" -->";
+	}
+}
+function Dopop(link) {
+	newin=window.open(link,'width=500,height=400,toolbar=false,scrollbars=yes');
+}
+
+function CopyValues()
+{
+var val = 0;
+
+	opener.opener.document.f.field_value[<!-- TMPL_VAR name="index" --> - 2].value = '<!-- TMPL_VAR name="authid" -->';
+	<!-- TMPL_LOOP name="0XX" -->
+		<!-- TMPL_LOOP name="subfield" -->
+	opener.opener.document.f.field_value[<!-- TMPL_VAR name="index" --> + val].value = '<!-- TMPL_VAR name="marc_value" -->';
+	val += 1;
+		<!-- /TMPL_LOOP -->
+	<!-- /TMPL_LOOP -->
+	opener.close();
+	self.close();
+	return false;
+}
+
+</script>
+</body>
+</html>
diff --git a/koha-tmpl/intranet-tmpl/default/en/authorities/searchresultlist-auth.tmpl b/koha-tmpl/intranet-tmpl/default/en/authorities/searchresultlist-auth.tmpl
new file mode 100644
index 0000000000..84559ac6c4
--- /dev/null
+++ b/koha-tmpl/intranet-tmpl/default/en/authorities/searchresultlist-auth.tmpl
@@ -0,0 +1,89 @@
+<!-- TMPL_INCLUDE NAME="auth-search-top.inc" -->
+<div id="mainbloc">
+	<h1 class="authority">Authority search results</h1>
+	<div id="resultnumber">
+		<p>
+			<!-- TMPL_IF NAME=displayprev -->
+				<a href=search.pl?startfrom=<!-- TMPL_VAR NAME="startfromprev" -->&<!-- TMPL_LOOP NAME=searchdata --><!-- TMPL_VAR NAME="term" -->=<!-- TMPL_VAR name="val" ESCAPE=URL -->&<!-- /TMPL_LOOP -->resultsperpage=<!-- TMPL_VAR NAME="resultsperpage" -->&type=intranet&op=do_search>
+					<img src="/intranet-tmpl/default/images/numbers/prev.gif" border=0>
+				</a>
+			<!-- /TMPL_IF -->
+			<!-- TMPL_LOOP NAME=numbers -->
+				<!-- TMPL_IF NAME=highlight -->
+					<img src="/intranet-tmpl/default/images/numbers/<!-- TMPL_VAR NAME=number -->-highlight.gif">
+				<!-- TMPL_ELSE -->
+					<a href=search.pl?startfrom=<!-- TMPL_VAR NAME=startfrom -->&<!-- TMPL_LOOP NAME=searchdata --><!-- TMPL_VAR NAME="term" -->=<!-- TMPL_VAR name="val" ESCAPE=URL -->&<!-- /TMPL_LOOP -->resultsperpage=<!-- TMPL_VAR NAME="resultsperpage" -->&type=intranet&op=do_search><img src="/intranet-tmpl/default/images/numbers/<!-- TMPL_VAR NAME=number -->.gif" border=0></a>
+				<!-- /TMPL_IF -->
+			<!-- /TMPL_LOOP -->			<!-- TMPL_IF NAME=displaynext -->
+				<a href=search.pl?startfrom=<!-- TMPL_VAR NAME="startfromnext" -->&<!-- TMPL_LOOP NAME=searchdata --><!-- TMPL_VAR NAME="term" -->=<!-- TMPL_VAR name="val" ESCAPE=URL -->&<!-- /TMPL_LOOP -->&resultsperpage=<!-- TMPL_VAR NAME="resultsperpage" -->&type=intranet&op=do_search><img src="/intranet-tmpl/default/images/numbers/next.gif" border=0></a>
+				<!-- /TMPL_IF -->
+		</p>
+		<p>
+			<!-- TMPL_IF name=total -->
+			&nbsp<b>Results <!-- TMPL_VAR name="from" --> to <!-- TMPL_VAR name="to" --> of <!-- TMPL_VAR name="total" --></b><br><br>
+			<!-- TMPL_ELSE -->
+			&nbsp No results found.<br>
+			<!-- /TMPL_IF -->
+		</p>
+	</div>
+	<div id="resultlist">
+		<table>
+			<tr>
+				<th class="authority">Summary</th>
+				<th class="authority">Used</th>
+				<th class="authority">View</th>
+				<th class="authority">Delete</th>
+				<th class="authority">Get It!</th>
+			</tr>
+			<!-- TMPL_LOOP name="result" -->
+				<tr>
+					<td><!-- TMPL_VAR name="summary" --></td>
+					<td><!-- TMPL_VAR name="used" --> <a href="../search.marc/search.pl?type=intranet&op=do_search&marclist=<!-- TMPL_VAR name="biblio_fields" -->&operator==&value=<!-- TMPL_VAR name="authid" -->&and_or=&excluding=">...</a></td>
+					<td>
+						<a href="javascript:jumpfull('detail-biblio-search.pl?authid=<!-- TMPL_VAR name="authid" -->&index=<!-- TMPL_VAR name="index" -->')">
+							<img src="<!-- TMPL_VAR NAME="interface" -->/<!-- TMPL_VAR name="theme" -->/images/fileopen.png"  width="32" hspace="0" vspace="0" border="0" alt="Authority number <!-- TMPL_VAR name="authid" -->" title="Authority number<!-- TMPL_VAR name="authid" -->">
+						</a>
+					</td>
+					<td>
+						<!-- TMPL_UNLESS name="used" -->
+						<a href="authorities-home.pl?op=delete&authid=<!-- TMPL_VAR name="authid" -->">
+							<img src="<!-- TMPL_VAR NAME="interface" -->/<!-- TMPL_VAR name="theme" -->/images/edittrash.png" width="32" hspace="0" vspace="0" border="0">
+						</a>
+						<!-- /TMPL_UNLESS -->
+					</td>
+					<td>
+			<a href="javascript:jumpfull('blinddetail-biblio-search.pl?authid=<!-- TMPL_VAR name="authid" -->&index=<!-- TMPL_VAR name="index" -->')"><img src="<!-- TMPL_VAR NAME="interface" -->/<!-- TMPL_VAR name="theme" -->/images/arrow.gif" width="32" hspace="0" vspace="0" border="0"></a>
+					</td>
+				</tr>
+			<!-- /TMPL_LOOP -->
+		</table>
+
+	</div>
+	<div id="resultnumber">
+		<p>
+			<!-- TMPL_IF NAME=displayprev -->
+			<a href=search.pl?startfrom=<!-- TMPL_VAR NAME="startfromprev" -->&<!-- TMPL_LOOP NAME=searchdata --><!-- TMPL_VAR NAME="term" -->=<!-- TMPL_VAR name="val" ESCAPE=URL -->&<!-- /TMPL_LOOP -->resultsperpage=<!-- TMPL_VAR NAME="resultsperpage" -->&type=intranet&op=do_search><img src="/intranet-tmpl/default/images/numbers/prev.gif" border=0></a>
+			<!-- /TMPL_IF -->
+			<!-- TMPL_LOOP NAME=numbers -->
+				<!-- TMPL_IF NAME=highlight -->
+				<img src="/intranet-tmpl/default/images/numbers/<!-- TMPL_VAR NAME=number -->-highlight.gif">
+				<!-- TMPL_ELSE -->
+				<a href=search.pl?startfrom=<!-- TMPL_VAR NAME=startfrom -->&<!-- TMPL_LOOP NAME=searchdata --><!-- TMPL_VAR NAME="term" -->=<!-- TMPL_VAR name="val" ESCAPE=URL -->&<!-- /TMPL_LOOP -->resultsperpage=<!-- TMPL_VAR NAME="resultsperpage" -->&type=intranet&op=do_search><img src="/intranet-tmpl/default/images/numbers/<!-- TMPL_VAR NAME=number -->.gif" border=0></a>
+				<!-- /TMPL_IF -->
+			<!-- /TMPL_LOOP -->
+			<!-- TMPL_IF NAME=displaynext -->
+			<a href=search.pl?startfrom=<!-- TMPL_VAR NAME="startfromnext" -->&<!-- TMPL_LOOP NAME=searchdata --><!-- TMPL_VAR NAME="term" -->=<!-- TMPL_VAR name="val" ESCAPE=URL -->&<!-- /TMPL_LOOP -->&resultsperpage=<!-- TMPL_VAR NAME="resultsperpage" -->&type=intranet&op=do_search><img src="/intranet-tmpl/default/images/numbers/next.gif" border=0></a>
+				<!-- /TMPL_IF -->
+		</p>
+	</div>	
+</div>
+
+
+<script language="JavaScript" type="text/javascript">
+
+function jumpfull(page)
+{	
+	window.open(page,'','fullscreen,scrollbars');
+}
+</script>
+
diff --git a/koha-tmpl/intranet-tmpl/default/en/authorities/searchresultlist.tmpl b/koha-tmpl/intranet-tmpl/default/en/authorities/searchresultlist.tmpl
index 3444187313..586db076e0 100644
--- a/koha-tmpl/intranet-tmpl/default/en/authorities/searchresultlist.tmpl
+++ b/koha-tmpl/intranet-tmpl/default/en/authorities/searchresultlist.tmpl
@@ -46,7 +46,7 @@
 					</td>
 					<td>
 						<!-- TMPL_UNLESS name="used" -->
-						<a href="authorities-home.pl?op=delete&authid=<!-- TMPL_VAR name="authid" -->">
+						<a href="javascript:do_delete('authorities-home.pl?op=delete&authid=<!-- TMPL_VAR name="authid" -->')">
 							<img src="<!-- TMPL_VAR NAME="interface" -->/<!-- TMPL_VAR name="theme" -->/images/edittrash.png" width="32" hspace="0" vspace="0" border="0">
 						</a>
 						<!-- /TMPL_UNLESS -->
@@ -74,3 +74,11 @@
 	</div>	
 </div>
 <!-- TMPL_INCLUDE NAME="auth-bottom.inc" -->
+
+
+<script language="JavaScript" type="text/javascript" >
+function do_delete(page)
+{
+window.location = page;
+}
+</script>
\ No newline at end of file
diff --git a/koha-tmpl/intranet-tmpl/default/en/includes/auth-search-bottom.inc b/koha-tmpl/intranet-tmpl/default/en/includes/auth-search-bottom.inc
new file mode 100644
index 0000000000..1b1b790fef
--- /dev/null
+++ b/koha-tmpl/intranet-tmpl/default/en/includes/auth-search-bottom.inc
@@ -0,0 +1,18 @@
+<br clear="all">
+<p> &nbsp; </p>
+
+<div class="center">
+<a href="/cgi-bin/koha/mainpage.pl">Home</a> ||
+<a href="/cgi-bin/koha/loadmodules.pl?module=search&amp;type=intranet">Catalogue</a> ||
+<a href="/cgi-bin/koha/members/members-home.pl">Members</a> ||
+<a href="/cgi-bin/koha/loadmodules.pl?module=acquisitions">Acquisitions</a> ||
+<a href="/cgi-bin/koha/circ/circulation.pl">Circulation</a> ||
+<a href="/cgi-bin/koha/authorities/authorities-home.pl">Authorities</a> ||
+<a href="/cgi-bin/koha/reports-home.pl">Reports</a> ||
+<a href="/cgi-bin/koha/admin-home.pl">Parameters</a> ||
+<a href="/cgi-bin/koha/about.pl">About</a> || 
+Help
+</div>
+
+</body>
+</html>
diff --git a/koha-tmpl/intranet-tmpl/default/en/includes/auth-search-top.inc b/koha-tmpl/intranet-tmpl/default/en/includes/auth-search-top.inc
new file mode 100644
index 0000000000..dbb5b3d1e1
--- /dev/null
+++ b/koha-tmpl/intranet-tmpl/default/en/includes/auth-search-top.inc
@@ -0,0 +1,70 @@
+<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
+
+<html>
+<head>
+<title>KOHA: INTRANET: Authorities</title>
+<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
+
+<script language="JavaScript">
+<!-- Hide from old browsers
+function openWindow(targeturl, windowname) {
+newwin =
+window.open(targeturl,windowname,"height=480,width=640,scrollbars,resizable")
+}
+// end hiding -->
+</script>
+
+<script language="JavaScript" type="text/javascript">
+function Help() {
+	newin=window.open("/cgi-bin/koha/help.pl","Koha Help",'width=600,height=600,toolbar=false,scrollbars=yes');
+}
+
+function addauthority() {
+	X = document.forms[0].authtype.value;
+	window.location="/cgi-bin/koha/authorities/authorities.pl?authtypecode="+X;
+}
+</script>
+
+<link rel="stylesheet" type="text/css" href="<!-- TMPL_VAR name="themelang" -->/includes/common-style.css">
+<style type="text/css">
+.authority {
+	background-color: #6b7cbe;
+	color:#FFFFFF;
+	text-decoration: normal;
+	font-weight: bold;
+	background-image:none;
+	}
+a.authority:hover {
+	background-color: #6b7cbe;
+	color: #FFFFFF;
+	text-decoration: normal;
+	font-weight: bold;
+	}
+</style>
+</head>
+
+<body>
+<!-- MENUS -->
+<!-- TMPL_IF NAME="loggedinusername" -->
+    <p align="left">Logged in as: <!-- TMPL_VAR NAME="loggedinusername" --> [<a href="/cgi-bin/koha/mainpage.pl?logout.x=1">Log Out</a>]</p>
+<!-- TMPL_ELSE -->
+    <p align="left"><a href="/cgi-bin/koha/opac-user.pl">Log In</a> to Koha</p>
+<!-- /TMPL_IF -->
+<a href="
+javascript:(
+  function(){
+     var newSS;
+     newSS=document.getElementById('codepoetry-debug-stylesheet');
+     if(newSS){
+        newSS.href=null;
+        document.documentElement.childNodes[0].removeChild(newSS);
+      } else {
+        newSS=document.createElement('link');
+        newSS.rel='stylesheet';
+        newSS.type='text/css';
+        newSS.href='http://www.codepoetry.net/stuff/css-debug-2.css';
+        newSS.id='codepoetry-debug-stylesheet';
+        document.documentElement.childNodes[0].appendChild(newSS);
+      }
+   }
+)()">TOGGLE CSS</a>
\ No newline at end of file
diff --git a/koha-tmpl/intranet-tmpl/default/images/arrow.gif b/koha-tmpl/intranet-tmpl/default/images/arrow.gif
new file mode 100644
index 0000000000000000000000000000000000000000..bea37201cee82356fbb78356fc87e2d18176061a
GIT binary patch
literal 1648
zcmb7?dpOg39LImZ&5UqtMn;=tN{TY(7Ne!mjVLOS$o*2*aH{2;ZjM`{?I0y4N1H6<
zvS^AFNi6M<vdk@ETPs9Lr*`J)q`%MW^Uvpb-tW)*`9AOGD}N~;0ub9=x4Hr#2m<bk
z0pza$7eGZ>8LkXdfy3ddswzv=wKde$)YSE~P@39U{pAK&eGJCXc%6x%kr@tyS#4`-
zW`QRV2+K|EiFTHb>#PWt3n8GYs;au0I$A>mZMg!o!t#G3zYic)fIuJ-3L*gr5`-c_
zc?*C6KmY<=c<v&~aHx_B1h$}BApj5x1z|9_67;*i;8ubmmEl?|NM0yyBm5a1To9RF
zHS8UHO<=jHS#hMV2vbBZ<|!7a5(t4QE3{Qeg$4nYARz3A0fa!2N?I%MB$y=%XSK;I
zh%6TZ>WX^^5{d+zfu?5&1mXl;mTv1lr(E@yaUn@BwO@i3M-`Q`L$?ra=9*mK^6g>4
zCP_owu$mho)K|+ebM@Bcdd63QrTbC`BTgzIFCJ55EOLTjvlI22ey#Jkd7NXjYjBuJ
z9P3?zZBqUqQ%5`bV_*9zul81U>E~pR?wH-L9^UyQ?@s;P@3n;W`R=@d38p(Pv(Q!(
zk!A0=p**&*m$vHR)XS*@oF~nF6-5c-9yWS|_jYfi+Kx`)=<`WAH+?0XEdIk!)tx7^
z1@5JWKgp6}i3Y{DIy`v}Er%L)<Kx~)YTG@^#Nio*aibY0DV<e3y?|vxzmJR;&~^%o
zFl(Jxdqj($A3&@0ZG#r1a`gAPy~DW8+$765k)5A+1ne7`5+|+A1Wy0t>_s6hrLV3z
zPz?_|)P8?xdDoZOJ$JNwWD`zS&Ig^+KB#Qg@hsu6IN@;8+Ji)k;u48qZJ$`TEsB>o
zxJ$@WF^POk1!3`pu2h>{iv=POTN0C_bcrjyT_`J^8^hVm$zpzhfO6*2)L7PRS7ju{
zz`jh=(+R6l6h%9jS$Fp;9YvZ!2dwdsYT~X~GX&pCIzl!<7E!m3OHa2Sj_U}a@o{4o
zRm5R#xNq9AuLm49T+TageZC^(Gj+*RDR;aE;hIqlp9zhRoK49d{U&RYgw<_aZ1it7
zZ})TmvWROdyI3MEhl^x65XkgNE$E<nM<cCdylO!@%eQ&ES*2Yx+TZg&EKR1~Ym5IS
zkmuO$V{vGJBH{^p3bz-O_esM<=(=?&f*Gf-?)YpuP;65-VZp=e(;N$A&m)<#xm>?g
zmG9u@8@$}uG4HeOe!UFF?EEx4<2Bl}!<>Bl!<G4&%oxsZtQUI&tujgquRS%sTDTqk
zTf@;VSw4$sX1#`itTp$9@w&|$O-VQMj?@$6K&n_$#Ag^0CMNB=sjcHJYeYJSbLBwk
z>#Ma_qV|qcF<6tl`4eBYkK^YgIhBmjmc3KYpWWL0(lBJ_bi{+(BbGn9c<AG!p<~9i
zx@);w=s#|df!aXpi0X~S@1wjc@2Qrk_55i^SMzuqGXV~jhBWQD=ZwlilcmDFHKM@C
zTjD;klofZm#x7OZ&sf4->epM)KM;;u=l{Vvvx`sSrd>~)@*B~9Yxv~_reTs>XB5u$
z9{%*?MdN;#^4#r@D$8Y9VRgZHt3!&erchH9oX6^Juo<P0hbvv3*LLg>KZ%Al+67%8
zaO;6%|8U6qG?$d<o$Ru}gwWFee(u@p!o-_0<BvqlxtgH4r*OWA=p<pCVm`t)(MF`R
zW}JSvH$I665~H^^42+b#Cl218OgU^%)UKB<E!f6hzjA7K1)W<H-si)k$#P5eMlo+3
z2HO~S{Cz4@m>r$`OEOatmUkuj%&kYDq{KJ2=tpfx`gxtN<6%ps$(wVKP}Bfrh`c-j
zTjiZ(et2w*onfS_k?Sv>jx1B6VM>mEU1Iv$?M6V`bY0e699RG7F2AuD7VV9o;Y3A7
zre^yVyY<-NBTcw-#__MJho8;g4-_}#?D1|TpE>>5-~ni`zl*`m?8e`iemx!6n=3LQ
no1Ufb+4vJu`nHHr^r={<R123_7MpoHEx+QEVgC;UN#6G_Df_-W

literal 0
HcmV?d00001

-- 
2.39.5