package FS::table_name;
+use base qw( FS::Record );
use strict;
-use vars qw( @ISA );
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
-=head1 VERSION
-
-$Id: table_template.pm,v 1.1 1999-08-04 08:03:03 ivan Exp $
-
=head1 BUGS
The author forgot to customize this manpage.
=head1 SEE ALSO
-L<FS::Record>, schema.html from the base documentation.
-
-=head1 HISTORY
-
-ivan@voicenet.com 97-jul-1
-
-added hfields
-ivan@sisd.com 97-nov-13
-
-$Log: table_template.pm,v $
-Revision 1.1 1999-08-04 08:03:03 ivan
-move table subclass examples out of production directory
-
-Revision 1.4 1998/12/29 11:59:57 ivan
-mostly properly OO, some work still to be done with svc_ stuff
-
-Revision 1.3 1998/11/15 04:33:00 ivan
-updates for newest versoin
-
-Revision 1.2 1998/11/15 03:48:49 ivan
-update for current version
-
+L<FS::Record>
=cut