projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
736949d
)
brainfart
author
ivan
<ivan>
Sun, 26 Aug 2001 05:06:19 +0000
(
05:06
+0000)
committer
ivan
<ivan>
Sun, 26 Aug 2001 05:06:19 +0000
(
05:06
+0000)
FS/FS/cust_credit.pm
patch
|
blob
|
history
FS/FS/cust_main.pm
patch
|
blob
|
history
diff --git
a/FS/FS/cust_credit.pm
b/FS/FS/cust_credit.pm
index
7ea0888
..
d6de27c
100644
(file)
--- a/
FS/FS/cust_credit.pm
+++ b/
FS/FS/cust_credit.pm
@@
-105,7
+105,7
@@
sub check {
|| $self->ut_number('custnum')
|| $self->ut_numbern('_date')
|| $self->ut_money('amount')
|| $self->ut_number('custnum')
|| $self->ut_numbern('_date')
|| $self->ut_money('amount')
- || $self->ut_text('reason');
+ || $self->ut_text
n
('reason');
;
return $error if $error;
;
return $error if $error;
@@
-150,7
+150,7
@@
sub credited {
=head1 VERSION
=head1 VERSION
-$Id: cust_credit.pm,v 1.
7 2001-08-26 05:05:25
ivan Exp $
+$Id: cust_credit.pm,v 1.
8 2001-08-26 05:06:19
ivan Exp $
=head1 BUGS
=head1 BUGS
diff --git
a/FS/FS/cust_main.pm
b/FS/FS/cust_main.pm
index
23cae96
..
ba4b94c
100644
(file)
--- a/
FS/FS/cust_main.pm
+++ b/
FS/FS/cust_main.pm
@@
-280,14
+280,14
@@
sub insert {
my $error = $prepay_credit->delete;
if ( $error ) {
$dbh->rollback if $oldAutoCommit;
my $error = $prepay_credit->delete;
if ( $error ) {
$dbh->rollback if $oldAutoCommit;
- return
$error
;
+ return
"removing prepay_credit (transaction rolled back): $error"
;
}
}
my $error = $self->SUPER::insert;
if ( $error ) {
$dbh->rollback if $oldAutoCommit;
}
}
my $error = $self->SUPER::insert;
if ( $error ) {
$dbh->rollback if $oldAutoCommit;
- return
$error
;
+ return
"inserting cust_main record (transaction rolled back): $error"
;
}
if ( @param ) { # CUST_PKG_HASHREF
}
if ( @param ) { # CUST_PKG_HASHREF
@@
-297,7
+297,7
@@
sub insert {
$error = $cust_pkg->insert;
if ( $error ) {
$dbh->rollback if $oldAutoCommit;
$error = $cust_pkg->insert;
if ( $error ) {
$dbh->rollback if $oldAutoCommit;
- return
$error
;
+ return
"inserting cust_pkg (transaction rolled back): $error"
;
}
foreach my $svc_something ( @{$cust_pkgs->{$cust_pkg}} ) {
$svc_something->pkgnum( $cust_pkg->pkgnum );
}
foreach my $svc_something ( @{$cust_pkgs->{$cust_pkg}} ) {
$svc_something->pkgnum( $cust_pkg->pkgnum );
@@
-308,7
+308,7
@@
sub insert {
$error = $svc_something->insert;
if ( $error ) {
$dbh->rollback if $oldAutoCommit;
$error = $svc_something->insert;
if ( $error ) {
$dbh->rollback if $oldAutoCommit;
- return
$error
;
+ return
"inserting svc_ (transaction rolled back): $error"
;
}
}
}
}
}
}
@@
-324,7
+324,7
@@
sub insert {
$error = $self->check_invoicing_list( $invoicing_list );
if ( $error ) {
$dbh->rollback if $oldAutoCommit;
$error = $self->check_invoicing_list( $invoicing_list );
if ( $error ) {
$dbh->rollback if $oldAutoCommit;
- return
$error
;
+ return
"checking invoicing_list (transaction rolled back): $error"
;
}
$self->invoicing_list( $invoicing_list );
}
}
$self->invoicing_list( $invoicing_list );
}
@@
-337,7
+337,7
@@
sub insert {
$error = $cust_credit->insert;
if ( $error ) {
$dbh->rollback if $oldAutoCommit;
$error = $cust_credit->insert;
if ( $error ) {
$dbh->rollback if $oldAutoCommit;
- return
$error
;
+ return
"inserting credit (transaction rolled back): $error"
;
}
}
}
}
@@
-1365,7
+1365,7
@@
sub rebuild_fuzzyfiles {
=head1 VERSION
=head1 VERSION
-$Id: cust_main.pm,v 1.2
0 2001-08-23 06:17:03
ivan Exp $
+$Id: cust_main.pm,v 1.2
1 2001-08-26 05:06:19
ivan Exp $
=head1 BUGS
=head1 BUGS