database upgraded and interface added

lib/Pear/LocalLoop/Controller/Admin/Organisations.pm

@@ -85,9 +85,11 @@ sub valid_read {
       order_by => { -desc => 'submitted_at' },
     },
   );
+  my $associations = $valid_org->entity->associations;
   $c->stash(
     valid_org => $valid_org,
     transactions => $transactions,
+    associations => $associations,
   );
 }
 
@@ -143,7 +145,7 @@ sub merge_list {
     $c->redirect_to( '/admin/organisations/' . $org_id );
     return;
   }
-  
+
   my $org_rs = $c->result_set->search(
     {
       id => { '!=' => $org_id },

lib/Pear/LocalLoop/Schema.pm

@@ -6,7 +6,7 @@ use warnings;
 
 use base 'DBIx::Class::Schema';
 
-our $VERSION = 16;
+our $VERSION = 17;
 
 __PACKAGE__->load_namespaces;
 

lib/Pear/LocalLoop/Schema/Result/Entity.pm

@@ -37,6 +37,11 @@ __PACKAGE__->might_have(
   "Pear::LocalLoop::Schema::Result::User" => "entity_id",
 );
 
+__PACKAGE__->might_have(
+"associations",
+  "Pear::LocalLoop::Schema::Result::EntityAssociation" => "entity_id",
+);
+
 __PACKAGE__->has_many(
   "purchases",
   "Pear::LocalLoop::Schema::Result::Transaction",
@@ -44,13 +49,6 @@ __PACKAGE__->has_many(
   { cascade_copy => 0, cascade_delete => 0 },
 );
 
-__PACKAGE__->has_many(
-  "associations",
-  "Pear::LocalLoop::Schema::Result::EntityAssociation",
-  { "foreign.entity_id" => "self.id" },
-  { cascade_copy => 0, cascade_delete => 0 },
-);
-
 __PACKAGE__->has_many(
   "sales",
   "Pear::LocalLoop::Schema::Result::Transaction",

lib/Pear/LocalLoop/Schema/Result/EntityAssociation.pm

@@ -5,11 +5,6 @@ use warnings;
 
 use base 'DBIx::Class::Core';
 
-__PACKAGE__->load_components(qw/
-  InflateColumn::DateTime
-  TimeStamp
-/);
-
 __PACKAGE__->table("entity_association");
 
 __PACKAGE__->add_columns(