projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
turn debug off
[freeside.git]
/
FS
/
FS
/
cust_credit.pm
diff --git
a/FS/FS/cust_credit.pm
b/FS/FS/cust_credit.pm
index
674bc10
..
6185fc4
100644
(file)
--- a/
FS/FS/cust_credit.pm
+++ b/
FS/FS/cust_credit.pm
@@
-2,11
+2,14
@@
package FS::cust_credit;
use strict;
use base qw( FS::otaker_Mixin FS::cust_main_Mixin FS::Record );
use strict;
use base qw( FS::otaker_Mixin FS::cust_main_Mixin FS::Record );
-use vars qw( $conf $unsuspendauto $me $DEBUG );
+use vars qw( $conf $unsuspendauto $me $DEBUG
+ $otaker_upgrade_kludge $ignore_empty_reasonnum
+ );
use Date::Format;
use FS::UID qw( dbh getotaker );
use FS::Misc qw(send_email);
use FS::Record qw( qsearch qsearchs dbdef );
use Date::Format;
use FS::UID qw( dbh getotaker );
use FS::Misc qw(send_email);
use FS::Record qw( qsearch qsearchs dbdef );
+use FS::CurrentUser;
use FS::cust_main;
use FS::cust_pkg;
use FS::cust_refund;
use FS::cust_main;
use FS::cust_pkg;
use FS::cust_refund;
@@
-19,6
+22,9
@@
use FS::cust_event;
$me = '[ FS::cust_credit ]';
$DEBUG = 0;
$me = '[ FS::cust_credit ]';
$DEBUG = 0;
+$otaker_upgrade_kludge = 0;
+$ignore_empty_reasonnum = 0;
+
#ask FS::UID to run this stuff for us later
$FS::UID::callback{'FS::cust_credit'} = sub {
#ask FS::UID to run this stuff for us later
$FS::UID::callback{'FS::cust_credit'} = sub {
@@
-264,14
+270,17
@@
sub delete {
}
}
-=item replace
OLD_RECORD
+=item replace
[ OLD_RECORD ]
You can, but probably shouldn't modify credits...
You can, but probably shouldn't modify credits...
+Replaces the OLD_RECORD with this one in the database, or, if OLD_RECORD is not
+supplied, replaces this record. If there is an error, returns the error,
+otherwise returns false.
+
=cut
sub replace {
=cut
sub replace {
- #return "Can't modify credit!"
my $self = shift;
return "Can't modify closed credit" if $self->closed =~ /^Y/i;
$self->SUPER::replace(@_);
my $self = shift;
return "Can't modify closed credit" if $self->closed =~ /^Y/i;
$self->SUPER::replace(@_);
@@
-288,7
+297,7
@@
methods.
sub check {
my $self = shift;
sub check {
my $self = shift;
- $self->
otaker(getotaker) unless ($self->otaker)
;
+ $self->
usernum($FS::CurrentUser::CurrentUser->usernum) unless $self->usernum
;
my $error =
$self->ut_numbern('crednum')
my $error =
$self->ut_numbern('crednum')
@@
-297,7
+306,6
@@
sub check {
|| $self->ut_money('amount')
|| $self->ut_alphan('otaker')
|| $self->ut_textn('reason')
|| $self->ut_money('amount')
|| $self->ut_alphan('otaker')
|| $self->ut_textn('reason')
- || $self->ut_foreign_key('reasonnum', 'reason', 'reasonnum')
|| $self->ut_textn('addlinfo')
|| $self->ut_enum('closed', [ '', 'Y' ])
|| $self->ut_foreign_keyn('pkgnum', 'cust_pkg', 'pkgnum')
|| $self->ut_textn('addlinfo')
|| $self->ut_enum('closed', [ '', 'Y' ])
|| $self->ut_foreign_keyn('pkgnum', 'cust_pkg', 'pkgnum')
@@
-305,10
+313,14
@@
sub check {
;
return $error if $error;
;
return $error if $error;
+ my $method = $ignore_empty_reasonnum ? 'ut_foreign_keyn' : 'ut_foreign_key';
+ $error = $self->$method('reasonnum', 'reason', 'reasonnum');
+ return $error if $error;
+
return "amount must be > 0 " if $self->amount <= 0;
return "amount must be greater or equal to amount applied"
return "amount must be > 0 " if $self->amount <= 0;
return "amount must be greater or equal to amount applied"
- if $self->unapplied < 0;
+ if $self->unapplied < 0
&& ! $otaker_upgrade_kludge
;
return "Unknown customer"
unless qsearchs( 'cust_main', { 'custnum' => $self->custnum } );
return "Unknown customer"
unless qsearchs( 'cust_main', { 'custnum' => $self->custnum } );
@@
-548,6
+560,8
@@
sub _upgrade_data { # class method
}
}
}
}
+ local($otaker_upgrade_kludge) = 1;
+ local($ignore_empty_reasonnum) = 1;
$class->_upgrade_otaker(%opts);
}
$class->_upgrade_otaker(%opts);
}