From 81e69f7d093e9df23e814e15ed35b6c6e6545ae7 Mon Sep 17 00:00:00 2001 From: Ivan Kohler Date: Mon, 12 Feb 2018 21:04:05 -0800 Subject: [PATCH] auto-create package class from string name on import, RT#79383 --- FS/FS/part_pkg.pm | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/FS/FS/part_pkg.pm b/FS/FS/part_pkg.pm index bb8c6bc6c..4492c4023 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 ) { -- 2.20.1