From 14958f5ddaaa3216fe0d5f895c7552405ef3f923 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Wed, 11 Aug 2010 21:53:56 +0000
Subject: [PATCH] at least show an error for bad pkgparts instead of a hang,
 RT#9578

---
 FS/FS/cust_main/Import.pm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/FS/FS/cust_main/Import.pm b/FS/FS/cust_main/Import.pm
index 901ff18ae..e2165a096 100644
--- a/FS/FS/cust_main/Import.pm
+++ b/FS/FS/cust_main/Import.pm
@@ -328,6 +328,12 @@ sub batch_import {
     tie my %hash, 'Tie::RefHash'; #this part is important
 
     if ( $cust_pkg{'pkgpart'} ) {
+
+      unless ( $cust_pkg{'pkgpart'} =~ /^\d+$/ ) {
+        $dbh->rollback if $oldAutoCommit;
+        return 'illegal pkgpart: '. $cust_pkg{'pkgpart'};
+      }
+
       my $cust_pkg = new FS::cust_pkg ( \%cust_pkg );
 
       my @svc_x = ();
-- 
2.11.0