From b516a7cb6c072871568bb0f217cc2bab6ebddd4a Mon Sep 17 00:00:00 2001 From: ivan Date: Mon, 29 Mar 2010 00:23:07 +0000 Subject: move from otaker to proper usernum FK --- FS/FS/cust_pkg_reason.pm | 20 +++++++++----------- 1 file changed, 9 insertions(+), 11 deletions(-) (limited to 'FS/FS/cust_pkg_reason.pm') 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 -- cgit v1.1