diff options
| author | ivan <ivan> | 2007-12-07 01:08:47 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2007-12-07 01:08:47 +0000 |
| commit | 218d62503aacf530a4c1b75e0db7f529c3736ffc (patch) | |
| tree | 039297f53fcd563f06dc7a66ed5ac8cee3495264 | |
| parent | 511037ac12f37406c398f09a1365b2378924b7ab (diff) | |
doh! is not an object. let's call it , mmkay
| -rw-r--r-- | FS/FS/cust_credit.pm | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/FS/FS/cust_credit.pm b/FS/FS/cust_credit.pm index 093ed54d4..3ead008e6 100644 --- a/FS/FS/cust_credit.pm +++ b/FS/FS/cust_credit.pm @@ -410,15 +410,15 @@ sub reason { # sub _upgrade_data { # class method - my ($self, %opts) = @_; + my ($class, %opts) = @_; - warn "$me upgrading $self\n" if $DEBUG; + warn "$me upgrading $class\n" if $DEBUG; - if (defined dbdef->table($self->table)->column('reason')) { + if (defined dbdef->table($class->table)->column('reason')) { warn "$me Checking for unmigrated reasons\n" if $DEBUG; - my @cust_credits = qsearch({ 'table' => $self->table, + my @cust_credits = qsearch({ 'table' => $class->table, 'hashref' => {}, 'extrasql' => 'WHERE reason IS NOT NULL', }); @@ -430,7 +430,7 @@ sub _upgrade_data { # class method unless ($reason_type) { $reason_type = new FS::reason_type( $hashref ); my $error = $reason_type->insert(); - die "$self had error inserting FS::reason_type into database: $error\n" + die "$class had error inserting FS::reason_type into database: $error\n" if $error; } @@ -458,8 +458,8 @@ sub _upgrade_data { # class method $cust_credit->setfield('reason', ''); my $error = $cust_credit->replace; - warn "*** WARNING: error replacing reason in $self ". - $self->crednum. ": $error ***\n" + warn "*** WARNING: error replacing reason in $class ". + $cust_credit->crednum. ": $error ***\n" if $error; } } @@ -475,7 +475,7 @@ sub _upgrade_data { # class method unless ($reason_type) { $reason_type = new FS::reason_type( $hashref ); my $error = $reason_type->insert(); - die "$self had error inserting FS::reason_type into database: $error\n" + die "$class had error inserting FS::reason_type into database: $error\n" if $error; } # or clause for 1.7.x @@ -490,7 +490,7 @@ sub _upgrade_data { # class method unless ($reason_type) { $reason_type = new FS::reason_type( $hashref ); my $error = $reason_type->insert(); - die "$self had error inserting FS::reason_type into database: $error\n" + die "$class had error inserting FS::reason_type into database: $error\n" if $error; } |