4 use base qw( FS::option_Common );
5 use FS::Record qw( qsearch qsearchs );
9 FS::qual - Object methods for qual records
15 $record = new FS::qual \%hash;
16 $record = new FS::qual { 'column' => 'value' };
18 $error = $record->insert;
20 $error = $new_record->replace($old_record);
22 $error = $record->delete;
24 $error = $record->check;
28 An FS::qual object represents a qualification for service. FS::qual inherits from
29 FS::Record. The following fields are currently supported:
33 =item qualnum - primary key
41 Either one of these cases must be true:
42 -locationnum is non-null and prospectnum is null and custnum is null
43 -locationnum is null and (prospectnum is non-null or custnum is non-null, but not both non-null)
45 =item phonenum - Service Telephone Number
47 =item exportnum - export instance providing service-qualification capabilities,
48 see L<FS::part_export>
50 =item vendor_qual_id - qualification id from vendor/telco
52 =item status - qualification status (e.g. (N)ew, (P)ending, (Q)ualifies)
63 Creates a new qualification. To add the qualification to the database, see L<"insert">.
65 Note that this stores the hash reference, not a distinct copy of the hash it
66 points to. You can ask the object for a copy with the I<hash> method.
70 # the new method can be inherited from FS::Record, if a table method is defined
76 Adds this record to the database. If there is an error, returns the error,
77 otherwise returns false.
81 # the insert method can be inherited from FS::Record
85 Delete this record from the database.
89 # the delete method can be inherited from FS::Record
91 =item replace OLD_RECORD
93 Replaces the OLD_RECORD with this one in the database. If there is an error,
94 returns the error, otherwise returns false.
98 # the replace method can be inherited from FS::Record
102 Checks all fields to make sure this is a valid qualification. If there is
103 an error, returns the error, otherwise returns false. Called by the insert
108 # the check method should currently be supplied - FS::Record contains some
109 # data checking routines
115 $self->ut_numbern('qualnum')
116 || $self->ut_foreign_keyn('custnum', 'cust_main', 'qualnum')
117 || $self->ut_foreign_keyn('prospectnum', 'prospect_main', 'prospectnum')
118 || $self->ut_foreign_keyn('locationnum', 'cust_location', 'locationnum')
119 || $self->ut_numbern('phonenum')
120 || $self->ut_foreign_key('exportnum', 'part_export', 'exportnum')
121 || $self->ut_textn('vendor_qual_id')
122 || $self->ut_alpha('status')
124 return $error if $error;
126 #Either one of these cases must be true:
127 #1. locationnum is non-null and prospectnum is null and custnum is null
128 #2. locationnum is null and (prospectnum is non-null or custnum is non-null, but not both non-null)
129 return "Invalid prospect/customer/location combination" unless (
130 ( $self->locationnum && !$self->prospectcnum && !$self->custnum ) #1
132 ( !$self->locationnum && ( $self->prospectnum || $self->custnum )
133 && !( $self->custnum && $self->prospectnum ) ) #2
143 L<FS::Record>, schema.html from the base documentation.