X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=rt%2Fshare%2Fhtml%2FREST%2F1.0%2FForms%2Fticket%2Fattachments;h=292d69185cf48a862b83c0a8c5cd1b9de27fa903;hp=ac141615d6c276d56dbb5109c1aad3c912284d08;hb=44dd00a3ff974a17999e86e64488e996edc71e3c;hpb=fc6209f398899f0211cfcedeb81a3cd65e04a941 diff --git a/rt/share/html/REST/1.0/Forms/ticket/attachments b/rt/share/html/REST/1.0/Forms/ticket/attachments index ac141615d..292d69185 100755 --- a/rt/share/html/REST/1.0/Forms/ticket/attachments +++ b/rt/share/html/REST/1.0/Forms/ticket/attachments @@ -2,7 +2,7 @@ %# %# COPYRIGHT: %# -%# This software is Copyright (c) 1996-2011 Best Practical Solutions, LLC +%# This software is Copyright (c) 1996-2019 Best Practical Solutions, LLC %# %# %# (Except where explicitly superseded by other copyright notices) @@ -54,7 +54,7 @@ $args => undef <%INIT> my @data; my ($c, $o, $k, $e) = ("", [], {}, ""); -my $ticket = new RT::Ticket $session{CurrentUser}; +my $ticket = RT::Ticket->new($session{CurrentUser}); $ticket->Load($id); unless ($ticket->Id) { @@ -76,7 +76,7 @@ if ($aid) { unless ($aid =~ /^\d+$/) { return [ "# Invalid attachment id: $aid", [], {}, 1 ]; } - my $attachment = new RT::Attachment $session{CurrentUser}; + my $attachment = RT::Attachment->new($session{CurrentUser}); $attachment->Load($aid); unless ($attachment->Id eq $aid) { return [ "# Invalid attachment id: $aid", [], {}, 1 ]; @@ -89,23 +89,23 @@ if ($aid) { $r->content_type($attachment->ContentType); } } else { - my @data; - push @data, [ id => $attachment->Id ]; - push @data, [ Subject => $attachment->Subject ]; - push @data, [ Creator => $attachment->Creator ]; - push @data, [ Created => $attachment->Created ]; - push @data, [ Transaction => $attachment->TransactionId ]; - push @data, [ Parent => $attachment->Parent ]; - push @data, [ MessageId => $attachment->MessageId ]; - push @data, [ Filename => $attachment->Filename ]; - push @data, [ ContentType => $attachment->ContentType ]; - push @data, [ ContentEncoding => $attachment->ContentEncoding ]; - push @data, [ Headers => $attachment->Headers ]; - push @data, [ Content => $attachment->Content ]; + my @data; + push @data, [ id => $attachment->Id ]; + push @data, [ Subject => $attachment->Subject ]; + push @data, [ Creator => $attachment->Creator ]; + push @data, [ Created => $attachment->Created ]; + push @data, [ Transaction => $attachment->TransactionId ]; + push @data, [ Parent => $attachment->Parent ]; + push @data, [ MessageId => $attachment->MessageId ]; + push @data, [ Filename => $attachment->Filename ]; + push @data, [ ContentType => $attachment->ContentType ]; + push @data, [ ContentEncoding => $attachment->ContentEncoding ]; + push @data, [ Headers => $attachment->Headers ]; + push @data, [ Content => $attachment->Content ]; - my %k = map {@$_} @data; - $o = [ map {$_->[0]} @data ]; - $k = \%k; + my %k = map {@$_} @data; + $o = [ map {$_->[0]} @data ]; + $k = \%k; } } @@ -118,7 +118,8 @@ else { my $size = length($a->Content || ''); if ($size > 1024) { $size = int($size/102.4)/10 . "k" } else { $size .= "b" } - push @attachments, $a->Id.": ".($a->Filename || '(Unnamed)')." (".$a->ContentType . " / ".$size.")"; + my $name = (defined $a->Filename and length $a->Filename) ? $a->Filename : "(Unnamed)"; + push @attachments, $a->Id.": $name (".$a->ContentType . " / $size)"; } }