projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
24df069
)
add type_pkgs record if necessary for one-time charges
author
ivan
<ivan>
Wed, 26 Jun 2002 08:12:52 +0000
(08:12 +0000)
committer
ivan
<ivan>
Wed, 26 Jun 2002 08:12:52 +0000
(08:12 +0000)
FS/FS/cust_main.pm
patch
|
blob
|
history
diff --git
a/FS/FS/cust_main.pm
b/FS/FS/cust_main.pm
index
b68bf9e
..
efe9402
100644
(file)
--- a/
FS/FS/cust_main.pm
+++ b/
FS/FS/cust_main.pm
@@
-27,6
+27,7
@@
use FS::part_pkg;
use FS::part_bill_event;
use FS::cust_bill_event;
use FS::cust_tax_exempt;
use FS::part_bill_event;
use FS::cust_bill_event;
use FS::cust_tax_exempt;
+use FS::type_pkgs;
use FS::Msgcat qw(gettext);
@ISA = qw( FS::Record );
use FS::Msgcat qw(gettext);
@ISA = qw( FS::Record );
@@
-1769,9
+1770,20
@@
sub charge {
return $error;
}
return $error;
}
+ my $pkgpart = $part_pkg->pkgpart;
+ my %type_pkgs = ( 'typenum' => $self->agent->typenum, 'pkgpart' => $pkgpart );
+ unless ( qsearchs('type_pkgs', \%type_pkgs ) ) {
+ my $type_pkgs = new FS::type_pkgs \%type_pkgs;
+ $error = $type_pkgs->insert;
+ if ( $error ) {
+ $dbh->rollback if $oldAutoCommit;
+ return $error;
+ }
+ }
+
my $cust_pkg = new FS::cust_pkg ( {
'custnum' => $self->custnum,
my $cust_pkg = new FS::cust_pkg ( {
'custnum' => $self->custnum,
- 'pkgpart' => $p
art_pkg->p
kgpart,
+ 'pkgpart' => $pkgpart,
} );
$error = $cust_pkg->insert;
} );
$error = $cust_pkg->insert;