package FS::table_name;
use strict;
-use vars qw( @ISA );
+use base qw( FS::Record );
use FS::Record qw( qsearch qsearchs );
-@ISA = qw(FS::Record);
-
=head1 NAME
FS::table_name - Object methods for table_name records
sub check {
my $self = shift;
- ''; #no error
+ my $error =
+ $self->ut_numbern('primary_key')
+ || $self->ut_number('validate_other_fields')
+ ;
+ return $error if $error;
+
+ $self->SUPER::check;
}
=back