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 r4407,
[freeside.git]
/
FS
/
FS
/
cust_pay_refund.pm
diff --git
a/FS/FS/cust_pay_refund.pm
b/FS/FS/cust_pay_refund.pm
index
55a5eb7
..
15e0e53
100644
(file)
--- a/
FS/FS/cust_pay_refund.pm
+++ b/
FS/FS/cust_pay_refund.pm
@@
-73,16
+73,6
@@
sub table { 'cust_pay_refund'; }
Adds this cust_pay_refund to the database. If there is an error, returns the
error, otherwise returns false.
Adds this cust_pay_refund to the database. If there is an error, returns the
error, otherwise returns false.
-=cut
-
-sub insert {
- my $self = shift;
- my $error = $self->SUPER::insert(@_);
- return $error if $error;
-
- '';
-}
-
=item delete
=cut
=item delete
=cut
@@
-148,26
+138,26
@@
sub check {
$self->SUPER::check;
}
$self->SUPER::check;
}
-=item sub cust_
credit
+=item sub cust_
pay
-Returns the
credit (see L<FS::cust_credit
>)
+Returns the
payment (see L<FS::cust_pay
>)
=cut
=cut
-sub cust_
credit
{
+sub cust_
pay
{
my $self = shift;
my $self = shift;
- qsearchs( 'cust_
credit', { 'crednum' => $self->cred
num } );
+ qsearchs( 'cust_
pay', { 'paynum' => $self->pay
num } );
}
}
-=item cust_
bill
+=item cust_
refund
-Returns the
invoice (see L<FS::cust_bill
>)
+Returns the
refund (see L<FS::cust_refund
>)
=cut
=cut
-sub cust_
bill
{
+sub cust_
refund
{
my $self = shift;
my $self = shift;
- qsearchs( 'cust_
bill', { 'invnum' => $self->inv
num } );
+ qsearchs( 'cust_
refund', { 'refundnum' => $self->refund
num } );
}
=back
}
=back