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:
2a71654
)
fix syntax error in newly-enabled insert sub, sheesh
author
ivan
<ivan>
Tue, 9 Oct 2001 03:11:50 +0000
(
03:11
+0000)
committer
ivan
<ivan>
Tue, 9 Oct 2001 03:11:50 +0000
(
03:11
+0000)
FS/FS/cust_pkg.pm
patch
|
blob
|
history
diff --git
a/FS/FS/cust_pkg.pm
b/FS/FS/cust_pkg.pm
index
dff2413
..
d2d7419
100644
(file)
--- a/
FS/FS/cust_pkg.pm
+++ b/
FS/FS/cust_pkg.pm
@@
-107,11
+107,12
@@
sub insert {
# custnum might not have have been defined in sub check (for one-shot new
# customers), so check it here instead
# custnum might not have have been defined in sub check (for one-shot new
# customers), so check it here instead
+ # (is this still necessary with transactions?)
my $error = $self->ut_number('custnum');
my $error = $self->ut_number('custnum');
- return $error if $error
+ return $error if $error
;
- return "Unknown customer
"
+ return "Unknown customer
". $self->custnum
unless qsearchs( 'cust_main', { 'custnum' => $self->custnum } );
$self->SUPER::insert;
unless qsearchs( 'cust_main', { 'custnum' => $self->custnum } );
$self->SUPER::insert;
@@
-567,7
+568,7
@@
sub order {
=head1 VERSION
=head1 VERSION
-$Id: cust_pkg.pm,v 1.
7 2001-10-01 10:31:08
ivan Exp $
+$Id: cust_pkg.pm,v 1.
8 2001-10-09 03:11:50
ivan Exp $
=head1 BUGS
=head1 BUGS
@@
-584,6
+585,9
@@
cancel } because they use %FS::UID::callback to load configuration values.
Probably need a subroutine which decides what to do based on whether or not
we've fetched the user yet, rather than a hash. See FS::UID and the TODO.
Probably need a subroutine which decides what to do based on whether or not
we've fetched the user yet, rather than a hash. See FS::UID and the TODO.
+Now that things are transactional should the check in the insert method be
+moved to check ?
+
=head1 SEE ALSO
L<FS::Record>, L<FS::cust_main>, L<FS::part_pkg>, L<FS::cust_svc>
=head1 SEE ALSO
L<FS::Record>, L<FS::cust_main>, L<FS::part_pkg>, L<FS::cust_svc>