[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Mon Dec 22 12:21:16 EST 2003
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv13565/MOBY

Modified Files:
	Central.pm 
Log Message:
Doh!  I broke it.  Should be fixed now

moby-live/Perl/MOBY Central.pm,1.117,1.118
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.117
retrieving revision 1.118
diff -u -r1.117 -r1.118
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/12/22 17:05:03	1.117
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/12/22 17:21:16	1.118
@@ -234,7 +234,7 @@
 		if ($term =~ /FAILED/){return &_error("Malformed XML;","");}
 		return &_error("Malformed XML; may be missing required parameters objectType, Description, authURI or contactEmail","");
 	}
-	return &_error("Malformed authURI - must not have an http:// prefix","") if $AuthURI =~ '[/:]';
+	return &_error("Malformed authURI - must not have an http:// prefix","") if $auth =~ '[/:]';
 
 	# validate that the final ontology will be valid by testing against existing relationships and such
 	while (my ($reltype, $obj) = each %{$relationships}){
@@ -468,7 +468,7 @@
 		if ($term =~ /FAILED/){		return &_error("Malformed XML\n $term","");}
 		return &_error("Malformed XML\n may be missing required parameters serviceType, Description, authURI or contactEmail","");
 	}
-	return &_error("Malformed authURI - must not have an http:// prefix","") if $AuthURI =~ '[/:]';
+	return &_error("Malformed authURI - must not have an http:// prefix","") if $auth =~ '[/:]';
 
 	# validate that the final ontology will be valid
 
@@ -682,7 +682,7 @@
 	unless (defined $term && defined $desc && defined $auth && defined $email){
 		return &_error("Malformed XML; may be missing required parameters namespaceType, Description, authURI or contactEmail","");
 	}
-	return &_error("Malformed authURI - must not have an http:// prefix","") if $AuthURI =~ '[/:]';
+	return &_error("Malformed authURI - must not have an http:// prefix","") if $auth =~ '[/:]';
 
 	my ($exists, $exists_message, $URI) = $OntologyServer->namespaceExists(term => $term); # success = 1 if it does
 	(($exists==1) && return &_error("Namespace $term already exists", $URI));