projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
use Apache inside an eval BLOCK was mucking things up for the non-mod_perl folks
[freeside.git]
/
FS
/
FS
/
cust_main.pm
diff --git
a/FS/FS/cust_main.pm
b/FS/FS/cust_main.pm
index
4a254e0
..
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;
@@
-391,6
+393,9
@@
sub check {
|| $self->ut_textn('county')
|| $self->ut_textn('state')
;
|| $self->ut_textn('county')
|| $self->ut_textn('state')
;
+ #barf. need message catalogs. i18n. etc.
+ $error .= "Please select a referral."
+ if $error =~ /^Illegal or empty \(numeric\) refnum: /;
return $error if $error;
return "Unknown agent"
return $error if $error;
return "Unknown agent"
@@
-1114,7
+1119,7
@@
sub check_invoicing_list {
=head1 VERSION
=head1 VERSION
-$Id: cust_main.pm,v 1.1
1 2001-04-09 23:05:15
ivan Exp $
+$Id: cust_main.pm,v 1.1
3 2001-05-07 02:07:38
ivan Exp $
=head1 BUGS
=head1 BUGS