372 lines
10 KiB
Perl
372 lines
10 KiB
Perl
# --
|
|
# 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::LayoutDate;
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
our @ObjectDependencies = (
|
|
'Kernel::System::Log',
|
|
'Kernel::Output::HTML::Layout',
|
|
'Kernel::System::Web::Request',
|
|
'Kernel::System::DateTime',
|
|
);
|
|
|
|
=head1 NAME
|
|
|
|
Kernel::Output::HTML::ITSMConfigItem::LayoutDate - layout backend module
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
All layout functions of date objects.
|
|
|
|
=cut
|
|
|
|
=head2 new()
|
|
|
|
create an object
|
|
|
|
$BackendObject = Kernel::Output::HTML::ITSMConfigItem::LayoutDate->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 => '2007-01-01', # (optional)
|
|
);
|
|
|
|
=cut
|
|
|
|
sub OutputStringCreate {
|
|
my ( $Self, %Param ) = @_;
|
|
|
|
return '' if !$Param{Value};
|
|
|
|
$Param{Value} = $Kernel::OM->Get('Kernel::Output::HTML::Layout')->Output(
|
|
Template => '[% Data.Date | Localize("Date") %]',
|
|
Data => {
|
|
Date => $Param{Value} . ' 00:00:00',
|
|
},
|
|
);
|
|
$Param{Value} =~ s/00:00:00//;
|
|
|
|
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 param object
|
|
my $ParamObject = $Kernel::OM->Get('Kernel::System::Web::Request');
|
|
|
|
# get form data
|
|
my $Day = $ParamObject->GetParam( Param => $Param{Key} . '::Day' );
|
|
my $Month = $ParamObject->GetParam( Param => $Param{Key} . '::Month' );
|
|
my $Year = $ParamObject->GetParam( Param => $Param{Key} . '::Year' );
|
|
|
|
if ( $Day && $Month && $Year ) {
|
|
$FormData{Value} = sprintf '%02d-%02d-%02d', $Year, $Month, $Day;
|
|
}
|
|
|
|
# set invalid param
|
|
if ( $Param{Item}->{Input}->{Required} && !$FormData{Value} ) {
|
|
$FormData{Invalid} = 1;
|
|
$Param{Item}->{Form}->{ $Param{Key} }->{Invalid} = 1;
|
|
}
|
|
|
|
# Sanity check of the assembled timestamp
|
|
if ( $FormData{Value} ) {
|
|
|
|
my $DateTimeObject = $Kernel::OM->Create(
|
|
'Kernel::System::DateTime',
|
|
ObjectParams => {
|
|
String => $FormData{Value} . ' 00:00:00',
|
|
},
|
|
);
|
|
|
|
if ( !$DateTimeObject ) {
|
|
$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 => '2007-03-26', # (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;
|
|
}
|
|
}
|
|
|
|
my $Invalid = $Param{Invalid};
|
|
|
|
my %Values;
|
|
my $Class;
|
|
if ( $Param{Value} || $Param{Item}->{Input}->{ValueDefault} ) {
|
|
my $Value = $Param{Value} || $Param{Item}->{Input}->{ValueDefault};
|
|
|
|
if ( $Value =~ /^(\d\d\d\d)-(\d\d|\d)-(\d\d|\d)$/i ) {
|
|
$Values{ $Param{Key} . '::Year' } = $1;
|
|
$Values{ $Param{Key} . '::Month' } = $2;
|
|
$Values{ $Param{Key} . '::Day' } = $3;
|
|
|
|
if ($Invalid) {
|
|
$Class = 'ServerError';
|
|
}
|
|
}
|
|
}
|
|
|
|
my $String = $Kernel::OM->Get('Kernel::Output::HTML::Layout')->BuildDateSelection(
|
|
Prefix => $Param{Key} . '::',
|
|
Format => 'DateInputFormat',
|
|
YearPeriodPast => $Param{Item}->{Input}->{YearPeriodPast} || 10,
|
|
YearPeriodFuture => $Param{Item}->{Input}->{YearPeriodFuture} || 10,
|
|
%Values,
|
|
$Param{Key} . '::' . 'Class' => $Class,
|
|
Validate => 1,
|
|
OverrideTimeZone => $Param{OverrideTimeZone},
|
|
);
|
|
|
|
return $String;
|
|
}
|
|
|
|
=head2 SearchFormDataGet()
|
|
|
|
get search form data
|
|
|
|
my $Value = $BackendObject->SearchFormDataGet(
|
|
Key => 'Item::1::Node::3',
|
|
Item => $ItemRef,
|
|
);
|
|
|
|
=cut
|
|
|
|
sub SearchFormDataGet {
|
|
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;
|
|
}
|
|
}
|
|
|
|
# get form data
|
|
my $Used;
|
|
my $StartDay;
|
|
my $StartMonth;
|
|
my $StartYear;
|
|
my $StopDay;
|
|
my $StopMonth;
|
|
my $StopYear;
|
|
|
|
# get param object
|
|
my $ParamObject = $Kernel::OM->Get('Kernel::System::Web::Request');
|
|
|
|
if ( $Param{Value} && ref $Param{Value} eq 'HASH' ) {
|
|
$Used = $Param{Value}->{ $Param{Key} };
|
|
$StartDay = $Param{Value}->{ $Param{Key} . '::TimeStart::Day' };
|
|
$StartMonth = $Param{Value}->{ $Param{Key} . '::TimeStart::Month' };
|
|
$StartYear = $Param{Value}->{ $Param{Key} . '::TimeStart::Year' };
|
|
$StopDay = $Param{Value}->{ $Param{Key} . '::TimeStop::Day' };
|
|
$StopMonth = $Param{Value}->{ $Param{Key} . '::TimeStop::Month' };
|
|
$StopYear = $Param{Value}->{ $Param{Key} . '::TimeStop::Year' };
|
|
}
|
|
else {
|
|
$Used = $ParamObject->GetParam( Param => $Param{Key} );
|
|
$StartDay = $ParamObject->GetParam( Param => $Param{Key} . '::TimeStart::Day' );
|
|
$StartMonth = $ParamObject->GetParam( Param => $Param{Key} . '::TimeStart::Month' );
|
|
$StartYear = $ParamObject->GetParam( Param => $Param{Key} . '::TimeStart::Year' );
|
|
$StopDay = $ParamObject->GetParam( Param => $Param{Key} . '::TimeStop::Day' );
|
|
$StopMonth = $ParamObject->GetParam( Param => $Param{Key} . '::TimeStop::Month' );
|
|
$StopYear = $ParamObject->GetParam( Param => $Param{Key} . '::TimeStop::Year' );
|
|
}
|
|
if (
|
|
$Used
|
|
&& $StartDay && $StartMonth && $StartYear
|
|
&& $StopDay && $StopMonth && $StopYear
|
|
)
|
|
{
|
|
my $StartDate = sprintf '%02d-%02d-%02d', $StartYear, $StartMonth, $StartDay;
|
|
my $StopDate = sprintf '%02d-%02d-%02d', $StopYear, $StopMonth, $StopDay;
|
|
|
|
return { '-between' => [ $StartDate, $StopDate ] };
|
|
}
|
|
|
|
return []; # no conditions by default
|
|
}
|
|
|
|
=head2 SearchInputCreate()
|
|
|
|
create a search input string
|
|
|
|
my $Value = $BackendObject->SearchInputCreate(
|
|
Key => 'Item::1::Node::3',
|
|
Item => $ItemRef,
|
|
Optional => 1, # (optional) default 0 (0|1)
|
|
);
|
|
|
|
=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;
|
|
}
|
|
}
|
|
|
|
# just for convenience
|
|
my $Key = $Param{Key};
|
|
my $PrefixStart = $Key . '::TimeStart::';
|
|
my $PrefixStop = $Key . '::TimeStop::';
|
|
|
|
# get time related params
|
|
my %GetParam;
|
|
|
|
# get param object
|
|
my $ParamObject = $Kernel::OM->Get('Kernel::System::Web::Request');
|
|
|
|
if ( $Param{Value} ) {
|
|
%GetParam = %{ $Param{Value} };
|
|
}
|
|
else {
|
|
$GetParam{$Key} = $ParamObject->GetParam( Param => $Key );
|
|
for my $TimeType ( $PrefixStart, $PrefixStop ) {
|
|
for my $Part (qw( Year Month Day )) {
|
|
my $ParamKey = $TimeType . $Part;
|
|
my $ParamVal = $ParamObject->GetParam( Param => $ParamKey );
|
|
|
|
# remove white space on the start and end
|
|
if ($ParamVal) {
|
|
$ParamVal =~ s{ \A \s+ }{}xms;
|
|
$ParamVal =~ s{ \s+ \z }{}xms;
|
|
}
|
|
|
|
# store in %GetParam
|
|
$GetParam{$ParamKey} = $ParamVal;
|
|
}
|
|
}
|
|
}
|
|
|
|
# get layout object
|
|
my $LayoutObject = $Kernel::OM->Get('Kernel::Output::HTML::Layout');
|
|
|
|
# Build selection for the start and stop time.
|
|
# Note that searching is by date, while input is by time as well
|
|
my $TimeStartSelectionString = $LayoutObject->BuildDateSelection(
|
|
Prefix => $PrefixStart,
|
|
Format => 'DateInputFormat',
|
|
YearPeriodPast => 10,
|
|
YearPeriodFuture => 10,
|
|
%GetParam,
|
|
);
|
|
my $TimeStopSelectionString = $LayoutObject->BuildDateSelection(
|
|
Optional => 0,
|
|
Prefix => $PrefixStop,
|
|
Format => 'DateInputFormat',
|
|
YearPeriodPast => 10,
|
|
YearPeriodFuture => 10,
|
|
%GetParam,
|
|
);
|
|
|
|
my $Checkbox = qq{<input type="hidden" name="$Key" value="1"/>};
|
|
if ( $Param{Optional} ) {
|
|
$Checkbox = qq{<input type="checkbox" name="$Key" value="1"/>};
|
|
}
|
|
|
|
my $Between = $LayoutObject->{LanguageObject}->Translate('Between');
|
|
my $And = $LayoutObject->{LanguageObject}->Translate('and');
|
|
|
|
return "<div> $Checkbox $Between $TimeStartSelectionString </div>"
|
|
. "<span style=\"margin-left: 27px;\">$And</span> $TimeStopSelectionString";
|
|
}
|
|
|
|
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
|