[freeside-commits] freeside/FS/FS cust_credit.pm,1.42,1.43

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail.420.am:/tmp/cvs-serv17330

Modified Files:
	cust_credit.pm 
Log Message:
ignore misapplied credits when just trying upgrade the otaker, RT#8580

Index: cust_credit.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_credit.pm,v
retrieving revision 1.42
retrieving revision 1.43
diff -u -w -d -r1.42 -r1.43
--- cust_credit.pm	20 May 2010 01:33:07 -0000	1.42
+++ cust_credit.pm	5 Jun 2010 17:31:33 -0000	1.43
@@ -2,7 +2,7 @@
 
 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 );
 use Date::Format;
 use FS::UID qw( dbh getotaker );
 use FS::Misc qw(send_email);
@@ -19,6 +19,8 @@
 $me = '[ FS::cust_credit ]';
 $DEBUG = 0;
 
+$otaker_upgrade_kludge = 0;
+
 #ask FS::UID to run this stuff for us later
 $FS::UID::callback{'FS::cust_credit'} = sub { 
 
@@ -308,7 +310,7 @@
   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 } );
@@ -548,6 +550,7 @@
     }
   }
 
+  local($otaker_upgrade_kludge) = 1;
   $class->_upgrade_otaker(%opts);
 
 }