projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
This commit was generated by cvs2svn to compensate for changes in r10640,
[freeside.git]
/
FS
/
FS
/
cust_pay_pending.pm
diff --git
a/FS/FS/cust_pay_pending.pm
b/FS/FS/cust_pay_pending.pm
index
f48e1a8
..
e54690e
100644
(file)
--- a/
FS/FS/cust_pay_pending.pm
+++ b/
FS/FS/cust_pay_pending.pm
@@
-120,9
+120,9
@@
Transaction recorded in database
Additional status information.
Additional status information.
-=
cut
+=
item gatewaynum
-#=item cust_balance -
+L<FS::payment_gateway> id.
=item paynum -
=item paynum -
@@
-292,10
+292,10
@@
sub insert_cust_pay {
}
}
-=item decline
+=item decline
[ STATUSTEXT ]
-Sets the status of this pending pament to "done" (with statustext
-"declined (manual)").
+Sets the status of this pending pa
y
ment to "done" (with statustext
+"declined (manual)"
unless otherwise specified
).
Currently only used when resolving pending payments manually.
Currently only used when resolving pending payments manually.
@@
-303,11
+303,12
@@
Currently only used when resolving pending payments manually.
sub decline {
my $self = shift;
sub decline {
my $self = shift;
+ my $statustext = shift || "declined (manual)";
#could send decline email too? doesn't seem useful in manual resolution
$self->status('done');
#could send decline email too? doesn't seem useful in manual resolution
$self->status('done');
- $self->statustext(
"declined (manual)"
);
+ $self->statustext(
$statustext
);
$self->replace;
}
$self->replace;
}