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

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

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

Log Message:
-----------
Added a raw xml attribute/accessor

Modified Paths:
--------------
    trunk/ebase/lib/Everything/XML/Node.pm

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


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

Modified: trunk/ebase/lib/Everything/XML/Node.pm
===================================================================
--- trunk/ebase/lib/Everything/XML/Node.pm	2007-05-01 21:25:37 UTC (rev 947)
+++ trunk/ebase/lib/Everything/XML/Node.pm	2007-05-01 21:26:10 UTC (rev 948)
@@ -10,6 +10,11 @@
     use Object::InsideOut;
 
 
+    my @raw_xml
+      :Field
+      :Standard(raw_xml)
+      :Arg(raw_xml);
+
     my @title
       :Field
       :Standard(title)
@@ -409,6 +414,7 @@
 					  ProtocolEncoding => 'ISO-8859-1'
 					 );
 
+    $self->set_raw_xml( $xml );
     my $doc = $XMLPARSER->parse("<everything>\n$xml\n</everything>");
 
     my @nodes = $doc->getElementsByTagName("NODE");


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