From 87d9765a94ea45805ac2f9e99c14d0e6e42d7e26 Mon Sep 17 00:00:00 2001 From: Moritz Bunkus Date: Fri, 1 Mar 2013 14:37:22 +0100 Subject: [PATCH] Alten Code entfernt (MultiColumnIterator) --- SL/Template/Plugin/MultiColumnIterator.pm | 200 ---------------------- scripts/locales.pl | 2 +- 2 files changed, 1 insertion(+), 201 deletions(-) delete mode 100644 SL/Template/Plugin/MultiColumnIterator.pm diff --git a/SL/Template/Plugin/MultiColumnIterator.pm b/SL/Template/Plugin/MultiColumnIterator.pm deleted file mode 100644 index 7ce3aeb55..000000000 --- a/SL/Template/Plugin/MultiColumnIterator.pm +++ /dev/null @@ -1,200 +0,0 @@ -package SL::Template::Plugin::MultiColumnIterator; - -use base 'Template::Plugin'; -use Template::Constants; -use Template::Exception; -use Template::Iterator; -use SL::LXDebug; -use Data::Dumper; - -use strict; - -our $AUTOLOAD; - -sub new { - $main::lxdebug->enter_sub(); - my $class = shift; - my $context = shift; - my $data = shift || [ ]; - my $dim = shift || 1; - - $dim = 1 if $dim < 1; - - use vars qw(@ISA); - push @ISA, "Template::Iterator"; - - if (ref $data eq 'HASH') { - # map a hash into a list of { key => ???, value => ??? } hashes, - # one for each key, sorted by keys - $data = [ map { { key => $_, value => $data->{ $_ } } } - sort keys %$data ]; - } - elsif (UNIVERSAL::can($data, 'as_list')) { - $data = $data->as_list(); - } - elsif (ref $data ne 'ARRAY') { - # coerce any non-list data into an array reference - $data = [ $data ] ; - } - - $main::lxdebug->leave_sub(); - - bless { - _DATA => $data, - _ERROR => '', - _DIM => $dim, - }, $class; -} - - -sub get_first { - $main::lxdebug->enter_sub(); - my $self = shift; - my $data = $self->{ _DATA }; - my $dim = $self->{ _DIM }; - - $self->{ _DATASET } = $self->{ _DATA }; - my $size = int ((scalar @$data - 1) / $dim) + 1; - my $index = 0; - - return (undef, Template::Constants::STATUS_DONE) unless $size; - - # initialise various counters, flags, etc. - @$self{ qw( SIZE MAX INDEX COUNT FIRST LAST ) } = ( $size, $size - 1, $index, 1, 1, $size > 1 ? 0 : 1, undef ); - @$self{ qw( PREV ) } = ( undef ); - $$self{ qw( NEXT ) } = [ @{ $self->{ _DATASET } }[ map { $index + 1 + $_ * $size } 0 .. ($dim - 1) ] ]; - - $main::lxdebug->leave_sub(); - return [ @{ $self->{ _DATASET } }[ map { $index + $_ * $size } 0 .. ($dim - 1) ] ]; -} - -sub get_next { - $main::lxdebug->enter_sub(); - my $self = shift; - my ($max, $index) = @$self{ qw( MAX INDEX ) }; - my $data = $self->{ _DATASET }; - my $dim = $self->{ _DIM }; - my $size = $self->{ SIZE }; - - # warn about incorrect usage - unless (defined $index) { - my ($pack, $file, $line) = caller(); - warn("iterator get_next() called before get_first() at $file line $line\n"); - return (undef, Template::Constants::STATUS_DONE); ## RETURN ## - } - - # if there's still some data to go... - if ($index < $max) { - # update counters and flags - $index++; - @$self{ qw( INDEX COUNT FIRST LAST ) } = ( $index, $index + 1, 0, $index == $max ? 1 : 0 ); - $$self{ qw( PREV ) } = [ @{ $self->{ _DATASET } }[ map { $index - 1 + $_ * $size } 0 .. ($dim - 1) ] ]; - $$self{ qw( NEXT ) } = [ @{ $self->{ _DATASET } }[ map { $index + 1 + $_ * $size } 0 .. ($dim - 1) ] ]; - $main::lxdebug->leave_sub(); - return [ @{ $self->{ _DATASET } }[ map { $index + $_ * $size } 0 .. ($dim - 1) ] ]; - } - else { - $main::lxdebug->leave_sub(); - return (undef, Template::Constants::STATUS_DONE); ## RETURN ## - } -} - -sub get_all { - my $self = shift; - my ($max, $index, $dim, $size) = @$self{ qw( MAX INDEX _DIM SIZE) }; - my (@data, $i); - - # if there's still some data to go... - if ($index < $max) { - $index++; - @data = map do{ !($i = $_) || +[ @{ $self->{ _DATASET } }[ map { $i + $_ * $size } 0 .. ($dim - 1) ] ] }, $index .. $max; - # update counters and flags - @$self{ qw( INDEX COUNT FIRST LAST ) } = ( $max, $max + 1, 0, 1 ); - $main::lxdebug->leave_sub(); - return \@data; ## RETURN ## - } - else { - $main::lxdebug->leave_sub(); - return (undef, Template::Constants::STATUS_DONE); ## RETURN ## - } -} - -sub AUTOLOAD { - my $self = shift; - my $item = $AUTOLOAD; - $item =~ s/.*:://; - return if $item eq 'DESTROY'; - - # alias NUMBER to COUNT for backwards compatability - $item = 'COUNT' if $item =~ /NUMBER/i; - - return $self->{ uc $item }; -} - -sub dump { - $main::lxdebug->enter_sub(); - my $self = shift; - $main::lxdebug->leave_sub(); - return join('', - "
",
-         "  Data: ", Dumper($self->{ _DATA  }), "\n",
-         " Index: ", $self->{ INDEX  }, "\n",
-         "Number: ", $self->{ NUMBER }, "\n",
-         "   Max: ", $self->{ MAX    }, "\n",
-         "  Size: ", $self->{ SIZE   }, "\n",
-         " First: ", $self->{ FIRST  }, "\n",
-         "  Last: ", $self->{ LAST   }, "\n",
-         "\n",
-         "
" - ); -} - -sub index { - $main::lxdebug->enter_sub(); - my ($self) = @_; - $main::lxdebug->leave_sub(); - return $self->{ INDEX }; -} - -sub number { - $main::lxdebug->enter_sub(); - my ($self) = @_; - $main::lxdebug->leave_sub(); - return $self->{ NUMBER }; -} - -sub count { - $main::lxdebug->enter_sub(); - my ($self) = @_; - $main::lxdebug->leave_sub(); - return $self->{ COUNT }; -} -sub max { - $main::lxdebug->enter_sub(); - my ($self) = @_; - $main::lxdebug->leave_sub(); - return $self->{ MAX }; -} - -sub size { - $main::lxdebug->enter_sub(); - my ($self) = @_; - $main::lxdebug->leave_sub(); - return $self->{ SIZE }; -} - -sub first { - $main::lxdebug->enter_sub(); - my ($self) = @_; - $main::lxdebug->leave_sub(); - return $self->{ FIRST }; -} - -sub last { - $main::lxdebug->enter_sub(); - my ($self) = @_; - $main::lxdebug->leave_sub(); - return $self->{ LAST}; -} - -1; diff --git a/scripts/locales.pl b/scripts/locales.pl index cfb85d9a4..baf0dc661 100755 --- a/scripts/locales.pl +++ b/scripts/locales.pl @@ -511,7 +511,7 @@ sub scanhtmlfile { while ($line =~ m/\[\%[^\w]*(\w+)\.\w+\(/g) { my $plugin = $1; - $plugins{needed}->{$plugin} = 1 if (first { $_ eq $plugin } qw(HTML LxERP JavaScript MultiColumnIterator JSON L P)); + $plugins{needed}->{$plugin} = 1 if (first { $_ eq $plugin } qw(HTML LxERP JavaScript JSON L P)); } $plugins{needed}->{T8} = 1 if $line =~ m/\[\%.*\|.*\$T8/; -- 2.20.1