diff options
| author | ivan <ivan> | 2010-03-29 00:23:07 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2010-03-29 00:23:07 +0000 |
| commit | b516a7cb6c072871568bb0f217cc2bab6ebddd4a (patch) | |
| tree | 28565d474bfbee6aa80d13e4964e8b335fd57ded /FS/FS/cust_pkg_reason.pm | |
| parent | cc9855d8e52fe35a362f7bda01616d53f04a7aab (diff) | |
move from otaker to proper usernum FK
Diffstat (limited to 'FS/FS/cust_pkg_reason.pm')
| -rw-r--r-- | FS/FS/cust_pkg_reason.pm | 20 |
1 files changed, 9 insertions, 11 deletions
diff --git a/FS/FS/cust_pkg_reason.pm b/FS/FS/cust_pkg_reason.pm index bb0542b..1ec5024 100644 --- a/FS/FS/cust_pkg_reason.pm +++ b/FS/FS/cust_pkg_reason.pm @@ -1,11 +1,9 @@ package FS::cust_pkg_reason; use strict; -use vars qw( @ISA ); +use base qw( FS::otaker_Mixin FS::Record ); use FS::Record qw( qsearch qsearchs ); -@ISA = qw(FS::Record); - =head1 NAME FS::cust_pkg_reason - Object methods for cust_pkg_reason records @@ -34,16 +32,17 @@ currently supported: =over 4 -=item num - primary key +=item num -=item pkgnum - +primary key -=item reasonnum - +=item pkgnum -=item otaker - +=item reasonnum -=item date - +=item usernum +=item date =back @@ -99,7 +98,7 @@ sub check { || $self->ut_number('pkgnum') || $self->ut_number('reasonnum') || $self->ut_enum('action', [ 'A', 'C', 'E', 'S' ]) - || $self->ut_text('otaker') + || $self->ut_alphan('otaker') || $self->ut_numbern('date') ; return $error if $error; @@ -307,8 +306,7 @@ sub _upgrade_data { # class method } } - ''; - + $class->_upgrade_otaker(%opts); } =back |