X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=eg%2Ftable_template.pm;h=5da6f3b28405f54eb5770e7959c0672f1fef0abc;hp=d609bd5440f9219eaefd9b7875e8a4e53610cafa;hb=c2146ae32fdef80049abfa13098db2d45f3ebdd5;hpb=c0567c688084e89fcd11bf82348b6c418f1254ac 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