projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
fafbffd
)
http://www.sisd.com/freeside/list-archive/msg01906.html
author
ivan
<ivan>
Mon, 7 May 2001 02:07:38 +0000
(
02:07
+0000)
committer
ivan
<ivan>
Mon, 7 May 2001 02:07:38 +0000
(
02:07
+0000)
FS/FS/cust_main.pm
patch
|
blob
|
history
fs_signup/fs_signup_server
patch
|
blob
|
history
diff --git
a/FS/FS/cust_main.pm
b/FS/FS/cust_main.pm
index
0379f7f
..
00ddc82
100644
(file)
--- a/
FS/FS/cust_main.pm
+++ b/
FS/FS/cust_main.pm
@@
-191,15
+191,17
@@
but until then, here's an example:
use Tie::RefHash;
tie %hash, 'Tie::RefHash'; #this part is important
use Tie::RefHash;
tie %hash, 'Tie::RefHash'; #this part is important
- %hash =
{
+ %hash =
(
$cust_pkg => [ $svc_acct ],
$cust_pkg => [ $svc_acct ],
- };
+ ...
+ );
$cust_main->insert( \%hash );
=cut
sub insert {
my $self = shift;
$cust_main->insert( \%hash );
=cut
sub insert {
my $self = shift;
+ my @param = @_;
local $SIG{HUP} = 'IGNORE';
local $SIG{INT} = 'IGNORE';
local $SIG{HUP} = 'IGNORE';
local $SIG{INT} = 'IGNORE';
@@
-239,8
+241,8
@@
sub insert {
return $error;
}
return $error;
}
- if ( @
_
) {
- my $cust_pkgs = shift;
+ if ( @
param
) {
+ my $cust_pkgs = shift
@param
;
foreach my $cust_pkg ( keys %$cust_pkgs ) {
$cust_pkg->custnum( $self->custnum );
$error = $cust_pkg->insert;
foreach my $cust_pkg ( keys %$cust_pkgs ) {
$cust_pkg->custnum( $self->custnum );
$error = $cust_pkg->insert;
@@
-1117,7
+1119,7
@@
sub check_invoicing_list {
=head1 VERSION
=head1 VERSION
-$Id: cust_main.pm,v 1.1
2 2001-04-23 07:12:44
ivan Exp $
+$Id: cust_main.pm,v 1.1
3 2001-05-07 02:07:38
ivan Exp $
=head1 BUGS
=head1 BUGS
diff --git
a/fs_signup/fs_signup_server
b/fs_signup/fs_signup_server
index
8fbc819
..
03defd6
100755
(executable)
--- a/
fs_signup/fs_signup_server
+++ b/
fs_signup/fs_signup_server
@@
-163,7
+163,7
@@
while (1) {
use Tie::RefHash;
tie my %hash, 'Tie::RefHash';
use Tie::RefHash;
tie my %hash, 'Tie::RefHash';
- %hash =
{ $cust_pkg => [ $svc_acct ] }
;
+ %hash =
( $cust_pkg => [ $svc_acct ] )
;
$error ||= $cust_main->insert( \%hash );
#if ( $cust_pkg && ! $error ) { #in this case, $cust_pkg should always
# #be definied, but....
$error ||= $cust_main->insert( \%hash );
#if ( $cust_pkg && ! $error ) { #in this case, $cust_pkg should always
# #be definied, but....