First step for working authorities
authordoxulting <doxulting>
Mon, 5 Jul 2004 13:29:35 +0000 (13:29 +0000)
committerdoxulting <doxulting>
Mon, 5 Jul 2004 13:29:35 +0000 (13:29 +0000)
authorities/blinddetail-biblio-search.pl [new file with mode: 0755]
authorities/detail-biblio-search.pl [new file with mode: 0755]
koha-tmpl/intranet-tmpl/default/en/authorities/blinddetail-biblio-search.tmpl [new file with mode: 0644]
koha-tmpl/intranet-tmpl/default/en/authorities/detail-biblio-search.tmpl [new file with mode: 0644]
koha-tmpl/intranet-tmpl/default/en/authorities/searchresultlist-auth.tmpl [new file with mode: 0644]
koha-tmpl/intranet-tmpl/default/en/authorities/searchresultlist.tmpl
koha-tmpl/intranet-tmpl/default/en/includes/auth-search-bottom.inc [new file with mode: 0644]
koha-tmpl/intranet-tmpl/default/en/includes/auth-search-top.inc [new file with mode: 0644]
koha-tmpl/intranet-tmpl/default/images/arrow.gif [new file with mode: 0644]

diff --git a/authorities/blinddetail-biblio-search.pl b/authorities/blinddetail-biblio-search.pl
new file mode 100755 (executable)
index 0000000..a9c3bc7
--- /dev/null
@@ -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 (executable)
index 0000000..5bfe762
--- /dev/null
@@ -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 (file)
index 0000000..07ff6ee
--- /dev/null
@@ -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 (file)
index 0000000..6d1eaf0
--- /dev/null
@@ -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 (file)
index 0000000..84559ac
--- /dev/null
@@ -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>
+
index 3444187..586db07 100644 (file)
@@ -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 -->
        </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 (file)
index 0000000..1b1b790
--- /dev/null
@@ -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 (file)
index 0000000..dbb5b3d
--- /dev/null
@@ -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 (file)
index 0000000..bea3720
Binary files /dev/null and b/koha-tmpl/intranet-tmpl/default/images/arrow.gif differ