From 48ba2845d0119c56971d5b724661aa37e73b49dd Mon Sep 17 00:00:00 2001 From: ivan Date: Sat, 20 Nov 2004 17:26:56 +0000 Subject: first pass at VoIP rating --- eg/table_template.pm | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'eg') diff --git a/eg/table_template.pm b/eg/table_template.pm index d609bd544..5da6f3b28 100644 --- a/eg/table_template.pm +++ b/eg/table_template.pm @@ -93,7 +93,13 @@ and replace methods. 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 -- cgit v1.2.1