[MOBY-guts] biomoby commit

[Eddie Kawas]

kawas
Fri Jul  6 11:02:18 EDT 2007
Update of /home/repository/moby/moby-live/Perl/MOBY/RDF
In directory dev.open-bio.org:/tmp/cvs-serv2495/RDF

Modified Files:
	Utils.pm 
Log Message:
removed dependency on LibXSLT for the time being
moby-live/Perl/MOBY/RDF Utils.pm,1.1,1.2
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/RDF/Utils.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- /home/repository/moby/moby-live/Perl/MOBY/RDF/Utils.pm	2007/07/05 17:39:02	1.1
+++ /home/repository/moby/moby-live/Perl/MOBY/RDF/Utils.pm	2007/07/06 15:02:18	1.2
@@ -9,7 +9,7 @@
 package MOBY::RDF::Utils;
 
 use XML::LibXML;
-use XML::LibXSLT;
+#use XML::LibXSLT;
 
 use strict;
 
@@ -97,13 +97,14 @@
 END
 	}
 	my $parser     = XML::LibXML->new();
-	my $xslt       = XML::LibXSLT->new();
+#	my $xslt       = XML::LibXSLT->new();
 	my $source     = $parser->parse_string($xml);
-	my $style_doc  = $parser->parse_string( $self->{xslt} );
-	my $stylesheet = $xslt->parse_stylesheet($style_doc);
-	my $results    = $stylesheet->transform($source);
-	$xml = $stylesheet->output_string($results);
-	return '<?xml version="1.0" encoding="UTF-8"?>' . $xml;
+#	my $style_doc  = $parser->parse_string( $self->{xslt} );
+#	my $stylesheet = $xslt->parse_stylesheet($style_doc);
+#	my $results    = $stylesheet->transform($source);
+#	$xml = $stylesheet->output_string($results);
+	$xml = $source->toString(0);
+	return $xml;
 }
 
 1;