%#
%# COPYRIGHT:
%#
-%# This software is Copyright (c) 1996-2011 Best Practical Solutions, LLC
+%# This software is Copyright (c) 1996-2014 Best Practical Solutions, LLC
%# <sales@bestpractical.com>
%#
%# (Except where explicitly superseded by other copyright notices)
<%INIT>
my @data;
my ($c, $o, $k, $e) = ("", [], {}, "");
-my $attachment = new RT::Attachment $session{CurrentUser};
+my $attachment = RT::Attachment->new($session{CurrentUser});
$attachment->Load($id);
unless ( $attachment->Id ) {
my @arglist = split( '/', $args || "" );
my $content;
-if ( @argslist and $arglist[0] eq 'content' ) {
+if ( @arglist and $arglist[0] eq 'content' ) {
$c = $attachment->OriginalContent;
+ $r->content_type($attachment->ContentType)
+ if $attachment->ContentType !~ /^text\//;
} else {
my @data;
push @data, [ id => "attachment/" . $attachment->Id ];