From 1864cf461327e18f3a75f80129595bfca1c2987c Mon Sep 17 00:00:00 2001 From: Owen Leonard Date: Fri, 1 Apr 2022 15:20:47 +0000 Subject: [PATCH] Bug 30435: Remove unused MACLES cataloging plugin This patch removes the files associated with the MACLES cataloging plugin. The feature is unmaintained. --- cataloguing/value_builder/macles.pl | 170 ------------ .../cataloguing/value_builder/macles.tt | 250 ------------------ 2 files changed, 420 deletions(-) delete mode 100755 cataloguing/value_builder/macles.pl delete mode 100644 koha-tmpl/intranet-tmpl/prog/en/modules/cataloguing/value_builder/macles.tt diff --git a/cataloguing/value_builder/macles.pl b/cataloguing/value_builder/macles.pl deleted file mode 100755 index 8579dc04d5..0000000000 --- a/cataloguing/value_builder/macles.pl +++ /dev/null @@ -1,170 +0,0 @@ -#!/usr/bin/perl - -# Converted to new plugin style (Bug 13437) - -# 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 3 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, see . - -use Modern::Perl; -use CGI qw ( -utf8 ); - -use C4::Context; -use C4::Output qw( output_html_with_http_headers ); -use C4::Auth qw( get_template_and_user ); - -my $builder = sub { - my ( $params ) = @_; - my $function_name = $params->{id}; - my $res=" - -"; - return $res; -}; - -my $launcher = sub { - my ( $params ) = @_; - my $input = $params->{cgi}; - my $index= $input->param('index'); - - my $dbh = C4::Context->dbh; - my $rq=$dbh->prepare("SELECT authorised_value, lib from authorised_values where category=\"MACLES\" order by authorised_value DESC"); - #tabs - $rq->execute; - my @BIGLOOP; - my (%numbers,@lists,$table); - while (my $tab = $rq->fetchrow_hashref){ - my $number=substr($tab->{authorised_value},0,1); - if ($tab->{authorised_value}=~/[0-9]XX/){ - $numbers{$number}->{'hdr_tab'}=$tab->{lib}; - $numbers{$number}->{'Table'}=($number=~/[1-7]/); - } elsif ($tab->{authorised_value}=~/.X./){ - $tab->{authorised_value}=~s/X/\./; - $table=1; - unshift @{$numbers{$number}->{"col_hdr"}},{"colvalue"=>$tab->{authorised_value},"collib"=>$tab->{lib}}; - } elsif ($tab->{authorised_value}=~/..X/){ - $tab->{authorised_value}=~s/X/\./; - unshift @{$numbers{$number}->{"row_hdr"}},{"rowvalue"=>$tab->{authorised_value},"rowlib"=>$tab->{lib}} - } elsif ($tab->{'authorised_value'}=~/,/){ - my @listval=split /,/,$tab->{'authorised_value'}; -# $tab->{authorised_value}=~s/,/","/g; -# $tab->{authorised_value}="(".$tab->{authorised_value}.")"; - my %mulrows; - foreach my $val (@listval){ - unshift @{$numbers{$number}->{$val}},$tab->{'lib'}; - my $mulrow=substr($val,0,2); - $mulrows{$mulrow}=1; - } - foreach my $mulrow (sort keys %mulrows){ - unshift @{$numbers{$number}->{$mulrow}},{'listlib' => $tab->{'lib'},'listvalue' => $tab->{'authorised_value'}}; - } - } else { - unshift @{$numbers{$number}->{$tab->{'authorised_value'}}},$tab->{'lib'}; - } - } - foreach my $num ( sort keys %numbers ) { - my @tmpcolhdr; - my @tmprowhdr; - @tmpcolhdr = @{ $numbers{$num}->{'col_hdr'} } - if ( $numbers{$num}->{'col_hdr'} ); - @tmprowhdr = @{ $numbers{$num}->{"row_hdr"} } - if ( $numbers{$num}->{'row_hdr'} ); - my @lines; - my @lists; - my %BIGLOOPcell; - foreach my $row (@tmprowhdr) { - my $tmprowvalue = $row->{rowvalue}; - my $rowcode; - $rowcode = $1 if $tmprowvalue =~ /[0-9]([0-9])\./; - my @cells; - if ( scalar(@tmpcolhdr) > 0 ) { - - #cas du tableau bidim - foreach my $col (@tmpcolhdr) { - my $tmpcolvalue = $col->{colvalue}; - my $colcode; - $colcode = $1 if $tmpcolvalue =~ /[0-9]\.([0-9])/; - my %cell; - $cell{celvalue} = $num . $rowcode . $colcode; - $cell{rowvalue} = $tmprowvalue; - $cell{colvalue} = $tmpcolvalue; - if ( $numbers{$num}->{ $num . $rowcode . $colcode } ) { - - foreach ( - @{ $numbers{$num}->{ $num . $rowcode . $colcode } } - ) - { - push @{ $cell{libs} }, { 'lib' => $_ }; - } - } - else { - push @{ $cell{libs} }, - { 'lib' => $num . $rowcode . $colcode }; - } - push @cells, \%cell; - } - if ( $numbers{$num}->{ $num . $rowcode } ) { - my @tmpliblist = @{ $numbers{$num}->{ $num . $rowcode } }; - push @lists, - { 'lib' => $row->{rowlib}, 'liblist' => \@tmpliblist }; - } - } - else { - - #Cas de la liste simple - foreach my $key ( sort keys %{ $numbers{$num} } ) { - my %cell; - if ( $key =~ /$num$rowcode[0-9]/ ) { - $cell{celvalue} = $key; - foreach my $lib ( @{ $numbers{$num}->{$key} } ) { - push @{ $cell{'libs'} }, { 'lib' => $lib }; - } - push @cells, \%cell; - } - } - } - push @lines, - { - 'cells' => \@cells, - 'rowvalue' => $row->{rowvalue}, - 'rowlib' => $row->{rowlib} - }; - } - $BIGLOOPcell{'Lists'} = \@lists if ( scalar(@lists) > 0 ); - $BIGLOOPcell{'lines'} = \@lines if ( scalar(@lines) > 0 ); - $BIGLOOPcell{'col_hdr'} = \@tmpcolhdr if ( scalar(@tmpcolhdr) > 0 ); - $BIGLOOPcell{'Table'} = $numbers{$num}->{'Table'}; - $BIGLOOPcell{'hdr_tab'} = $numbers{$num}->{'hdr_tab'}; - $BIGLOOPcell{'number'} = $num; - push @BIGLOOP, \%BIGLOOPcell; - } - - my ($template, $loggedinuser, $cookie) - = get_template_and_user({template_name => "cataloguing/value_builder/macles.tt", - query => $input, - type => "intranet", - flagsrequired => {editcatalogue => '*'}, - }); - $template->param(BIGLOOP=>\@BIGLOOP); - $template->param("index"=>$index); - output_html_with_http_headers $input, $cookie, $template->output; -}; - -return { builder => $builder, launcher => $launcher }; diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/cataloguing/value_builder/macles.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/cataloguing/value_builder/macles.tt deleted file mode 100644 index 480ab3733a..0000000000 --- a/koha-tmpl/intranet-tmpl/prog/en/modules/cataloguing/value_builder/macles.tt +++ /dev/null @@ -1,250 +0,0 @@ - - - -Gestion des index MACLES -[% INCLUDE 'doc-head-close.inc' %] - - - - - -

Gestion des index MACLES

-
- -
- [% IF ( BIGLOOP ) %][% END %] - - [% FOREACH BIGLOO IN BIGLOOP %] - [% IF ( BIGLOO.number ) %] -
- [% ELSE %] -
- [% END %] -

[% BIGLOO.hdr_tab | html %]

- Envoyer - - Réinitialiser - déselectionner onglet - - [% IF ( BIGLOO.Table ) %] - - - - [% FOREACH col_hd IN BIGLOO.col_hdr %] - - [% END %] - - [% FOREACH line IN BIGLOO.lines %] - - - [% FOREACH cell IN line.cells %] - - [% END %] - - [% END %] -
Espace\Temps [% col_hd.collib | html %]
-
[% line.rowlib | html %]
-
- [% BLOCK spantitle %][% FOREACH lib IN cell.libs %][% lib.lib | html %] - [% END %][% END %] - - [% cell.celvalue | html %]
-
-
- [% END %] - [% IF ( BIGLOO.Lists ) %] -

sélection au moyen d'une liste de descripteurs

- [% FOREACH List IN BIGLOO.Lists %] -

[% List.lib | html %]

- [% FOREACH liblis IN List.liblist %] - [% liblis.listlib | html %]
- [% END %] - [% END %] - [% END %] - [% UNLESS ( BIGLOO.Table ) %] - - [% FOREACH line IN BIGLOO.lines %] -

[% line.rowvalue | html %] - [% line.rowlib | html %] 

- [% FOREACH cell IN line.cells %] -

[% cell.celvalue | html %] - [% FOREACH lib IN cell.libs %] - [% lib.lib | html %]   - [% END %] - -

- [% END %] - [% END %] - [% END %] -
- [% END %] -
- - - - -- 2.20.1