init III
This commit is contained in:
277
Perl OTRS/Kernel/Output/HTML/ITSMConfigItem/LayoutInteger.pm
Normal file
277
Perl OTRS/Kernel/Output/HTML/ITSMConfigItem/LayoutInteger.pm
Normal file
@@ -0,0 +1,277 @@
|
||||
# --
|
||||
# Copyright (C) 2001-2019 OTRS AG, https://otrs.com/
|
||||
# --
|
||||
# This software comes with ABSOLUTELY NO WARRANTY. For details, see
|
||||
# the enclosed file COPYING for license information (GPL). If you
|
||||
# did not receive this file, see https://www.gnu.org/licenses/gpl-3.0.txt.
|
||||
# --
|
||||
|
||||
package Kernel::Output::HTML::ITSMConfigItem::LayoutInteger;
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
our @ObjectDependencies = (
|
||||
'Kernel::System::Log',
|
||||
'Kernel::Output::HTML::Layout',
|
||||
'Kernel::System::Web::Request'
|
||||
);
|
||||
|
||||
=head1 NAME
|
||||
|
||||
Kernel::Output::HTML::ITSMConfigItem::LayoutInteger - layout backend module
|
||||
|
||||
=head1 DESCRIPTION
|
||||
|
||||
All layout functions of integer objects
|
||||
|
||||
=head2 new()
|
||||
|
||||
create an object
|
||||
|
||||
$BackendObject = Kernel::Output::HTML::ITSMConfigItem::LayoutInteger->new(
|
||||
%Param,
|
||||
);
|
||||
|
||||
=cut
|
||||
|
||||
sub new {
|
||||
my ( $Type, %Param ) = @_;
|
||||
|
||||
# allocate new hash for object
|
||||
my $Self = {};
|
||||
bless( $Self, $Type );
|
||||
|
||||
return $Self;
|
||||
}
|
||||
|
||||
=head2 OutputStringCreate()
|
||||
|
||||
create output string
|
||||
|
||||
my $Value = $BackendObject->OutputStringCreate(
|
||||
Value => 11, # (optional)
|
||||
);
|
||||
|
||||
=cut
|
||||
|
||||
sub OutputStringCreate {
|
||||
my ( $Self, %Param ) = @_;
|
||||
|
||||
if ( !defined $Param{Value} ) {
|
||||
$Param{Value} = '';
|
||||
}
|
||||
|
||||
return $Param{Value};
|
||||
}
|
||||
|
||||
=head2 FormDataGet()
|
||||
|
||||
get form data as hash reference
|
||||
|
||||
my $FormDataRef = $BackendObject->FormDataGet(
|
||||
Key => 'Item::1::Node::3',
|
||||
Item => $ItemRef,
|
||||
);
|
||||
|
||||
=cut
|
||||
|
||||
sub FormDataGet {
|
||||
my ( $Self, %Param ) = @_;
|
||||
|
||||
# check needed stuff
|
||||
for my $Argument (qw(Key Item)) {
|
||||
if ( !$Param{$Argument} ) {
|
||||
$Kernel::OM->Get('Kernel::System::Log')->Log(
|
||||
Priority => 'error',
|
||||
Message => "Need $Argument!",
|
||||
);
|
||||
return;
|
||||
}
|
||||
}
|
||||
|
||||
my %FormData;
|
||||
|
||||
# get form data
|
||||
$FormData{Value} = $Kernel::OM->Get('Kernel::System::Web::Request')->GetParam( Param => $Param{Key} );
|
||||
|
||||
# set invalid param
|
||||
if ( $Param{Item}->{Input}->{Required} && !$FormData{Value} ) {
|
||||
$FormData{Invalid} = 1;
|
||||
$Param{Item}->{Form}->{ $Param{Key} }->{Invalid} = 1;
|
||||
}
|
||||
|
||||
return \%FormData;
|
||||
}
|
||||
|
||||
=head2 InputCreate()
|
||||
|
||||
create a input string
|
||||
|
||||
my $Value = $BackendObject->InputCreate(
|
||||
Key => 'Item::1::Node::3',
|
||||
Value => 11, # (optional)
|
||||
Item => $ItemRef,
|
||||
);
|
||||
|
||||
=cut
|
||||
|
||||
sub InputCreate {
|
||||
my ( $Self, %Param ) = @_;
|
||||
|
||||
# check needed stuff
|
||||
for my $Argument (qw(Key Item)) {
|
||||
if ( !$Param{$Argument} ) {
|
||||
$Kernel::OM->Get('Kernel::System::Log')->Log(
|
||||
Priority => 'error',
|
||||
Message => "Need $Argument!",
|
||||
);
|
||||
return;
|
||||
}
|
||||
}
|
||||
|
||||
# set min, max and default
|
||||
my $ValueMin = $Param{Item}->{Input}->{ValueMin} // 1;
|
||||
my $ValueMax = $Param{Item}->{Input}->{ValueMax} // 1;
|
||||
if ( $ValueMin > $ValueMax ) {
|
||||
$ValueMin = $ValueMax;
|
||||
}
|
||||
if (
|
||||
$Param{Item}->{Input}->{ValueDefault}
|
||||
&& (
|
||||
$Param{Item}->{Input}->{ValueDefault} < $ValueMin
|
||||
|| $Param{Item}->{Input}->{ValueDefault} > $ValueMax
|
||||
)
|
||||
)
|
||||
{
|
||||
$Param{Item}->{Input}->{ValueDefault} = '';
|
||||
}
|
||||
|
||||
# create data array
|
||||
my $IntegerList = [];
|
||||
for my $Counter ( $ValueMin .. $ValueMax ) {
|
||||
push @{$IntegerList}, $Counter;
|
||||
}
|
||||
|
||||
# generate string
|
||||
my $String = $Kernel::OM->Get('Kernel::Output::HTML::Layout')->BuildSelection(
|
||||
Data => $IntegerList,
|
||||
Name => $Param{Key},
|
||||
PossibleNone => 1,
|
||||
Translation => 0,
|
||||
SelectedID => $Param{Value} || $Param{Item}->{Input}->{ValueDefault} || '',
|
||||
Class => 'Modernize',
|
||||
);
|
||||
|
||||
return $String;
|
||||
}
|
||||
|
||||
=head2 SearchFormDataGet()
|
||||
|
||||
get search form data
|
||||
|
||||
my $Value = $BackendObject->SearchFormDataGet(
|
||||
Key => 'Item::1::Node::3',
|
||||
);
|
||||
|
||||
=cut
|
||||
|
||||
sub SearchFormDataGet {
|
||||
my ( $Self, %Param ) = @_;
|
||||
|
||||
# check needed stuff
|
||||
if ( !$Param{Key} ) {
|
||||
$Kernel::OM->Get('Kernel::System::Log')->Log(
|
||||
Priority => 'error',
|
||||
Message => 'Need Key!'
|
||||
);
|
||||
return;
|
||||
}
|
||||
|
||||
# get form data
|
||||
my @Values;
|
||||
if ( $Param{Value} ) {
|
||||
@Values = @{ $Param{Value} };
|
||||
}
|
||||
else {
|
||||
@Values = $Kernel::OM->Get('Kernel::System::Web::Request')->GetArray( Param => $Param{Key} );
|
||||
}
|
||||
|
||||
return \@Values;
|
||||
}
|
||||
|
||||
=head2 SearchInputCreate()
|
||||
|
||||
create a search input string
|
||||
|
||||
my $Value = $BackendObject->SearchInputCreate(
|
||||
Key => 'Item::1::Node::3',
|
||||
Item => $ItemRef,
|
||||
);
|
||||
|
||||
=cut
|
||||
|
||||
sub SearchInputCreate {
|
||||
my ( $Self, %Param ) = @_;
|
||||
|
||||
# check needed stuff
|
||||
for my $Argument (qw(Key Item)) {
|
||||
if ( !$Param{$Argument} ) {
|
||||
$Kernel::OM->Get('Kernel::System::Log')->Log(
|
||||
Priority => 'error',
|
||||
Message => "Need $Argument!",
|
||||
);
|
||||
return;
|
||||
}
|
||||
}
|
||||
|
||||
# set min, max
|
||||
my $ValueMin = $Param{Item}->{Input}->{ValueMin} // 1;
|
||||
my $ValueMax = $Param{Item}->{Input}->{ValueMax} // 1;
|
||||
if ( $ValueMin > $ValueMax ) {
|
||||
$ValueMin = $ValueMax;
|
||||
}
|
||||
|
||||
# set preselected value, either from previous selection or the default
|
||||
my $Values = $Self->SearchFormDataGet(%Param);
|
||||
|
||||
# check whether the preselected value is within the valid range
|
||||
my @FilteredValues;
|
||||
VALUE:
|
||||
for my $Value ( @{$Values} ) {
|
||||
next VALUE if !defined $Value;
|
||||
next VALUE if !$Value;
|
||||
next VALUE if $Value < $ValueMin;
|
||||
next VALUE if $Value > $ValueMax;
|
||||
|
||||
push @FilteredValues, $Value;
|
||||
}
|
||||
|
||||
# create data array
|
||||
my @IntegerList = ( $ValueMin .. $ValueMax );
|
||||
|
||||
# generate string
|
||||
my $String = $Kernel::OM->Get('Kernel::Output::HTML::Layout')->BuildSelection(
|
||||
Data => \@IntegerList,
|
||||
Name => $Param{Key},
|
||||
Size => 5,
|
||||
Translation => 0,
|
||||
SelectedID => \@FilteredValues,
|
||||
Multiple => 1,
|
||||
Class => 'Modernize',
|
||||
);
|
||||
|
||||
return $String;
|
||||
}
|
||||
|
||||
1;
|
||||
|
||||
=head1 TERMS AND CONDITIONS
|
||||
|
||||
This software is part of the OTRS project (L<https://otrs.org/>).
|
||||
|
||||
This software comes with ABSOLUTELY NO WARRANTY. For details, see
|
||||
the enclosed file COPYING for license information (GPL). If you
|
||||
did not receive this file, see L<https://www.gnu.org/licenses/gpl-3.0.txt>.
|
||||
|
||||
=cut
|
||||
Reference in New Issue
Block a user