From 53f665eb946de77bc308006d19a6263066f92b4c Mon Sep 17 00:00:00 2001 From: hdl Date: Fri, 6 Apr 2007 14:47:50 +0000 Subject: [PATCH] Deleting Link related scripts --- authorities/auth_linker.pl | 167 ------------------------------ authorities/blinddetail-linker.pl | 126 ---------------------- 2 files changed, 293 deletions(-) delete mode 100644 authorities/auth_linker.pl delete mode 100644 authorities/blinddetail-linker.pl diff --git a/authorities/auth_linker.pl b/authorities/auth_linker.pl deleted file mode 100644 index 905a7afa62..0000000000 --- a/authorities/auth_linker.pl +++ /dev/null @@ -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, \@marclist,\@and_or, - \@excluding, \@operator, \@value, - $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=> \@field_data, - 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=>\@field_data, - total=>$total, - from=>$from, - to=>$to, - numbers=>\@numbers, - 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 => \@authtypesloop, - authtypecode => $authtypecode, - nonav=>"1",); - -# Print the page -output_html_with_http_headers $query, $cookie, $template->output; - -# Local Variables: -# tab-width: 4 -# End: diff --git a/authorities/blinddetail-linker.pl b/authorities/blinddetail-linker.pl deleted file mode 100644 index b9b4917c60..0000000000 --- a/authorities/blinddetail-linker.pl +++ /dev/null @@ -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} = \@subfields_data; - 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} = \@subfields_data; - push (@loop_data, \%tag_data); -# } -} - -$template->param("0XX" =>\@loop_data); - - - -$template->param(authid => $authid?$authid:"",linkidsubfield=>$linkidsubfield, linkidfield=>$linkidfield,index => $index); -output_html_with_http_headers $query, $cookie, $template->output; - -- 2.39.5