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
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
|
package FS::cust_main_Mixin;
use strict;
use FS::cust_main;
=head1 NAME
FS::cust_main_Mixin - Mixin class for records that contain fields from cust_main
=head1 SYNOPSIS
package FS::some_table;
use vars qw(@ISA);
@ISA = qw( FS::cust_main_Mixin FS::Record );
=head1 DESCRIPTION
This is a mixin class for records that contain fields from the cust_main table,
for example, from a JOINed search. See httemplate/search/ for examples.
=head1 METHODS
=over 4
=item name
Given an object that contains fields from cust_main (say, from a JOINed
search; see httemplate/search/ for examples), returns the equivalent of the
FS::cust_main I<name> method, or "(unlinked)" if this object is not linked to
a customer.
=cut
sub cust_unlinked_msg { '(unlinked)'; }
sub cust_linked { $_[0]->custnum; }
sub name {
my $self = shift;
$self->cust_linked
? FS::cust_main::name($self)
: $self->cust_unlinked_msg;
}
=item ship_name
Given an object that contains fields from cust_main (say, from a JOINed
search; see httemplate/search/ for examples), returns the equivalent of the
FS::cust_main I<ship_name> method, or "(unlinked)" if this object is not
linked to a customer.
=cut
sub ship_name {
my $self = shift;
$self->cust_linked
? FS::cust_main::ship_name($self)
: $self->cust_unlinked_msg;
}
=item contact
Given an object that contains fields from cust_main (say, from a JOINed
search; see httemplate/search/ for examples), returns the equivalent of the
FS::cust_main I<contact> method, or "(unlinked)" if this object is not linked
to a customer.
=cut
sub contact {
my $self = shift;
$self->cust_linked
? FS::cust_main::contact($self)
: $self->cust_unlinked_msg;
}
=item ship_contact
Given an object that contains fields from cust_main (say, from a JOINed
search; see httemplate/search/ for examples), returns the equivalent of the
FS::cust_main I<ship_contact> method, or "(unlinked)" if this object is not
linked to a customer.
=cut
sub ship_contact {
my $self = shift;
$self->cust_linked
? FS::cust_main::ship_contact($self)
: $self->cust_unlinked_msg;
}
=item country_full
Given an object that contains fields from cust_main (say, from a JOINed
search; see httemplate/search/ for examples), returns the equivalent of the
FS::cust_main I<country_full> method, or "(unlinked)" if this object is not
linked to a customer.
=cut
sub country_full {
my $self = shift;
$self->cust_linked
? FS::cust_main::country_full($self)
: $self->cust_unlinked_msg;
}
=item invoicing_list_emailonly
Given an object that contains fields from cust_main (say, from a JOINed
search; see httemplate/search/ for examples), returns the equivalent of the
FS::cust_main I<country_full> method, or "(unlinked)" if this object is not
linked to a customer.
=cut
sub invoicing_list_emailonly {
my $self = shift;
warn "invoicing_list_email only called on $self, ".
"custnum ". $self->custnum. "\n";
$self->cust_linked
? FS::cust_main::invoicing_list_emailonly($self)
: $self->cust_unlinked_msg;
}
#read-only
sub invoicing_list {
my $self = shift;
$self->cust_linked
? FS::cust_main::invoicing_list($self)
: ();
}
=cut
=back
=head1 BUGS
=head1 SEE ALSO
L<FS::cust_main>, L<FS::Record>
=cut
1;
|
