projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
fafe0bb
)
locate existing ones by title, warn on errors
author
ivan
<ivan>
Wed, 20 Oct 2004 08:20:36 +0000
(08:20 +0000)
committer
ivan
<ivan>
Wed, 20 Oct 2004 08:20:36 +0000
(08:20 +0000)
bin/artera.import
patch
|
blob
|
history
diff --git
a/bin/artera.import
b/bin/artera.import
index
41cbe4b
..
75fe585
100644
(file)
--- a/
bin/artera.import
+++ b/
bin/artera.import
@@
-47,7
+47,7
@@
while (<>) {
# warn "can't find domain $domain\n";
}
# warn "can't find domain $domain\n";
}
- my $exist = qsearchs('svc_external', { '
id' => $serial
} );
+ my $exist = qsearchs('svc_external', { '
title' => $keycode
} );
next if $exist;
my $svc_external = new FS::svc_external {
next if $exist;
my $svc_external = new FS::svc_external {
@@
-59,10
+59,11
@@
while (<>) {
#my $error = $svc_external->check;
my $error = $svc_external->insert;
if ( $cust_svc && $error =~ /^Already/ ) {
#my $error = $svc_external->check;
my $error = $svc_external->insert;
if ( $cust_svc && $error =~ /^Already/ ) {
+ warn $error;
$svc_external->pkgnum('');
$error = $svc_external->insert;
}
$svc_external->pkgnum('');
$error = $svc_external->insert;
}
-
die
$error if $error;
+
warn
$error if $error;
$num++;
$linked++ if $cust_svc;
$num++;
$linked++ if $cust_svc;