[MOBY-guts] biomoby commit

[Eddie Kawas]

kawas
Tue Dec 14 17:31:30 EST 2004
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory pub.open-bio.org:/tmp/cvs-serv12457/MOBY/Client

Modified Files:
	Central.pm CollectionArticle.pm SimpleArticle.pm 
	SecondaryArticle.pm 
Log Message:
updated the check for dom to check for libxml

moby-live/Perl/MOBY/Client Central.pm,1.84,1.85 CollectionArticle.pm,1.10,1.11 SimpleArticle.pm,1.6,1.7 SecondaryArticle.pm,1.5,1.6
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm,v
retrieving revision 1.84
retrieving revision 1.85
diff -u -r1.84 -r1.85
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2004/12/14 20:47:04	1.84
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2004/12/14 22:31:30	1.85
@@ -847,6 +847,7 @@
 						$message .= "<Simple articleName='$articleName'>\n";
 					}
 					my ( $type, $Namespaces ) = @{$objectdef};
+					$type ||="";
 					$message .= "<objectType>$type</objectType>\n";
 					unless ( ref( $Namespaces ) =~ /array/i ) {
 						return $self->errorRegXML(

===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/CollectionArticle.pm,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -r1.10 -r1.11
--- /home/repository/moby/moby-live/Perl/MOBY/Client/CollectionArticle.pm	2004/11/18 17:41:16	1.10
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/CollectionArticle.pm	2004/12/14 22:31:30	1.11
@@ -255,7 +255,7 @@
 	}
 	if ( $self->XML && ref( $self->XML ) ) {
 		return 0;
-	} elsif ( $self->XML_DOM && !( ref( $self->XML_DOM ) =~ /dom/i ) ) {
+	} elsif ( $self->XML_DOM && !( ref( $self->XML_DOM ) =~ /libxml/i ) ) {
 		return 0;
 	}
 	$self->createFromXML                   if ( $self->XML );

===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/SimpleArticle.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -r1.6 -r1.7
--- /home/repository/moby/moby-live/Perl/MOBY/Client/SimpleArticle.pm	2004/11/18 17:41:16	1.6
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/SimpleArticle.pm	2004/12/14 22:31:30	1.7
@@ -225,7 +225,7 @@
 	}
 	if ( $self->XML && ref( $self->XML ) ) {
 		return 0;
-	} elsif ( $self->XML_DOM && !( ref( $self->XML_DOM ) =~ /dom/i ) ) {
+	} elsif ( $self->XML_DOM && !( ref( $self->XML_DOM ) =~ /libxml/i ) ) {
 		return 0;
 	}
 	$self->createFromXML                   if ( $self->XML );

===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/SecondaryArticle.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- /home/repository/moby/moby-live/Perl/MOBY/Client/SecondaryArticle.pm	2004/11/18 17:41:16	1.5
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/SecondaryArticle.pm	2004/12/14 22:31:30	1.6
@@ -201,7 +201,7 @@
 	$self->{enum} = [] unless $self->enum;
 	if ( $self->XML && ref( $self->XML ) ) {
 		return 0;
-	} elsif ( $self->XML_DOM && !( ref( $self->XML_DOM ) =~ /dom/i ) ) {
+	} elsif ( $self->XML_DOM && !( ref( $self->XML_DOM ) =~ /libxml/i ) ) {
 		return 0;
 	}
 	$self->createFromXML                   if ( $self->XML );