[MOBY-guts] biomoby commit

[Jason Stewart]

jstewart
Thu May  8 15:07:03 EDT 2003
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv3110/MOBY

Modified Files:
	Central.pm 
Log Message:
typo
moby-live/Perl/MOBY Central.pm,1.35,1.36
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.35
retrieving revision 1.36
diff -u -r1.35 -r1.36
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/05/08 18:58:58	1.35
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/05/08 19:07:03	1.36
@@ -1068,7 +1068,7 @@
 		}# and return it.
 	}
 	foreach my $OUT(@OUT){
-f		my ($success,$msg) = &_registerArticles($SVC, "output", $OUT, undef); 
+		my ($success,$msg) = &_registerArticles($SVC, "output", $OUT, undef); 
 		unless ($success==1) {
 			my $reg = &Registration({
 			success => 0,
@@ -1099,8 +1099,9 @@
 }
 sub _registerArticles {
     my ($SVC, $inout, $node,$collid) = @_;
-	my $dbh = $SVC->dbh;
+    my $dbh = $SVC->dbh;
     return  (-1,'Bad node') unless $node->getNodeType == ELEMENT_NODE;
+
     # this is a Simple or a Complex object
     my $simp_coll = $node->getTagName;
 	$debug && &_LOG("TAGNAME in _registerArticle is $simp_coll");