[Treebase-guts] SF.net SVN: treebase:[314] trunk/treebase-core/src/main/perl/lib/CIPRES/ TreeBase/TreeBaseObjects.pm

[<rv...@us...>]

Revision: 314
          http://treebase.svn.sourceforge.net/treebase/?rev=314&view=rev
Author:   rvos
Date:     2009-11-24 12:19:15 +0000 (Tue, 24 Nov 2009)

Log Message:
-----------
Added more %subobject entries

Modified Paths:
--------------
    trunk/treebase-core/src/main/perl/lib/CIPRES/TreeBase/TreeBaseObjects.pm

Modified: trunk/treebase-core/src/main/perl/lib/CIPRES/TreeBase/TreeBaseObjects.pm
===================================================================
--- trunk/treebase-core/src/main/perl/lib/CIPRES/TreeBase/TreeBaseObjects.pm	2009-11-24 12:15:09 UTC (rev 313)
+++ trunk/treebase-core/src/main/perl/lib/CIPRES/TreeBase/TreeBaseObjects.pm	2009-11-24 12:19:15 UTC (rev 314)
@@ -305,6 +305,7 @@
 ####################################################################################################
 package AnalyzedData;
 CIPRES::TreeBase::VeryBadORM->register();
+our %subobject = ('phylotree' => 'PhyloTree');
 
 =head2 AnalyzedData
 
@@ -409,6 +410,10 @@
 	'rows'    => 'MatrixRow',
 	'columns' => 'MatrixColumn',
 );
+our %subobject = ( 
+	'taxonlabelset' => 'TaxonLabelSet',
+	'matrixkind'    => 'MatrixKind',
+);
 
 =head2 Matrix
 
@@ -564,6 +569,7 @@
 ####################################################################################################
 package MatrixRow;
 CIPRES::TreeBase::VeryBadORM->register();
+our %subobject = ('taxonlabel' => 'TaxonLabel');
 
 =head2 MatrixRow
 
@@ -681,8 +687,9 @@
 package PhyloTree;
 CIPRES::TreeBase::VeryBadORM->register();
 our %subobject = (
-	'rootnode' => 'PhyloTreeNode', 
-	'treetype' => 'TreeType'
+	'rootnode'  => 'PhyloTreeNode', 
+	'treetype'  => 'TreeType',
+	'treeblock' => 'TreeBlock',
 );
 our %r_attr = ('treeblock' => 'TreeBlock');
 
@@ -843,9 +850,11 @@
 package PhyloTreeNode;
 CIPRES::TreeBase::VeryBadORM->register();
 our %subobject = (
-	'child'     => 'PhyloTreeNode',
-	'sibling'   => 'PhyloTreeNode',
-	'parent'    => 'PhyloTreeNode',
+	'child'      => 'PhyloTreeNode',
+	'sibling'    => 'PhyloTreeNode',
+	'parent'     => 'PhyloTreeNode',
+	'taxonlabel' => 'TaxonLabel',
+	'phylotree'  => 'PhyloTree',
 );
 
 =head2 PhyloTreeNode
@@ -1348,6 +1357,7 @@
 ####################################################################################################
 package TaxonLabel;
 CIPRES::TreeBase::VeryBadORM->register();
+our %subobject = ( 'taxonvariant' => 'TaxonVariant' );
 our %r_attr = ('treenodes' => 'PhyloTreeNode', 'rows' => 'MatrixRow');
 our %r2_attr = ('taxonlabelsets' => ['taxonlabelset_taxonlabel', 'TaxonLabelSet']);
 
@@ -1553,6 +1563,7 @@
 CIPRES::TreeBase::VeryBadORM->register();
 our %r2_attr = ('submissions' => ['sub_treeblock', 'Submission']);
 our %r_attr = ('trees' => 'PhyloTree');
+our %subobject = ( 'taxonlabelset' => 'TaxonLabelSet' );
 
 =head2 TreeBlock
 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.