[Koha-cvs] koha/authorities auth_linker.pl blinddetail-lin...

[Henri-Damien LAURENT]

CVSROOT:        /cvsroot/koha
Module name:    koha
Changes by:     Henri-Damien LAURENT <hdl>      07/04/06 14:47:50

Removed files:
        authorities    : auth_linker.pl blinddetail-linker.pl 

Log message:
        Deleting Link related scripts

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/authorities/auth_linker.pl?cvsroot=koha&r1=1.3&r2=0
http://cvs.savannah.gnu.org/viewcvs/koha/authorities/blinddetail-linker.pl?cvsroot=koha&r1=1.4&r2=0

Patches:
Index: auth_linker.pl
===================================================================
RCS file: auth_linker.pl
diff -N auth_linker.pl
--- auth_linker.pl      9 Mar 2007 14:31:17 -0000       1.3
+++ /dev/null   1 Jan 1970 00:00:00 -0000
@@ -1,167 +0,0 @@
-#!/usr/bin/perl
-# WARNING: 4-character tab stops here
-
-# 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
-
-use strict;
-require Exporter;
-use CGI;
-use C4::Auth;
-
-use C4::Context;
-use C4::Auth;
-use C4::Output;
-use C4::Interface::CGI::Output;
-use C4::AuthoritiesMarc;
-#use C4::Biblio;
-use C4::Acquisition;
-use C4::Koha; # XXX subfield_is_koha_internal_p
-
-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 $resultstring = $query->param('result');
-my $dbh = C4::Context->dbh;
-
-my $startfrom=$query->param('startfrom');
-$startfrom=0 if(!defined $startfrom);
-my ($template, $loggedinuser, $cookie);
-my $resultsperpage;
-
-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'},
-              index => $index,
-            );
-    push @authtypesloop, \%row;
-}
-
-if ($op eq "do_search") {
-    my @marclist = $query->param('marclist');
-    my @and_or = $query->param('and_or');
-    my @excluding = $query->param('excluding');
-    my @operator = $query->param('operator');
-    my @value = $query->param('value');
-
-    $resultsperpage= $query->param('resultsperpage');
-    $resultsperpage = 19 if(!defined $resultsperpage);
-
-    my ($results,$total) = authoritysearch($dbh, address@hidden,address@hidden,
-                                        address@hidden, address@hidden, 
address@hidden,
-                                        $startfrom*$resultsperpage, 
$resultsperpage,$authtypecode);# $orderby);
-
-    ($template, $loggedinuser, $cookie)
-        = get_template_and_user({template_name => 
"authorities/linkresultlist-auth.tmpl",
-                query => $query,
-                type => 'intranet',
-                authnotrequired => 0,
-                flagsrequired => {catalogue => 1},
-                debug => 1,
-                });
-
-    # multi page display gestion
-    my $displaynext=0;
-    my $displayprev=$startfrom;
-    if(($total - (($startfrom+1)*($resultsperpage))) > 0 ) {
-        $displaynext = 1;
-    }
-
-    my @field_data = ();
-
-    # get marclist again, as the previous one has been modified by 
catalogsearch
-    my @marclist_ini = $query->param('marclist');
-    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] };
-        push @field_data, { term => "operator", val=>$operator[$i] };
-        push @field_data, { term => "value", val=>$value[$i] };
-    }
-
-    my @numbers = ();
-
-    if ($total>$resultsperpage) {
-        for (my $i=1; $i<$total/$resultsperpage+1; $i++) {
-            if ($i<16) {
-                my $highlight=0;
-                ($startfrom==($i-1)) && ($highlight=1);
-                push @numbers, { number => $i,
-                    highlight => $highlight ,
-                    searchdata=> address@hidden,
-                    startfrom => ($i-1)};
-            }
-        }
-    }
-
-    my $from = $startfrom*$resultsperpage+1;
-    my $to;
-
-     if($total < (($startfrom+1)*$resultsperpage)) {
-        $to = $total;
-    } else {
-        $to = (($startfrom+1)*$resultsperpage);
-    }
-    $template->param(result => $results) if $results;
-    $template->param(index => $query->param('index')."");
-    $template->param(startfrom=> $startfrom,
-                            displaynext=> $displaynext,
-                            displayprev=> $displayprev,
-                            resultsperpage => $resultsperpage,
-                            startfromnext => $startfrom+1,
-                            startfromprev => $startfrom-1,
-                            index => $index,
-                            searchdata=>address@hidden,
-                            total=>$total,
-                            from=>$from,
-                            to=>$to,
-                            numbers=>address@hidden,
-                            authtypecode =>$authtypecode,
-                            resultstring =>$value[0],
-                            );
-} else {
-    ($template, $loggedinuser, $cookie)
-        = get_template_and_user({template_name => 
"authorities/auth_linker.tmpl",
-                query => $query,
-                type => 'intranet',
-                authnotrequired => 0,
-                flagsrequired => {catalogue => 1},
-                debug => 1,
-                });
-
-    $template->param(index=>$query->param('index')."",
-                    resultstring => $resultstring,
-    
-                    );
-}
-
-$template->param(authtypesloop => address@hidden,
-                authtypecode => $authtypecode,
-                nonav=>"1",);
-
-# Print the page
-output_html_with_http_headers $query, $cookie, $template->output;
-
-# Local Variables:
-# tab-width: 4
-# End:

Index: blinddetail-linker.pl
===================================================================
RCS file: blinddetail-linker.pl
diff -N blinddetail-linker.pl
--- blinddetail-linker.pl       9 Mar 2007 14:31:17 -0000       1.4
+++ /dev/null   1 Jan 1970 00:00:00 -0000
@@ -1,126 +0,0 @@
-#!/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 MARC::Record;
-use C4::Koha;
-
-
-my $query=new CGI;
-
-my $dbh=C4::Context->dbh;
-
-my $authid = $query->param('authid');
-my $index = $query->param('index');
-my $authtypecode=$query->param('authtypecode');
- $authtypecode = &AUTHfind_authtypecode($dbh,$authid) if !$authtypecode;
-my $tagslib = &AUTHgettagslib($dbh,1,$authtypecode);
-my 
($linkidfield,$linkidsubfield)=AUTHfind_marc_from_kohafield($dbh,"auth_header.linkid",$authtypecode);
-my $auth_type = AUTHgetauth_type($authtypecode);
-
-my $record =AUTHgetauthority($dbh,$authid);
-# open template
-my ($template, $loggedinuser, $cookie)
-               = get_template_and_user({template_name => 
"authorities/blinddetail-linker.tmpl",
-                            query => $query,
-                            type => "intranet",
-                            authnotrequired => 0,
-                            flagsrequired => {editauthorities => 1},
-                            debug => 1,
-                            });
-
-# fill arrays
-my @loop_data =();
-my $tag;
-my @loop_data =();
-if ($authid) {
-
-       foreach my $field ($record->field($auth_type->{auth_tag_to_report})) {
-                       my @subfields_data;
-                       my @subf=$field->subfields;
-               # loop through each subfield
-               for my $i (0..$#subf) {
-                       $subf[$i][0] = "@" unless $subf[$i][0];
-                       my %subfield_data;
-                       $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} = address@hidden;
-                       push (@loop_data, \%tag_data);
-               }
-       }
-} else {
-# authid is empty => the user want to empty the entry.
-       my @subfields_data;
-       foreach my $subfield ('a'..'z') {
-                       my %subfield_data;
-                       $subfield_data{marc_value}='';
-                       $subfield_data{marc_subfield}=$subfield;
-                       push(@subfields_data, \%subfield_data);
-               
-               }
-       
-#      if ($#subfields_data>=0) {
-               my %tag_data;
-#                      $tag_data{tag}=$field->tag().' -'. 
$tagslib->{$field->tag()}->{lib};
-               $tag_data{subfield} = address@hidden;
-               push (@loop_data, \%tag_data);
-#      }
-}
-
-$template->param("0XX" =>address@hidden);
-
-
-
-$template->param(authid => $authid?$authid:"",linkidsubfield=>$linkidsubfield, 
linkidfield=>$linkidfield,index => $index);
-output_html_with_http_headers $query, $cookie, $template->output;
-