1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
|
# BEGIN LICENSE BLOCK
#
# Copyright (c) 2002-2003 Jesse Vincent <jesse@bestpractical.com>
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of version 2 of the GNU General Public License
# as published by the Free Software Foundation.
#
# A copy of that license should have arrived with this
# software, but in any event can be snarfed from www.gnu.org.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# END LICENSE BLOCK
# $Header: /raid/cvsroot/fm/lib/RT/FM/CustomFieldObjectValueCollection.pm,v 1.1 2001/08/29 05:56:04 jesse Exp $
# Autogenerated by DBIx::SearchBuilder factory (by <jesse@fsck.com>)
=head1 NAME
RT::FM::CustomFieldObjectValueCollection -- Class Description
=head1 SYNOPSIS
use RT::FM::CustomFieldObjectValueCollection
=head1 DESCRIPTION
=head1 METHODS
=cut
package RT::FM::CustomFieldObjectValueCollection;
use RT::FM::SearchBuilder;
use RT::FM::CustomFieldObjectValue;
@ISA= qw(RT::FM::SearchBuilder);
sub _Init {
my $self = shift;
$self->{'table'} = 'CustomFieldObjectValues';
$self->{'primary_key'} = 'id';
return ( $self->SUPER::_Init(@_) );
}
=item LimitToCustomField CFID
Limit the returned set of results to the custom field with id CFID
=cut
sub LimitToCustomField {
my $self = shift;
my $customfield = shift;
$self ->Limit( FIELD => 'CustomField',
OPERATOR => '=',
VALUE => $customfield);
}
=item LimitToArticle ARTICLEID
Limit the returned set of results to the article with id ARTICLEID
=cut
sub LimitToArticle {
my $self = shift;
my $article = shift;
$self ->Limit( FIELD => 'Article',
OPERATOR => '=',
VALUE => $article);
}
=item NewItem
Returns an empty new RT::FM::CustomFieldObjectValue item
=cut
sub NewItem {
my $self = shift;
return(new RT::FM::CustomFieldObjectValue(@_));
}
1;
|
