[Bps-public-commit] r9755 - in Test-Chimps-Anna/trunk: . lib/Test/Chimps

[alexmv at bestpractical.com]

Author: alexmv
Date: Wed Nov 28 19:07:45 2007
New Revision: 9755

Modified:
   Test-Chimps-Anna/trunk/   (props changed)
   Test-Chimps-Anna/trunk/bin/anna.pl
   Test-Chimps-Anna/trunk/lib/Test/Chimps/Anna.pm

Log:
 r25226 at zoq-fot-pik:  chmrr | 2007-11-28 19:07:40 -0500
  * Update for new JDBI


Modified: Test-Chimps-Anna/trunk/bin/anna.pl
==============================================================================
--- Test-Chimps-Anna/trunk/bin/anna.pl	(original)
+++ Test-Chimps-Anna/trunk/bin/anna.pl	Wed Nov 28 19:07:45 2007
@@ -13,8 +13,8 @@
   nick      => "anna",
   username  => "nice_girl",
   name      => "Anna",
-  database_file => '/home/chimps/database',
-  config_file => '/home/chimps/anna-config.yml',
+  database_file => '/home/chmrr/work/bps/Test-Chimps-Anna/database',
+  config_file => '/home/chmrr/work/bps/Test-Chimps-Anna/anna-config.yml',
   server_script => 'http://smoke.bestpractical.com/cgi-bin/report_server.pl'
   );
 

Modified: Test-Chimps-Anna/trunk/lib/Test/Chimps/Anna.pm
==============================================================================
--- Test-Chimps-Anna/trunk/lib/Test/Chimps/Anna.pm	(original)
+++ Test-Chimps-Anna/trunk/lib/Test/Chimps/Anna.pm	Wed Nov 28 19:07:45 2007
@@ -93,8 +93,11 @@
   if (exists $args{config_file}) {
     my $columns = LoadFile($args{config_file});
     foreach my $var (@$columns) {
-      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);
     }
   }
   $self->{notices} = $args{notices};