summaryrefslogtreecommitdiff
path: root/FS/FS/cust_main_note.pm
diff options
context:
space:
mode:
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