[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Wed Oct 15 10:02:01 EDT 2003
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv4785/Perl/MOBY

Modified Files:
	Central.pm 
Log Message:
fix malformed error message as per martins report.

moby-live/Perl/MOBY Central.pm,1.106,1.107
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.106
retrieving revision 1.107
diff -u -r1.106 -r1.107
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/09/15 02:44:40	1.106
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/10/15 14:02:01	1.107
@@ -230,7 +230,7 @@
 	my ($term, $desc, $relationships, $email, $auth, $clobber) = &_registerObjectPayload($payload);
 	$debug && &_LOG("\n\nterm $term\ndesc $desc\nemail $email\nauth $auth\nclobber $clobber\n\n");
 	unless (defined $term && defined $desc && defined $auth && defined $email){
-		if ($term =~ /FAILED/){return &_error("Malformed XML; $term","");}
+		if ($term =~ /FAILED/){return &_error("Malformed XML;","");}
 		return &_error("Malformed XML; may be missing required parameters objectType, Description, authURI or contactEmail","");
 	}
 	# push @{$relationships{$relationshipType}}, [$objectType, $articleName];
@@ -473,7 +473,7 @@
 	$debug && &_LOG("\n\nterm $term\ndesc $desc\nrel $relationships\nemail $email\nauth $auth");
 	unless (defined $term && defined $desc && defined $auth && defined $email){
 		if ($term =~ /FAILED/){		return &_error("Malformed XML\n $term","");}
-		return &_error("Malformed XML\n $payload\n may be missing required parameters serviceType=$term, Description=$desc, authURI=$auth or contactEmail=$email","");
+		return &_error("Malformed XML\n may be missing required parameters serviceType, Description, authURI or contactEmail","");
 	}
 	# validate that the final ontology will be valid