projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
RT# 81961 Fix POD error
[freeside.git]
/
FS
/
FS
/
part_pkg_option.pm
diff --git
a/FS/FS/part_pkg_option.pm
b/FS/FS/part_pkg_option.pm
index
3cb330b
..
2858ba7
100644
(file)
--- a/
FS/FS/part_pkg_option.pm
+++ b/
FS/FS/part_pkg_option.pm
@@
-1,12
+1,10
@@
package FS::part_pkg_option;
package FS::part_pkg_option;
+use base qw(FS::Record);
use strict;
use strict;
-use vars qw( @ISA );
-use FS::Record qw( qsearch qsearchs dbh );
+use FS::Record qw( dbh ); # qw( qsearch qsearchs dbh );
use FS::part_pkg;
use FS::part_pkg;
-@ISA = qw(FS::Record);
-
=head1 NAME
FS::part_pkg_option - Object methods for part_pkg_option records
=head1 NAME
FS::part_pkg_option - Object methods for part_pkg_option records
@@
-137,6
+135,10
@@
sub _upgrade_data { # class method
$sth = dbh->prepare($sql) or die dbh->errstr;
$sth->execute or die $sth->errstr;
$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;
'';
}
'';
}