1 package FS::reg_code_pkg;
5 use FS::Record qw(qsearchs);
13 FS::reg_code_pkg - Class linking registration codes (see L<FS::reg_code>) with package definitions (see L<FS::part_pkg>)
19 $record = new FS::reg_code_pkg \%hash;
20 $record = new FS::reg_code_pkg { 'column' => 'value' };
22 $error = $record->insert;
24 $error = $new_record->replace($old_record);
26 $error = $record->delete;
28 $error = $record->check;
32 An FS::reg_code_pkg object links a registration code to a package definition.
33 FS::table_name inherits from FS::Record. The following fields are currently
38 =item codepkgnum - primary key
40 =item codenum - registration code (see L<FS::reg_code>)
42 =item pkgpart - package definition (see L<FS::part_pkg>)
52 Creates a new example. To add the example to the database, see L<"insert">.
54 Note that this stores the hash reference, not a distinct copy of the hash it
55 points to. You can ask the object for a copy with the I<hash> method.
59 # the new method can be inherited from FS::Record, if a table method is defined
61 sub table { 'reg_code_pkg'; }
65 Adds this record to the database. If there is an error, returns the error,
66 otherwise returns false.
70 # the insert method can be inherited from FS::Record
74 Delete this record from the database.
78 # the delete method can be inherited from FS::Record
80 =item replace OLD_RECORD
82 Replaces the OLD_RECORD with this one in the database. If there is an error,
83 returns the error, otherwise returns false.
87 # the replace method can be inherited from FS::Record
91 Checks all fields to make sure this is a valid record. If there is
92 an error, returns the error, otherwise returns false. Called by the insert
97 # the check method should currently be supplied - FS::Record contains some
98 # data checking routines
104 $self->ut_numbern('codepkgnum')
105 || $self->ut_foreign_key('codenum', 'reg_code', 'codenum')
106 || $self->ut_foreign_key('pkgpart', 'part_pkg', 'pkgpart')
108 return $error if $error;
115 Returns the package definition (see L<FS::part_pkg>)
121 qsearchs('part_pkg', { 'pkgpart' => $self->pkgpart } );
132 L<FS::reg_code_pkg>, L<FS::Record>, schema.html from the base documentation.