init III
This commit is contained in:
63
Perl OTRS/Kernel/Output/HTML/ArticleAttachment/Download.pm
Normal file
63
Perl OTRS/Kernel/Output/HTML/ArticleAttachment/Download.pm
Normal file
@@ -0,0 +1,63 @@
|
||||
# --
|
||||
# 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::ArticleAttachment::Download;
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
our @ObjectDependencies = (
|
||||
'Kernel::System::Log',
|
||||
'Kernel::Config',
|
||||
'Kernel::Output::HTML::Layout',
|
||||
);
|
||||
|
||||
sub new {
|
||||
my ( $Type, %Param ) = @_;
|
||||
|
||||
# allocate new hash for object
|
||||
my $Self = {};
|
||||
bless( $Self, $Type );
|
||||
|
||||
return $Self;
|
||||
}
|
||||
|
||||
sub Run {
|
||||
my ( $Self, %Param ) = @_;
|
||||
|
||||
# check needed stuff
|
||||
for my $Needed (qw(File TicketID Article)) {
|
||||
if ( !$Param{$Needed} ) {
|
||||
$Kernel::OM->Get('Kernel::System::Log')->Log(
|
||||
Priority => 'error',
|
||||
Message => "Need $Needed!"
|
||||
);
|
||||
return;
|
||||
}
|
||||
}
|
||||
|
||||
# download type
|
||||
my $Type = $Kernel::OM->Get('Kernel::Config')->Get('AttachmentDownloadType') || 'attachment';
|
||||
|
||||
# if attachment will be forced to download, don't open a new download window!
|
||||
my $Target = 'target="AttachmentWindow" ';
|
||||
if ( $Type =~ /inline/i ) {
|
||||
$Target = 'target="attachment" ';
|
||||
}
|
||||
|
||||
return (
|
||||
%{ $Param{File} },
|
||||
Action => 'Download',
|
||||
Link => $Kernel::OM->Get('Kernel::Output::HTML::Layout')->{Baselink} .
|
||||
"Action=AgentTicketAttachment;TicketID=$Param{TicketID};ArticleID=$Param{Article}->{ArticleID};FileID=$Param{File}->{FileID}",
|
||||
Image => 'disk-s.png',
|
||||
Target => $Target,
|
||||
);
|
||||
}
|
||||
|
||||
1;
|
||||
57
Perl OTRS/Kernel/Output/HTML/ArticleAttachment/HTMLViewer.pm
Normal file
57
Perl OTRS/Kernel/Output/HTML/ArticleAttachment/HTMLViewer.pm
Normal file
@@ -0,0 +1,57 @@
|
||||
# --
|
||||
# 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::ArticleAttachment::HTMLViewer;
|
||||
|
||||
use parent 'Kernel::Output::HTML::Base';
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
our @ObjectDependencies = (
|
||||
'Kernel::System::Log',
|
||||
'Kernel::Config',
|
||||
'Kernel::Output::HTML::Layout',
|
||||
);
|
||||
|
||||
sub Run {
|
||||
my ( $Self, %Param ) = @_;
|
||||
|
||||
# check needed stuff
|
||||
for my $Needed (qw(File Article)) {
|
||||
if ( !$Param{$Needed} ) {
|
||||
$Kernel::OM->Get('Kernel::System::Log')->Log(
|
||||
Priority => 'error',
|
||||
Message => "Need $Needed!"
|
||||
);
|
||||
return;
|
||||
}
|
||||
}
|
||||
|
||||
# get config object
|
||||
my $ConfigObject = $Kernel::OM->Get('Kernel::Config');
|
||||
|
||||
# check if config exists
|
||||
if ( $ConfigObject->Get('MIME-Viewer') ) {
|
||||
for ( sort keys %{ $ConfigObject->Get('MIME-Viewer') } ) {
|
||||
if ( $Param{File}->{ContentType} =~ /^$_/i ) {
|
||||
return (
|
||||
%{ $Param{File} },
|
||||
Action => 'Viewer',
|
||||
Link => $Kernel::OM->Get('Kernel::Output::HTML::Layout')->{Baselink} .
|
||||
"Action=AgentTicketAttachment;TicketID=$Param{Article}->{TicketID};ArticleID=$Param{Article}->{ArticleID};FileID=$Param{File}->{FileID};Viewer=1",
|
||||
Target => 'target="attachment"',
|
||||
Class => 'ViewAttachment',
|
||||
);
|
||||
}
|
||||
}
|
||||
}
|
||||
return ();
|
||||
}
|
||||
|
||||
1;
|
||||
Reference in New Issue
Block a user