[Bps-public-commit] r9674 - in Test-Chimps/trunk: .

alexmv at bestpractical.com alexmv at bestpractical.com
Thu Nov 15 16:53:42 EST 2007


Author: alexmv
Date: Thu Nov 15 16:53:42 2007
New Revision: 9674

Modified:
   Test-Chimps/trunk/   (props changed)
   Test-Chimps/trunk/lib/Test/Chimps/Report.pm
   Test-Chimps/trunk/lib/Test/Chimps/Server.pm

Log:
 r24832 at zoq-fot-pik:  chmrr | 2007-11-15 16:52:26 -0500
  * Update for new Jifty::DBI


Modified: Test-Chimps/trunk/lib/Test/Chimps/Report.pm
==============================================================================
--- Test-Chimps/trunk/lib/Test/Chimps/Report.pm	(original)
+++ Test-Chimps/trunk/lib/Test/Chimps/Report.pm	Thu Nov 15 16:53:42 2007
@@ -64,12 +64,11 @@
 
 use base qw/Jifty::DBI::Record/;
 
-package Test::Chimps::Report::Schema;
-
 use Jifty::DBI::Schema;
+use Jifty::DBI::Record schema {
 
 column report_html                  => type is 'text';
-column model_structure              => type is 'text',
+column model_structure              => type is 'blob',
   filters are 'Jifty::DBI::Filter::Storable', 'Jifty::DBI::Filter::base64';
 column timestamp                    => type is 'timestamp',
   filters are 'Jifty::DBI::Filter::DateTime';
@@ -84,6 +83,8 @@
 column total_todo                   => type is 'integer';
 column total_unexpectedly_succeeded => type is 'integer';
 
+};
+
 =head1 AUTHOR
 
 Zev Benjamin, C<< <zev at cpan.org> >>

Modified: Test-Chimps/trunk/lib/Test/Chimps/Server.pm
==============================================================================
--- Test-Chimps/trunk/lib/Test/Chimps/Server.pm	(original)
+++ Test-Chimps/trunk/lib/Test/Chimps/Server.pm	Thu Nov 15 16:53:42 2007
@@ -219,8 +219,11 @@
 
   if (defined $self->variables_validation_spec) {
     foreach my $var (keys %{$self->variables_validation_spec}) {
-      package Test::Chimps::Report::Schema;
-      column($var, type(is('text')));
+      my $column = Test::Chimps::Report->add_column($var);
+      $column->type("text");
+      $column->writable(1);
+      $column->readable(1);
+      Test::Chimps::Report->_init_methods_for_column($column);
     }
   }
 



More information about the Bps-public-commit mailing list