Index: Engine.pm

===================================================================

RCS file: /var/lib/cvs/nfo/perl/libs/Tangram/Relational/Engine.pm,v

retrieving revision 1.1

diff -r1.1 Engine.pm

439d438

<

445a445,446

>

> $tables->{$class}->{SQL} = $classdef->{sql} if $classdef->{sql};

602a604

> my $sql = $def->{SQL};

605d606

<

607a609

> my $table_type = $sql->{table_type} || $schema->{sql}{table_type};

617c619

< "\n)" );

---

> "\n)", ($table_type ? " TYPE=$table_type" : '') );

619a622,623

> my $table_type = $schema->{sql}{table_type};

> my $control_type = ($table_type ? " TYPE=$table_type" : '');

629a634

> $control_type

*****CVS exited normally with code 1*****