summaryrefslogtreecommitdiff
path: root/FS/FS/part_event_condition.pm
diff options
context:
space:
mode:
authorIvan Kohler <ivan@freeside.biz>2016-02-12 10:32:56 -0800
committerIvan Kohler <ivan@freeside.biz>2016-02-12 10:32:56 -0800
commit3d17fc79205ac61e8ca5e56bad32ac8a7ebc657e (patch)
treefd3b318eaf3913778d5f445f644f296e093f7124 /FS/FS/part_event_condition.pm
parent163c8c2fc2d03bbeb551a84a757c66ca7cf44cd7 (diff)
can't upgrade 3.x events in 5.x
Diffstat (limited to 'FS/FS/part_event_condition.pm')
-rw-r--r--FS/FS/part_event_condition.pm45
1 files changed, 2 insertions, 43 deletions
diff --git a/FS/FS/part_event_condition.pm b/FS/FS/part_event_condition.pm
index 200049da7..16f84fa77 100644
--- a/FS/FS/part_event_condition.pm
+++ b/FS/FS/part_event_condition.pm
@@ -1,13 +1,11 @@
package FS::part_event_condition;
+use base qw( FS::option_Common );
use strict;
-use vars qw( @ISA $DEBUG @SKIP_CONDITION_SQL );
+use vars qw( $DEBUG @SKIP_CONDITION_SQL );
use FS::UID qw( dbh driver_name );
-use FS::Record qw( qsearch qsearchs );
-use FS::option_Common;
use FS::part_event; #for order_conditions_sql...
-@ISA = qw( FS::option_Common ); # FS::Record );
$DEBUG = 0;
@SKIP_CONDITION_SQL = ();
@@ -354,45 +352,6 @@ sub order_conditions_sql {
}
-sub _upgrade_data { #class method
- my ($class, %opts) = @_;
-
- foreach my $part_event_condition (
- qsearch('part_event_condition', { 'conditionname' => 'payby' } )
- ) {
-
- my $payby = $part_event_condition->option('payby');
-
- if ( scalar( keys %$payby ) == 1 ) {
-
- if ( $payby->{'CARD'} ) {
-
- $part_event_condition->conditionname('has_cust_payby_auto');
-
- } elsif ( $payby->{'CHEK'} ) {
-
- $part_event_condition->conditionname('has_cust_payby_auto');
-
- }
-
- } elsif ( $payby->{'BILL'} && ! $payby->{'CARD'} && ! $payby->{'CHEK'} ) {
-
- $part_event_condition->conditionname('hasnt_cust_payby_auto');
-
- } else {
-
- die 'Unable to automatically convert payby condition for event #'.
- $part_event_condition->eventpart. "\n";
-
- }
-
- my $error = $part_event_condition->replace;
- die $error if $error;
-
- }
-
-}
-
=back
=head1 BUGS