[freeside-commits] freeside/FS/FS cust_pkg.pm, 1.174, 1.175 part_pkg_option.pm, 1.3, 1.4

[Mark Wells]

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

Modified Files:
	cust_pkg.pm part_pkg_option.pm 
Log Message:
fix contract_end bug, RT#10319

Index: part_pkg_option.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_pkg_option.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -w -d -r1.3 -r1.4
--- part_pkg_option.pm	23 Apr 2009 20:34:13 -0000	1.3
+++ part_pkg_option.pm	23 Oct 2010 08:33:30 -0000	1.4
@@ -137,6 +137,10 @@
   $sth = dbh->prepare($sql) or die dbh->errstr;
   $sth->execute or die $sth->errstr;
 
+  $sql = "UPDATE part_pkg_option SET optionvalue = NULL WHERE ".
+            "optionname = 'contract_end_months' AND optionvalue = '(none)'";
+  $sth = dbh->prepare($sql) or die dbh->errstr;
+  $sth->execute or die $sth->errstr;
   '';
 
 }

Index: cust_pkg.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_pkg.pm,v
retrieving revision 1.174
retrieving revision 1.175
diff -u -w -d -r1.174 -r1.175
--- cust_pkg.pm	22 Oct 2010 09:03:46 -0000	1.174
+++ cust_pkg.pm	23 Oct 2010 08:33:30 -0000	1.175
@@ -3251,6 +3251,9 @@
 sub _upgrade_data {  # class method
   my ($class, %opts) = @_;
   $class->_upgrade_otaker(%opts);
+  my $sql =('UPDATE cust_pkg SET contract_end = NULL WHERE contract_end = -1');
+  my $sth = dbh->prepare($sql);
+  $sth->execute or die $sth->errstr;
 }
 
 =back