[Bast-commits] r3228 - in trunk/DBIx-Class-Journal: lib/DBIx/Class/Schema t/lib/DBICTest

[castaway at dev.catalyst.perl.org]

Author: castaway
Date: 2007-05-03 15:24:31 +0100 (Thu, 03 May 2007)
New Revision: 3228

Modified:
   trunk/DBIx-Class-Journal/lib/DBIx/Class/Schema/Journal.pm
   trunk/DBIx-Class-Journal/t/lib/DBICTest/Schema.pm
Log:
bug testing..


Modified: trunk/DBIx-Class-Journal/lib/DBIx/Class/Schema/Journal.pm
===================================================================
--- trunk/DBIx-Class-Journal/lib/DBIx/Class/Schema/Journal.pm	2007-05-03 14:18:39 UTC (rev 3227)
+++ trunk/DBIx-Class-Journal/lib/DBIx/Class/Schema/Journal.pm	2007-05-03 14:24:31 UTC (rev 3228)
@@ -16,15 +16,17 @@
     my $self = shift;
     $self->next::method(@_);
 
+   print STDERR join(":", $self->sources), "\n";
+
     my $journal_schema = DBIx::Class::Schema::Journal::DB->connect(@{ $self->journal_connection || $self->storage->connect_info });
-    print STDERR "conn", $journal_schema->storage->connect_info;
+#    print STDERR "conn", $journal_schema->storage->connect_info;
     if($self->journal_storage_type)
     {
         $journal_schema->storage_type($self->journal_storage_type);
     }
 
     ## get our own private version of the journaling sources
-    $self->_journal_schema($journal_schema->compose_namespace(blessed($self) . '::Journal'));
+   $self->_journal_schema($journal_schema->compose_namespace(blessed($self) . '::Journal'));
 
     ## Create auditlog+history per table
     my %j_sources = @{$self->journal_sources} ? map { $_ => 1 } @{$self->journal_sources} : map { $_ => 1 } $self->sources;
@@ -33,7 +35,7 @@
         next unless($j_sources{$s_name});
         $self->create_journal_for($s_name);
         $self->class($s_name)->load_components('Journal');
-        print STDERR "$s_name :", $self->class($s_name), "\n";
+#        print STDERR "$s_name :", $self->class($s_name), "\n";
     }
 
     ## Set up relationship between changeset->user_id and this schema's user

Modified: trunk/DBIx-Class-Journal/t/lib/DBICTest/Schema.pm
===================================================================
--- trunk/DBIx-Class-Journal/t/lib/DBICTest/Schema.pm	2007-05-03 14:18:39 UTC (rev 3227)
+++ trunk/DBIx-Class-Journal/t/lib/DBICTest/Schema.pm	2007-05-03 14:24:31 UTC (rev 3228)
@@ -8,7 +8,8 @@
 __PACKAGE__->journal_user(['DBICTest::Schema::Artist', {'foreign.artistid' => 'self.user_id'}]);
 
 no warnings qw/qw/;
-__PACKAGE__->load_classes(qw/
+DBICTest::Schema->load_classes(
+qw/
   Artist
   CD
   Track