[Bast-commits] r4781 - DBIx-Class/0.08/branches/view_support/lib/SQL/Translator/Parser/DBIx

[wreis at dev.catalyst.perl.org]

Author: wreis
Date: 2008-08-27 00:28:56 +0100 (Wed, 27 Aug 2008)
New Revision: 4781

Modified:
   DBIx-Class/0.08/branches/view_support/lib/SQL/Translator/Parser/DBIx/Class.pm
Log:
missed sql key

Modified: DBIx-Class/0.08/branches/view_support/lib/SQL/Translator/Parser/DBIx/Class.pm
===================================================================
--- DBIx-Class/0.08/branches/view_support/lib/SQL/Translator/Parser/DBIx/Class.pm	2008-08-26 20:45:27 UTC (rev 4780)
+++ DBIx-Class/0.08/branches/view_support/lib/SQL/Translator/Parser/DBIx/Class.pm	2008-08-26 23:28:56 UTC (rev 4781)
@@ -241,7 +241,7 @@
         my $view = $schema->add_view(
           name => $source->name,
           fields => [ $source->columns ],
-          ($source->view_definition ? $source->view_definition : ())
+          $source->view_definition ? ( 'sql' => $source->view_definition ) : ()
         );
         if ($source->result_class->can('sqlt_deploy_hook')) {
           $source->result_class->sqlt_deploy_hook($view);