3 # Copyright (c) 1996-2003 Jesse Vincent <jesse@bestpractical.com>
5 # (Except where explictly superceded by other copyright notices)
7 # This work is made available to you under the terms of Version 2 of
8 # the GNU General Public License. A copy of that license should have
9 # been provided with this software, but in any event can be snarfed
12 # This work is distributed in the hope that it will be useful, but
13 # WITHOUT ANY WARRANTY; without even the implied warranty of
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 # General Public License for more details.
17 # Unless otherwise specified, all modifications, corrections or
18 # extensions to this work which alter its source code become the
19 # property of Best Practical Solutions, LLC when submitted for
20 # inclusion in the work.
26 RT::Attachments - a collection of RT::Attachment objects
34 This module should never be called directly by client code. it's an internal module which
35 should only be accessed through exported APIs in Ticket, Queue and other similar objects.
43 ok (require RT::Attachments);
50 no warnings qw(redefine);
56 $self->{'table'} = "Attachments";
57 $self->{'primary_key'} = "id";
58 return ( $self->SUPER::_Init(@_));
65 =head2 ContentType (VALUE => 'text/plain', ENTRYAGGREGATOR => 'OR', OPERATOR => '=' )
67 Limit result set to attachments of ContentType 'TYPE'...
74 my %args = ( VALUE => 'text/plain',
76 ENTRYAGGREGATOR => 'OR',
79 $self->Limit ( FIELD => 'ContentType',
80 VALUE => $args{'VALUE'},
81 OPERATOR => $args{'OPERATOR'},
82 ENTRYAGGREGATOR => $args{'ENTRYAGGREGATOR'});
90 Limit result set to children of Attachment ID
97 my $attachment = shift;
98 $self->Limit ( FIELD => 'Parent',
99 VALUE => $attachment);
108 my $item = new RT::Attachment($self->CurrentUser);