diff options
Diffstat (limited to 'fs_signup/fs_signup_server')
| -rwxr-xr-x | fs_signup/fs_signup_server | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/fs_signup/fs_signup_server b/fs_signup/fs_signup_server index e8aa6ed64..70045e63b 100755 --- a/fs_signup/fs_signup_server +++ b/fs_signup/fs_signup_server @@ -142,9 +142,12 @@ while (1) { my @invoicing_list = split( /\s*\,\s*/, $signup_data->{'invoicing_list'} ); + $signup_data->{'pkgpart'} =~ /^(\d+)$/ or '' =~ /^()$/; + my $pkgpart = $1; + my $part_pkg = - qsearchs( 'part_pkg', { 'pkgpart' => $signup_data->{'pkgpart'} } ) - or $error ||= "WARNING: unknown pkgpart ". $signup_data->{pkgpart}; + qsearchs( 'part_pkg', { 'pkgpart' => $pkgpart } ) + or $error ||= "WARNING: unknown pkgpart: $pkgpart"; my $svcpart = $part_pkg->svcpart unless $error; my $cust_pkg = new FS::cust_pkg ( { |