[Bast-commits] r7061 - DBIx-Class-Preview/1.000/trunk/lib/DBIx/Class/ResultSource/Table

[lukes at dev.catalyst.perl.org]

Author: lukes
Date: 2009-07-16 12:22:04 +0000 (Thu, 16 Jul 2009)
New Revision: 7061

Modified:
   DBIx-Class-Preview/1.000/trunk/lib/DBIx/Class/ResultSource/Table/Previewed.pm
Log:
fixed some brainless hardcoding of source name

Modified: DBIx-Class-Preview/1.000/trunk/lib/DBIx/Class/ResultSource/Table/Previewed.pm
===================================================================
--- DBIx-Class-Preview/1.000/trunk/lib/DBIx/Class/ResultSource/Table/Previewed.pm	2009-07-16 04:30:21 UTC (rev 7060)
+++ DBIx-Class-Preview/1.000/trunk/lib/DBIx/Class/ResultSource/Table/Previewed.pm	2009-07-16 12:22:04 UTC (rev 7061)
@@ -14,7 +14,7 @@
 
     my $new_source = DBIx::Class::ResultSource::Table::Preview->new({
 			%$self,
-			name           => 'top_100_batch_preview',
+			name           => $self->name . "_preview",
 			_relationships => Storable::dclone( $self->_relationships ),
 		});
     $new_source->add_column('dirty' => { data_type => 'integer', default_value => 0 });