return "Unknown customer ". $self->custnum unless $self->cust_main;
}
- return "Unknown pkgpart"
+ return "Unknown pkgpart: ". $self->pkgpart
unless qsearchs( 'part_pkg', { 'pkgpart' => $self->pkgpart } );
$self->otaker(getotaker) unless $self->otaker;
=head1 VERSION
-$Id: cust_pkg.pm,v 1.20 2002-04-22 21:23:16 ivan Exp $
+$Id: cust_pkg.pm,v 1.21 2002-05-04 00:47:24 ivan Exp $
=head1 BUGS
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 ( {