[Everydevel-opers] SF.net SVN: everydevel: [946] trunk/ebase

[<pau...@us...>]

Revision: 946
          http://svn.sourceforge.net/everydevel/?rev=946&view=rev
Author:   paul_the_nomad
Date:     2007-05-01 14:25:05 -0700 (Tue, 01 May 2007)

Log Message:
-----------
Utility sub to install nodetypes

Modified Paths:
--------------
    trunk/ebase/lib/Everything/Storage/Nodeball.pm

Property Changed:
----------------
    trunk/ebase/


Property changes on: trunk/ebase
___________________________________________________________________
Name: svk:merge
   - 16c2b9cb-492b-4d64-9535-64d4e875048d:/wip/ebase:961
a6810612-c0f9-0310-9d3e-a9e4af8c5745:/ebase/offline:17930
   + 16c2b9cb-492b-4d64-9535-64d4e875048d:/wip/ebase:962
a6810612-c0f9-0310-9d3e-a9e4af8c5745:/ebase/offline:17930

Modified: trunk/ebase/lib/Everything/Storage/Nodeball.pm
===================================================================
--- trunk/ebase/lib/Everything/Storage/Nodeball.pm	2007-05-01 21:24:38 UTC (rev 945)
+++ trunk/ebase/lib/Everything/Storage/Nodeball.pm	2007-05-01 21:25:05 UTC (rev 946)
@@ -492,6 +492,31 @@
 
 }
 
+
+=head2 C<install_xml_nodetype_nodes>
+
+This is a method.
+
+It installs nodetype nodes stored as XML in the nodeballs.
+
+Returns undef.
+
+=cut
+
+sub install_xml_nodetype_nodes {
+
+    my ( $self ) = @_;
+
+    my $select_cb = sub { my $xmlnode = shift; return 1 if $xmlnode->get_nodetype eq 'nodetype'; return; };
+
+    $self->install_xml_nodes( $select_cb );
+
+    $self->get_nodebase->{cache}->flushCache();
+
+    $self->get_nodebase->rebuildNodetypeModules();
+
+}
+
 =head2 C<install_nodeball>
 
 Installs the nodeball. If supplied with an argument in a


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