[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Tue Aug 23 15:07:30 EDT 2005
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv22923/MOBY

Modified Files:
	OntologyServer.pm 
Log Message:
updating test suite to test all possible ways of getting identical artileNames in an object registration - inheritence, identical has or hasa relationships

moby-live/Perl/MOBY OntologyServer.pm,1.78,1.79
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/OntologyServer.pm,v
retrieving revision 1.78
retrieving revision 1.79
diff -u -r1.78 -r1.79
--- /home/repository/moby/moby-live/Perl/MOBY/OntologyServer.pm	2005/08/23 18:47:16	1.78
+++ /home/repository/moby/moby-live/Perl/MOBY/OntologyServer.pm	2005/08/23 19:07:29	1.79
@@ -486,7 +486,7 @@
 	
 	# need to ensure that identical article names dont' end up at the same level
 	my $articleNameInvalid = &_testIdenticalArticleName(term => $subj_lsid, articleName => $args{articleName});
-	return (0, "Object will have conflicting articleName", '') if $articleNameInvalid;
+	return (0, "Object will have conflicting articleName ".($args{articleName}), '') if $articleNameInvalid;
 
 	my $insertid = $adaptor->insert_object_term2term(relationship_type => $rel_lsid, 
 							 object1_type => $subj_lsid,