summaryrefslogtreecommitdiff
path: root/FS/FS/cust_main_note.pm
diff options
context:
space:
mode:
authorivan <ivan>2010-03-29 00:23:07 +0000
committerivan <ivan>2010-03-29 00:23:07 +0000
commitb516a7cb6c072871568bb0f217cc2bab6ebddd4a (patch)
tree28565d474bfbee6aa80d13e4964e8b335fd57ded /FS/FS/cust_main_note.pm
parentcc9855d8e52fe35a362f7bda01616d53f04a7aab (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.pm23
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