diff options
author | Mark Wells <mark@freeside.biz> | 2012-05-31 14:48:51 -0700 |
---|---|---|
committer | Mark Wells <mark@freeside.biz> | 2012-05-31 14:48:51 -0700 |
commit | b1f580c37e3da920fd6669e7431fd8cb06810f35 (patch) | |
tree | fb540b0bd36e23e9c60c1541497a78478877c7a7 /FS/FS/Setup.pm | |
parent | dda70549e974d4b559f9d5a117948b931813c7d1 (diff) |
fix some issues with upgrade/initial setup, #940
Diffstat (limited to 'FS/FS/Setup.pm')
-rw-r--r-- | FS/FS/Setup.pm | 15 |
1 files changed, 10 insertions, 5 deletions
diff --git a/FS/FS/Setup.pm b/FS/FS/Setup.pm index e2c5a5a..e27b66f 100644 --- a/FS/FS/Setup.pm +++ b/FS/FS/Setup.pm @@ -209,6 +209,14 @@ sub populate_initial_data { sub initial_data { my %opt = @_; + my $cust_location = FS::cust_location->new({ + 'address1' => '1234 System Lane', + 'city' => 'Systemtown', + 'state' => 'CA', + 'zip' => '54321', + 'country' => 'US', + }); + #tie my %hash, 'Tie::DxHash', tie my %hash, 'Tie::IxHash', @@ -351,14 +359,11 @@ sub initial_data { 'refnum' => 1, #XXX 'first' => 'System', 'last' => 'Accounts', - 'address1' => '1234 System Lane', - 'city' => 'Systemtown', - 'state' => 'CA', - 'zip' => '54321', - 'country' => 'US', 'payby' => 'COMP', 'payinfo' => 'system', #or something 'paydate' => '1/2037', + 'bill_location' => $cust_location, + 'ship_location' => $cust_location, }, ], |