diff options
author | Ivan Kohler <ivan@freeside.biz> | 2018-02-12 21:04:00 -0800 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2018-02-12 21:04:00 -0800 |
commit | 1f19ac8ae3fda009fede1e3c6f3e1c75b93adfca (patch) | |
tree | 7d9606dd2c786d5cb4bd1d8174a3cd24fbeeb05f /FS | |
parent | 2e55db01a7c8990957256d959911312eadc33255 (diff) |
auto-create package class from string name on import, RT#79383
Diffstat (limited to 'FS')
-rw-r--r-- | FS/FS/part_pkg.pm | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/FS/FS/part_pkg.pm b/FS/FS/part_pkg.pm index 956cf797c..da53715c6 100644 --- a/FS/FS/part_pkg.pm +++ b/FS/FS/part_pkg.pm @@ -232,6 +232,19 @@ sub insert { local $FS::UID::AutoCommit = 0; my $dbh = dbh; + if ( length($self->classnum) && $self->classnum !~ /^(\d+)$/ ) { + my $pkg_class = qsearchs('pkg_class', { 'classname' => $self->classnum } ) + || new FS::pkg_class { classname => $self->classnum }; + unless ( $pkg_class->classnum ) { + my $error = $pkg_class->insert; + if ( $error ) { + $dbh->rollback if $oldAutoCommit; + return $error; + } + } + $self->classnum( $pkg_class->classnum ); + } + warn " inserting part_pkg record" if $DEBUG; my $error = $self->SUPER::insert( $options{options} ); if ( $error ) { |