projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fixed hanging bracket in Conf
[freeside.git]
/
FS
/
FS
/
Setup.pm
diff --git
a/FS/FS/Setup.pm
b/FS/FS/Setup.pm
index
5e28c13
..
f26e50e
100644
(file)
--- a/
FS/FS/Setup.pm
+++ b/
FS/FS/Setup.pm
@@
-2,7
+2,7
@@
package FS::Setup;
use base qw( Exporter );
use strict;
use base qw( Exporter );
use strict;
-use vars qw(
ISA
@EXPORT_OK );
+use vars qw( @EXPORT_OK );
#use Tie::DxHash;
use Tie::IxHash;
use Crypt::OpenSSL::RSA;
#use Tie::DxHash;
use Tie::IxHash;
use Crypt::OpenSSL::RSA;
@@
-363,13
+363,11
@@
sub initial_data {
#with billing type Complimentary. Leave the First package dropdown set to
#(none).
'cust_main' => [
#with billing type Complimentary. Leave the First package dropdown set to
#(none).
'cust_main' => [
- { 'agentnum' => 1, #XXX
- 'refnum' => 1, #XXX
- 'first' => 'System',
- 'last' => 'Accounts',
- 'payby' => 'COMP',
- 'payinfo' => 'system', #or something
- 'paydate' => '1/2037',
+ { 'agentnum' => 1, #XXX
+ 'refnum' => 1, #XXX
+ 'first' => 'System',
+ 'last' => 'Accounts',
+ 'complimentary' => 'Y',
'bill_location' => $cust_location,
'ship_location' => $cust_location,
},
'bill_location' => $cust_location,
'ship_location' => $cust_location,
},