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_main_note.pm | |
parent | cc9855d8e52fe35a362f7bda01616d53f04a7aab (diff) |
move from otaker to proper usernum FK
Diffstat (limited to 'FS/FS/cust_main_note.pm')
-rw-r--r-- | FS/FS/cust_main_note.pm | 23 |
1 files changed, 14 insertions, 9 deletions
diff --git a/FS/FS/cust_main_note.pm b/FS/FS/cust_main_note.pm index 4732d12..43c9d56 100644 --- a/FS/FS/cust_main_note.pm +++ b/FS/FS/cust_main_note.pm @@ -1,11 +1,9 @@ package FS::cust_main_note; 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_main_note - Object methods for cust_main_note records @@ -33,16 +31,17 @@ currently supported: =over 4 -=item notenum - primary key +=item notenum -=item custnum - +primary key -=item _date - +=item custnum -=item otaker - +=item _date -=item comments - +=item usernum +=item comments =back @@ -107,7 +106,7 @@ sub check { $self->ut_numbern('notenum') || $self->ut_number('custnum') || $self->ut_numbern('_date') - || $self->ut_text('otaker') + || $self->ut_alphan('otaker') || $self->ut_anything('comments') ; return $error if $error; @@ -115,6 +114,12 @@ sub check { $self->SUPER::check; } +# Used by FS::Upgrade to migrate to a new database. +sub _upgrade_data { # class method + my ($class, %opts) = @_; + $class->_upgrade_otaker(%opts); +} + =back =head1 BUGS |