projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
simple change to cust_svc creation to help imports with svcnums
[freeside.git]
/
eg
/
TEMPLATE_cust_main.import
diff --git
a/eg/TEMPLATE_cust_main.import
b/eg/TEMPLATE_cust_main.import
index
4ac7efd
..
e91a2f1
100755
(executable)
--- a/
eg/TEMPLATE_cust_main.import
+++ b/
eg/TEMPLATE_cust_main.import
@@
-1,22
+1,18
@@
#!/usr/bin/perl -w
#!/usr/bin/perl -w
-
-# Template for importing legacy customer data
-#
-# $Id: TEMPLATE_cust_main.import,v 1.2 1998-12-16 05:29:45 ivan Exp $
-#
-# ivan@sisd.com 98-aug-17 - 20
#
#
-# $Log: TEMPLATE_cust_main.import,v $
-# Revision 1.2 1998-12-16 05:29:45 ivan
-# adminsuidsetup now need user
+# Template for importing legacy customer data
#
#
+# $Id: TEMPLATE_cust_main.import,v 1.4 2001-08-21 02:44:47 ivan Exp $
use strict;
use strict;
+use Date::Parse;
use FS::UID qw(adminsuidsetup datasrc);
use FS::Record qw(fields qsearch qsearchs);
use FS::cust_main;
use FS::cust_pkg;
use FS::UID qw(adminsuidsetup datasrc);
use FS::Record qw(fields qsearch qsearchs);
use FS::cust_main;
use FS::cust_pkg;
-use Date::Parse;
+use FS::cust_svc;
+use FS::svc_acct;
+use FS::pkg_svc;
my $user = shift or die &usage;
adminsuidsetup $user;
my $user = shift or die &usage;
adminsuidsetup $user;
@@
-98,7
+94,7
@@
while (<CLIENT>) {
$svc{'First'} =~ s/&/and/go;
$svc{'Zip'} =~ s/\s+$//go;
$svc{'First'} =~ s/&/and/go;
$svc{'Zip'} =~ s/\s+$//go;
- my($cust_main) =
create
FS::cust_main ( {
+ my($cust_main) =
new
FS::cust_main ( {
'custnum' => $svc{'custnum'},
'agentnum' => $agentnum,
'last' => $svc{'last'},
'custnum' => $svc{'custnum'},
'agentnum' => $agentnum,
'last' => $svc{'last'},
@@
-129,7
+125,7
@@
while (<CLIENT>) {
die $error;
}
die $error;
}
- my($cust_pkg)=
create
FS::cust_pkg ( {
+ my($cust_pkg)=
new
FS::cust_pkg ( {
'custnum' => $svc{'custnum'},
'pkgpart' => $pkgpart{$svc{'LegacyBillingData'}},
'setup' => '',
'custnum' => $svc{'custnum'},
'pkgpart' => $pkgpart{$svc{'LegacyBillingData'}},
'setup' => '',
@@
-176,7
+172,7
@@
while (<CLIENT>) {
} else {
#create new cust_svc record linked to cust_pkg record
} else {
#create new cust_svc record linked to cust_pkg record
- my($n_cust_svc) =
create
FS::cust_svc ({
+ my($n_cust_svc) =
new
FS::cust_svc ({
'svcnum' => $o_cust_svc->svcnum,
'pkgnum' => $cust_pkg->pkgnum,
'svcpart' => $pkg_svc->svcpart,
'svcnum' => $o_cust_svc->svcnum,
'pkgnum' => $cust_pkg->pkgnum,
'svcpart' => $pkg_svc->svcpart,